Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20228 / 76732 ←次へ | 前へ→

【61926】Copy Destination
質問  初心者です。  - 09/6/12(金) 11:34 -

引用なし
パスワード
   処理が遅くて悩んでいます。
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レコードそのままで貼り付けたい
1 hits

【61926】Copy Destination 初心者です。 09/6/12(金) 11:34 質問
【61927】Re:Copy Destination Hirofumi 09/6/12(金) 12:40 発言

20228 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free