0

目標：不連続な範囲、具体的には13列（1列おき）をクリックイベント時に幅13列、長さ132行のデータの連続範囲に等しく設定するVBAサブを記述します。

並べて比較できるようにしたい2つの財務諸表があります。アクティブなxボタンをクリックし、財務諸表1の列の間に列を挿入してから、財務諸表2（別のシートに含まれている）から列を取得し、財務諸表1の対応する列の横に表示します。

VBAコードのみを使用します。何を取ります

合計|1月|2月|3月....そしてそれを作ります

合計|合計|1月|1月|2月|2月|3月|3月.....

私が開発した現在のコードは非常に遅く実行され、何らかの理由で各列の間に「6月」の列が挿入されます。

ヘルプ！

Sub BudgetBudgetCheck_Click()

If BudgetActual.Value = "True" And BudgetBudgetCheck.Value = "True" Then
    For colx = 6 To 36 Step 2
    Columns(colx).Insert shift = xlRight
    Next
    End Sub

Private Sub BudgetActual_Click()
For i = 4 To 28 Step 2
For j = 2 To 14
Columns(i).Value = Worksheets("P&L - Monthly Budget").Columns(j).Value
Next
Next
End If
End Sub
4

1 に答える 1

0 
Dim rngOne as range, rngTwo as range, x as long, col_offset

Set rngOne = worksheets("statement1").Range("A1").resize(132,13)
Set rngTwo = worksheets("statement2").Range("A1").resize(132,13)

with worksheets("summary")
    .usedrange.clearcontents
    for x=1 to 13
        col_offset = (x-1)*2      
        rngOne.columns(x).copy .cells(1,col_offset+1)
        rngTwo.columns(x).copy .cells(1,col_offset+2)
    next x
end with
于 2013-02-08T01:37:18.180 に答える