| |
処理が遅くて悩んでいます。
６０００件のデータで、項目が１４個あるのですが
別シートに貼り付けると２０分以上かかってます。
１個１個をコピーして別シートに貼り付けているの
が原因と思われますが
●現行の処理
i = 1
j = 1
Do While Cells(i, 3) <> ""
'●1
Windows("取引先マスター変換.xls").Activate
Sheets("作業１").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
値で貼り付けしています。
以下の方法で１レコードそのままコピーすると早いのですが
記述方法がわからないのでアドバイス御願いします。
Range(Cells(i, 3), Cells(i, 14)).Copy Destination:=Sheets("作業
１").Cells(j, 1)
やりたいことは、別のＥＸＣＥＬのシートに元のＥＸＣＥＬのシート
の内容を１レコードそのままで貼り付けたい
|
|
初心者です。
- 09/6/12(金) 11:34 -
