excel - 使用 VBA 将 if 语句应用于单元格范围

Question

我有一小部分细胞，C6:C10。我正在尝试使用 VBA 代码将 if 语句应用于此单元格范围。目前，我的代码获取第一个单元格 (C6) 的 if 语句的输出，并为单元格 C7:C10 复制该值。 if 语句是正确的，我只是不确定如何将其应用于列中的一系列单元格。

Sub Cleanup()
Dim Segment As String
Dim i As Integer
Segment = ActiveCell(6, 3).Value
For i = 6 To 10
    If Right(Left(Segment, 6), 1) = "/" Then
        ActiveCell(i, 3).Value = Left(Segment, 5)
    Else
        ActiveCell(i, 3).Value = Left(Segment, 6)
    End If
Next i
End Sub

Answer 1

如果您使用 Cells 而不是 ActiveCell 应该没问题，只是您必须将循环从 7 更改为 10，否则它将覆盖原始单元格以及 C7:C10。

Sub Cleanup()
Dim Segment As String
Dim i As Integer
Segment = Cells(6, 3).Value
For i = 7 To 10
    If Right(Left(Segment, 6), 1) = "/" Then
        Cells(i, 3).Value = Left(Segment, 5)
    Else
        Cells(i, 3).Value = Left(Segment, 6)
    End If
Next i
End Sub