VBA 100行ごとに列を変更してコピーする。
Winは7、Excelは2013を使用しています。
A列とB列のデータを100行毎に列を変えてコピーしたいと思っています。
（画像参照願います。）
それで、別シートにコピペするサンプルコードを見つけたのですが、
同シート内でする様に変更する知識がなく、苦戦しています。
申し訳ありませんが、ご教示願います。
別シートにコピペするサンプルコード
Sub データを100行ごとに分割する()
Dim シート As Worksheet, 元 As Worksheet '元は元データのあるシート
Dim 総行数 As Long, 回数 As Long, i As Long, 開始行 As Long
Const コピー行 = 100
Set 元 = ActiveSheet '変数の元をActiveSheetにセットする
総行数 = 元.UsedRange.Rows.Count
回数 = Int(総行数 / コピー行) + IIf(総行数 Mod コピー行 > 0, 1, 0)
開始行 = 1
For i = 1 To 回数
Set シート = Sheets.Add
シート.Name = 開始行 & "～" & 開始行 + コピー行 - 1
元.Rows(開始行 & ":" & 開始行 + コピー行 - 1).Copy シート.Range("A1")
Columns("A:F").AutoFit
開始行 = 開始行 + コピー行
Next i
End Sub
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_2_thumbnail_img_sm.png)
