| |
ブライトさん、ichinoseさん、Jakaさん こんにちは
エラー処理をしていませんが、シンプルになるよう心がけてみました。
Sub test()
Dim i As Integer
Dim n As Integer
Dim rg1 As Variant
Dim rg2 As Variant
rg1 = Worksheets("Sheet1").Cells(1).CurrentRegion.Value
rg2 = Worksheets("Sheet2").Cells(1).CurrentRegion.Value
For i = LBound(rg2, 1) To UBound(rg2, 1)
n = 0
On Error Resume Next
n = WorksheetFunction.Match(rg2(i, 1), rg1, 0)
On Error GoTo 0
If n <> 0 Then
rg1(n, 1) = rg2(i, 2)
End If
Next i
Worksheets("Sheet1").Range("B1"). _
Resize(UBound(rg1, 1), UBound(rg1, 2)) = rg1
End Sub
|
|
G-Luck
- 05/4/18(月) 18:35 -
