Excelで質問です。
下記のようなマクロの記録を使用し「顧客一覧」のブックにデータを追加しています。
しかし、処理の中で一項目コピーするごとにファイルを行ったり来たりしているようで処理が遅いようです。何か解決策はあるのでしょうか?
・
・
・
Windows("顧客一覧.xls").Activate
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Windows("2.xls").Activate
Range("C6").Select
Selection.Copy
Windows("顧客一覧.xls").Activate
Range("A4").Select
ActiveSheet.Paste
Windows("2.xls").Activate
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("顧客一覧.xls").Activate
Range("B4").Select
ActiveSheet.Paste
Windows("2.xls").Activate
Range("C8").Select
Application.CutCopyMode = False
Selection.Copy
・
・
No.2
- 回答日時:
特にその都度BookをActivateしなくても値は取得できます。
なので
顧客一覧.xlsの方に以下のマクロを登録すれば良いのではないでしょうか?
これだと、ブックの移動やコピー&ペースト動作をするわけではないので、非常に高速に処理してくれると思います。
Rows("4:4").Select
Selection.Insert Shift:=xlDown
n = 6
Do
If Workbooks("2.xls").Worksheets(1).Cells(n, 3) <> "" Then
Cells(4, n - 5).Value = Workbooks("2.xls").Worksheets(1).Cells(n, 3)
n = n + 1
Else
Exit Do
End If
Loop
No.1ベストアンサー
- 回答日時:
こちらが参考になるでしょう。
最適化の基本です。
http://officetanaka.net/excel/vba/cell/cell09.htm
Windows("2.xls").Activate
Worksheets("Sheet1").Activate
With Windows("顧客一覧.xls").Worksheets("Sheet2")
Range("C6").Copy .Range("A4")
Range("C7").Copy .Range("B4")
End With
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) 指定の条件に応じたセルの場所に〇印(図形)を描く 2 2022/11/08 15:26
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) ExcelVBA No.を自動連番で設定をしながらデータ入力をしたい 2 2022/08/03 18:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA テキストボックス検索
-
エクセルで「3次元配列」表の...
-
VBA リストボックス反映できない
-
Excelの集計をWordで差し込み印...
-
今繋がらない携帯番号の前の所...
-
ブラウザを使ったFTPサーバへの...
-
エクセルで顧客の継続率
-
エクセルマクロ ブックをアクテ...
-
【EXCEL】検索機能を追加...
-
読み取ったQRコード/バーコード...
-
バーコードってダブらない?
-
EXCELでバーコードを作成すると...
-
国内線航空券をJALのアプリにて...
-
差し込み印刷のバーコードを小さく...
-
バーコードコントロールが印刷...
-
コンビニバイトで商品バーコー...
-
EXCELで作成したバーコードの更...
-
Excelでバーコードリーダーで読...
-
QRコードとバーコードについて
-
NECバーコードリーダー PK-UP0...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで「3次元配列」表の...
-
<新設税理士事務所です>ミロ...
-
顧客CDのCDって?
-
VBA。リストボックスの値を別の...
-
エクセルで並び替えするとハイ...
-
エクセルの数式で教えてください。
-
エクセルVBA テキストボックス検索
-
VBA リストボックス反映できない
-
EXCELシート内の数字での並び替...
-
エクセルで顧客の継続率
-
Excel 指定した固有番号で、複...
-
アクセスでのデータ抽出方法
-
対象月の2桁表示について
-
エクセルでのデータ作成(数値...
-
顧客名簿管理、郵便振込取扱票...
-
エクセルでのデータ拾い
-
エクセルデータ。容量を減らす...
-
【ExcelVBA】顧客別に抽出デー...
-
お客さんの来店間隔が知りたい...
-
顧客データと請求書、売上帳を...
おすすめ情報