下記のマクロを実行すると指定のファイルのデーターを
作業ブックの指定シートに貼り付けが出来るようにしております。
作業ブックでこのマクロを実行するとかなりの時間がかかります(20秒程度)
この時間を短縮できる方法があれば教えてください。
現状のマクロ
Sub データコピペ()
Dim expressionRng, destinationRng
Dim n
'コピー元のファイルを開く
Workbooks.Open ActiveWorkbook.Path & "\" & "FDデータ.xlsx"
Set expressionRng = Workbooks("FDデータ.xlsx").Sheets("Sheet1").Range("$A$1:$OZ$12")
Set destinationRng = ThisWorkbook.Sheets("FDデータ").Range("$A$1:$B$2")
For n = 1 To expressionRng.Rows.Count
destinationRng(n, 1).RowHeight = expressionRng(n, 1).RowHeight
Next
For n = 1 To expressionRng.Columns.Count
destinationRng(1, n).ColumnWidth = expressionRng(1, n).ColumnWidth
Next
expressionRng.Copy destinationRng
Workbooks("FDデータ.xlsx").Close
Kill ActiveWorkbook.Path & "\" & "FDデータ.xlsx"
End Sub
よろしくお願いいたします。
No.5ベストアンサー
- 回答日時:
シートの中に関数式が埋め込まれている場合、効果があります。
マクロの最初と最後に、以下の行を追加してみてください。
Sub データコピペ()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
・・・途中省略・・・
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
No.3
- 回答日時:
下記のように変更してはいかがでしょうか。
expressionRng.Rows.Count → 12
expressionRng.Columns.Count → 416
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
5
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
6
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
7
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
8
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
9
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
10
エクセルVBA
Visual Basic(VBA)
-
11
エクセルのVBAコードについて教えてください。
Visual Basic(VBA)
-
12
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
13
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
14
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
15
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
16
VBAコードについて教えてください。
Visual Basic(VBA)
-
17
VBAコードについて教えてください。
Visual Basic(VBA)
-
18
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
19
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
20
エクセルのマクロについて教えてください。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 円グラフ 特定条件に一致し...
-
VBA 別ブックからコピペしたい...
-
Vba UserformからExcelシートの...
-
VBA 別ブックから条件に合うも...
-
Excel 範囲指定スクショについ...
-
【ExcelVBA】インデックスが有...
-
Excel_VBAについて質疑です。(...
-
[VB.net] ボタン(Flat)のEnable...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
Outlookの「受信日時」「件名」...
-
Excel VBAで値を変えながら、pd...
-
Vba SelStart、SelLen教えてく...
-
ExcelVBA シート名を複数セルか...
-
ファイル名の日付について教え...
-
Excel VBA 選択範囲の罫線色の...
-
2つのマクロでチェックボックス...
-
VB.net(VB)で、フォームにExcel...
-
エクセルvbaについて
-
pdfファイルの複数添付 引数の型
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 選択範囲の罫線色の...
-
時間短縮のために、テキストフ...
-
サブフォルダに格納されている...
-
IF文、条件分岐の整理方法
-
エクセルのマクロについて教え...
-
【ExcelVBA】値を変更しながら...
-
VBAコードのインデント表示
-
VBA 別ブックからコピペしたい...
-
エクセルのマクロについて教え...
-
ExcelVBA修正のお願い
-
vbs ブック共有を解除
-
ワードVBA どの表か知ることは...
-
エクセルのマクロについて教え...
-
[VB.net] ボタン(Flat)のEnable...
-
エクセルのVBAコードについて教...
-
Vba TextBox1.ControlSourceに...
-
Outlookの「受信日時」「件名」...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
おすすめ情報