excel vbaで教えてください。

Visual Basic | Excel37閲覧

ベストアンサー

0

ThanksImg質問者からのお礼コメント

うまくできました。 ありがとうございました。

お礼日時:3/2 17:14

その他の回答(1件)

0

Sub sample() Dim D, E, dic As Object, i As Long, t Set dic = CreateObject("Scripting.Dictionary") With Sheets("B") D = .Range("A1", .Cells(Rows.Count, 3).End(xlUp)).Value End With For i = 1 To UBound(D) dic(D(i, 1)) = D(i, 3) Next Erase D With Sheets("A") D = .Range("E3", .Cells(Rows.Count, 5).End(xlUp)).Value ReDim E(1 To UBound(D), 1 To 1) For i = 1 To UBound(D) E(i, 1) = dic(D(i, 1)) Next .Range("C3").Resize(UBound(D)) = E End With End Sub サンプルで計測したところ 23秒→0.15秒 サンプルなので実際よりは速いかもしれないが、