excel - 基于另一个范围值的单元格值范围

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

将不胜感激任何帮助，并告诉我一个更好的方法，如果有的话。谢谢

标签： excelvba

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