Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3505 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【61926】Copy Destination 初心者です。 09/6/12(金) 11:34 質問[未読]
【61927】Re:Copy Destination Hirofumi 09/6/12(金) 12:40 発言[未読]
【61926】Copy Destination
質問  初心者です。  - 09/6/12(金) 11:34 -
引用なし
パスワード
   処理が遅くて悩んでいます。
６０００件のデータで、項目が１４個あるのですが
別シートに貼り付けると２０分以上かかってます。

１個１個をコピーして別シートに貼り付けているの
が原因と思われますが

●現行の処理

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)
　
　やりたいことは、別のＥＸＣＥＬのシートに元のＥＸＣＥＬのシート
　の内容を１レコードそのままで貼り付けたい
【61927】Re:Copy Destination
発言  Hirofumi  - 09/6/12(金) 12:40 -
引用なし
パスワード
   Public Sub Sample()

　　Workbooks("取引先マスター変換.xls").Sheets("作業１") _
　　　　　　.Cells(1, 1).CurrentRegion.Copy _
　　　　　　　　　　Destination:=Workbooks("OUTFILE.CSV") _
　　　　　　　　　　　　　　.Sheets("OUTFILE").Cells(1, 1)

End Sub

じゃ、だめなの？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3505 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free