0

複数の Excel ファイルからいくつかの範囲のデータをコピーし、(追加して) 単一の csv ファイルに貼り付けようとしています。したがって、データを追加するには、csv ファイルの最後の行を見つける必要があります。以下のように、csv で最後の行番号を見つける方法は、Excel で最後の行番号を見つける方法とは異なりますか? Cells(Rows.Count, "a").End(xlUp) もしそうなら、どうすればcsvの最後の行を見つけることができますか? または、さまざまな Excel ファイルの範囲のデータを単一の csv ファイルに追加する方法について何か提案はありますか?

どうもありがとうございました、

4

1 に答える 1

0

これを行う良い方法は、cells(1048576,1).end(xlup).row です。これにより、最初の列が空白ではない最後の行が得られます。このためには、最初の列が空ではなく、データが含まれていることを確認する必要があります。'1048576' は、Excel 2010 の最後の行です。2007 年には、約 600000 です。Excel のバージョンに応じて変更してください。

データを追加する場合は、これを使用します

Cells(Cells(1048576, 1).End(xlUp).Row + 1, 1).Select
Activesheet.paste

お役に立てれば。

于 2013-02-04T06:25:10.603 に答える