このコードのどこが違ってますか？

質問

Windows XP　Home Edition
Excel　2002

左表（行方向）のコードは図のように問題なく動作しますので、
今度は、
右表（列方向）のように実行したいのですが、
最下記の「'----　」間の箇所だけを変更すればいいかなと思いましたが、
どこが違ってますでしょうか？
それと、(y * myCol)　の基本的な日本語訳はどおなりますか？

何卒、ご教授お願い致します。

Sub 左表()
Dim r As Range, base As Range
Dim x, y
Dim i, myCol

Range("B3:D5").Select

'省略

Set r = Selection
Set base = Selection.Cells(1, 1)
x = r.Columns.Count
y = r.Rows.Count
'------------------
For myCol = 1 To x - 1
base.Offset(0, myCol).Resize(y).Copy base.Offset(y * myCol)
'●前記myColの各列を行方向（縦方向）に空白セルを詰めて、B列の下へ順次貼り付けていく
'------------------
Next
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub 右表()
'--変更箇所--------
　For myCol = 1 To y - 1
base.Offset(myCol, 0).Resize(x).Copy base.Offset(myCol * x)
'------------------

回答No.2

kmetu · ベストアンサー

base.Offset(myCol, 0).Resize(,x).Copy base.Offset(,myCol * x)

と言った感じで行の数値を省略して　,x　などとしてでもいけるでしょう。

y * myCol　は単に掛け算してるだけだと思います。
左表の.Offset(y * myCol)は列の数値を省略している書き方です。
本来はOffset(RowOffset, ColumnOffset) です

お礼

早速のご回答、誠に有難うございました。
バッチリでした。

回答No.1

kmetu

base.Offset(myCol, 0).Resize(RowSize,x).Copy base.Offset(RowOffset,myCol * x)

にしてみてはいかがでしょう
RowSize
RowOffset
には適切な数値を入れてください。