|
▼Jaka さん:
Option Explicit
Sub pro1()
'変数の宣言
Dim SH1 As Worksheet
Dim SH2 As Worksheet
Dim C As Long '行
Dim L As Long '列
Dim H As Variant
Dim H2 As Variant
Dim buf As Variant
Dim buf2 As Variant
'定数の宣言
Const AL = 1 'A列
Const BL = 2 'B列
Set SH1 = Worksheets("VRSRV11")
Set SH2 = Worksheets("IPアドレス")
H = SH1.Range("A1:B525")
H2 = SH2.Range("A1:B865")
Application.ScreenUpdating = False
For L = 1 To 525
buf = H(L, BL)
For C = 1 To 512
buf2 = H2(C, AL)
If buf = buf2 Then
SH1.Range(C, 4).Value = buf ←この部分でエラー
'Debug.Print buf
End If
Next C
Next L
Application.ScreenUpdating = True
End Sub
ご回答ありがとうございます。
先ほどの質問は解決したのですが、得られた結果を
転記する際にエラーとなってしまうのです。
rangeメソッドエラーとなってしまいます。
原因の教示をお願いします。
|
|