|
「シート3」と「Sheet4」があるのですが(同ブックです)
「シート4」のG列に「Sheet3」のB列の値があったら、
「シート4」のI列の値を、「Sheet3」のG列に書き込む。としたいのですが、
下記のようにしましたが、うまくいきません。教えて下さい。
Dim 最終行 As Integer
Dim 行 As Integer
Worksheets("Sheet4").Select
最終行 = Range("G65536").End(xlUp).Row
行 = 1
Do Until 行 > 最終行
ありなし = Application.CountIf(Worksheets("Sheet6").Range("C:C"), Cells(行, 7))
If ありなし > 0 Then
値 = Cells(行, 9).Value
Sheets("Sheet3").Select
Range("C2:C10000").Find(What:=名, LookIn:=xlValues, LookAt:=xlWhole).Select
j = ActiveCell.Address
k = Mid(j, 2, 1)
l = Mid(j, 4, 2)
Cells(l, 7) = 値
|
|