0

セル B358 から B362 の数式を取得し、これらの行を行 2 で使用される最後の列に自動入力するマクロを作成しようとしています。

私は VBA の初心者で、このようなフォーラムを検索することで完全に独学しましたが、残念ながら解決策が見つかりません。

私を助けてください

編集：

コードを見る必要がある場合は、非常に基本的な例を示します

Sub Macro1()

    Range("B358:B362").Select
    Selection.AutoFill Destination:=Range("B358:AHQ362"), Type:=xlFillDefault
    Range("B358:AHQ362").Select
End Sub

この例では、AutoFill の宛先を (B358:"insert last column used in row 2 here"362) にする必要があります。

4

1 に答える 1

0

それはあなたの状況で提案された動的な解決策です：

Sub Macro1()


Dim lastCol As Long
lastCol = Cells(2, Columns.Count).End(xlToLeft).Column

 Range("B358:B362").AutoFill Destination:=Range(Range("B358"), Cells(362, lastCol)), Type:=xlFillDefault

End Sub
于 2013-04-08T09:22:43.823 に答える