1

私は現在、デジタル プロジェクトに取り組んでおり、100 以上の FB Excel ファイルからデータを分析する必要があります。

私の分析プロセスの一部は、常に同じである特定のセルからデータを抽出することです。

ご理解のとおり、無駄な時間の浪費を避けるためにマクロを作成したいと思います。

ファイルに抽出する方法は知っていますが、別のファイルにコピーするためにマクロを調整したいと考えています。

私が持っているコードは次のとおりです。

***Range("A9:D9").Select

選択.コピー

Windows("test2.xlsx").アクティブ化

ActiveSheet.Paste***

ここで、データを空の行に貼り付けて、何百もの行を上下に並べたいと思います (FB 抽出ごとに 1 つ)。

膨大な時間の無駄を避けるために、誰かが正しいコードを教えてくれませんか?

4

2 に答える 2

0

マクロが「概要」ワークブックにあり、FB ファイルが開いていてアクティブな場合:

ActiveSheet.Range("A9:D9")Copy _
   ThisWorkbook.Sheets("Data").Cells(Rows.Count,1).End(xlup).offset(1,0)
于 2012-11-27T21:38:18.767 に答える
0

次の使用可能なセルを選択するための同様の操作に使用するコードの抜粋を次に示します。

'Insert after Your Windows("test2.xlsx").Activate in place of your paste Code.....
'This gives you the variable for the last cell with a value
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
'This section selects the next cell below your last used cell and pastes the information.
ActiveSheet.Range("A" & lastRow + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Rest of Code....

これがあなたが探していたものであることを願っています。

于 2012-11-27T21:40:55.113 に答える