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

回答No.2

KenKen_SP · ベストアンサー

こんにちは。KenKen_SP です。

こんな感じでできますけど、行列の入れ替えに時間がかかるので
処理速度はかなり遅いですね、、

処理件数が膨大で、転記するのは値だけなら配列を使うと早く
なりそうです。取り合えず。

Sub Sample()

　　Dim SH1　　　 As Worksheet
　　Dim SH2　　　 As Worksheet
　　Dim rngTARGET As Range
　　Dim i　　　　 As Long

　　Set SH1 = ThisWorkbook.Sheets("元データ")
　　Set SH2 = ThisWorkbook.Sheets("作成データ")

　　Application.ScreenUpdating = False
　　i = 1
　　Set rngTARGET = SH1.Range("A1:A7")
　　Do
　　　　rngTARGET.Copy
　　　　SH2.Cells(i, "B").PasteSpecial Transpose:=True
　　　　Set rngTARGET = rngTARGET.Offset(7)
　　　　i = i + 1
　　Loop Until rngTARGET.Cells(1, 1).Value = ""

　　Set rngTARGET = Nothing
　　Set SH1 = Nothing
　　Set SH2 = Nothing

End Sub

お礼

今テストしたら出来ました！

ありがとうございました！

回答No.1

KenKen_SP

こんにちは。KenKen_SP です。

＞ Range("開始セル番号:終了セル番号").Select

詳しく見てませんが、取り合えず文法が違います。

Range(開始セル番号 & ":" & 終了セル番号).Select

としてみては？

お礼

ありがとうございます！

なにぶん、ＶＢを知らないもので、
基本的な文法も怪しいのです・・・

ご指摘ありがとうございました！