|
処理が遅くて悩んでいます。
6000件のデータで、項目が14個あるのですが
別シートに貼り付けると20分以上かかってます。
1個1個をコピーして別シートに貼り付けているの
が原因と思われますが
●現行の処理
i = 1
j = 1
Do While Cells(i, 3) <> ""
'●1
Windows("取引先マスター変換.xls").Activate
Sheets("作業1").Select
Cells(i, 1).Select
Application.CutCopyMode = False
Selection.Copy
Windows("OUTFILE.CSV").Activate
Sheets("OUTFILE").Select
Cells(j, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
値で貼り付けしています。
以下の方法で1レコードそのままコピーすると早いのですが
記述方法がわからないのでアドバイス御願いします。
Range(Cells(i, 3), Cells(i, 14)).Copy Destination:=Sheets("作業
1").Cells(j, 1)
やりたいことは、別のEXCELのシートに元のEXCELのシート
の内容を1レコードそのままで貼り付けたい
|
|