VBA - 各セル

Question

ための複数の条件私は実行することはできません。このコードの問題を解決しようとしている：

'======================================================================== 
' CHECKS IF MARKET SECTOR IS EMPTY (FOR LEDGER) 
'======================================================================== 

Private Sub Fill_MarketSector() 

Dim LastRow As Long 
Dim rng As Range, C As Range 

With Worksheets("Ready to upload") ' <-- here should be the Sheet's name 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ' last row in column A 
    Set rng = .Range("A2:A" & LastRow) ' set the dynamic range to be searched 
    Set rng2 = .Range("F2:F" & LastRow) 

    ' loop through all cells in column A and column F 
    For Each C In rng and For Each C in rng2 
     If rng.C.Value = "Ledger" and rng2.C.value IsEmpty Then 
      C.Value = "599" ' use offset to put the formula on column "L" 
     End If 
    Next C 
End With 

End Sub 

列Aは、単語「元帳」と列Fが含まれている場合、コードをチェックする必要があります空である場合は、列 "F" 599に入れる必要があります。常に最後の行にチェックする必要があります。私を手伝ってくれますか？

ありがとうございます！

Answer 1

あなたは、列Aのセルをループして、列Fのため.Offsetを使用して、列F内伴うセルにアクセスすることができ、列Lに値を入れて、再びオフセット

' loop through all cells in column A and column F 
For Each C In rng 
    If LCase(C.Value) = "ledger" and IsEmpty(C.Offset(0, 5) Then 
     C.Offset(0, 11) = 599 'use offset to put the number on column "L" 
    End If 
Next C