- Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
940 ：デフォルトの名無しさん[sage]：2016/09/11(日) 17:44:47.63 ID:J0QJyDCz - 100万行入力して、下のコードを何度か実行した結果②の方が平均3～4秒くらい早かったです。
②の方がコピペして手間がかかってる様に思うんですけど①の書き方に問題ありますか？
①
Range(Cells(1, 2), Cells(Rows.Count, 1).End(xlUp).Offset(, 1)) =Application.VLookup(Range("A:A"), _
Workbooks("Book2").Worksheets(1).Range("A:B"), 2, False)
②
Range(Cells(1, 2), Cells(Rows.Count, 1).End(xlUp).Offset(, 1)) = "=VLookup(A:A,[Book2]Sheet1!A:B,2,0)"
Range("B:B").Copy
Range("B:B").PasteSpecial Paste:=xlPasteValues
|
|