vba - EXCEL VBA セルのコピー + ループ + 区切り

Question

私は appx 3000 行を持っており、最終結果としてピボット対応セルが必要です。

1)コピーして

2)ループ

ループは 6 つのセルで構成されます。D2 と D3、F2 から D4、F3 から D5、G2 から D6、G3 から D7。

最初のループを開始するセルの相対的な配置に問題があります。

3)区切る

固定幅で区切るにはどうすればよいですか？私は多くのいわゆる指示を見つけましたが、サンプルケースはありません。

アドバイスをありがとう。

Answer 1

あなたが使用することができます

Sub LoopRange()
'officevb.com
Dim rgArray As Variant
Dim rg As Range
Dim i As integer

'if your range not mutable use
rgArray = Array("D2:D3", "D4:F2", "D5:F3", "D6:G2", "D7:G3")

For i = LBound(rgArray) To UBound(rgArray)
    For Each rg In Sheets(1).Range(rgArray(i))
        Debug.Print rg.Address
    Next rg
Next i

End Sub