基於另一個范圍值的單元格值范圍

Question

我正在嘗試根據 A 列中的值填充工作表上的 C 列值。因此，如果 A 列值為 1，那么我希望 C 列中相應單元格中的值為 10，否則什么也不做。

Sub test()

For Each cell In Sheets("Report").Range("A9:A" & LastRow)
   If cell.Value = 1 Then
      cell.Offset(0, 2).Value = 10
   End If
Next cell

End Sub

將不勝感激任何幫助，並告訴我一個更好的方法，如果有的話。 謝謝

Answer 1

試試下面的子。

Sub test()
Dim sh As Worksheet
Dim cel As Range
Dim LastRow As Long

    Set sh = ThisWorkbook.Worksheets("Report")
    LastRow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row
    For Each cel In sh.Range("A9:A" & LastRow)
       If cel.Value = 1 Then
          cel.Offset(0, 2).Value = 10
       End If
    Next cel
    Set sh = Nothing

End Sub