EXCELのマクロがわかりません・・・
現在、A列にデータが並んでいるのですが、
これを７つ区切り（例：A1～A7、A15～A21）にして、
別シートに用意した表に行列を入れ替えて、
貼り付けるマクロを作っているのですが、
なにぶんVBは素人ですので、よくわかりません。
今作ろうとしているマクロは、
「元データ」セルのA1からA7までをコピーして、
「作成データ」セルのB2を起点として、
コピーした内容の行列入れ替えを行い貼り付け、
以後、「元データ」のコピー範囲を7つづつ
下にずらし、「作成データ」の貼り付け起点を
１つづつ下にずらして、「元データ」のA列の
最後までくりかえすものです。
必ず「Range」文で引っかかってしまうのですが、
何か構文的におかしいでしょうか？
かなり急ぎですので、
わかる方、よろしくお願いしますっ！！
下に、作成したマクロを貼り付けます。
Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2005/12/5 ユーザー名 : ***
Worksheets("元データ").Activate
開始行 = -6
終了行 = 0
ペースト行 = 0
Do
開始行 = 開始行 + 7
終了行 = 終了行 + 7
ペースト行 = ペースト行 + 1
開始セル番号 = "A" & 開始行
終了セル番号 = "A" & 終了行
ペーストセル番号 = "B" & ペースト行
Range("開始セル番号:終了セル番号").Select
Selection.Copy
Sheets("作成データ").Select
Range(ペーストセル番号).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Loop
End Sub
補足
範囲指定して別のエクセルにコピーしているだけです。 gyo = ("Q" & Range("A65536").End(xlUp).Row) 'コピー Range("A1:" & gyo).Select Selection.Copy '貼り付け Windows("PRINT.xls").Activate Sheets("sheet1").Select Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False タイトル行があるからＡ１ じゃなくてＡ２でした。 すみません。