如果左边的值是“Home”,则写入True

时间:2015-06-11 15:28:08

标签: vba excel-vba excel

如果左边的值是“home”,我需要一个在B列中粘贴true的宏,如果不是,则需要false。我试图使用If和Else staments,但是当我的值是字母时,我无法弄清楚如何创建代码。

1 个答案:

答案 0 :(得分:1)

这应该可行,但未经测试:

Sub CheckColumn()
Dim maxrow As Integer, i As Integer

With ActiveSheet
    maxrow = .UsedRange.Rows.Count
    For i = 1 To maxrow
        If .Cells(i, 1) = "home" Then
            .Cells(i, 2) = "true"
        Else
            .Cells(i, 2) = "false"
        End If
    Next i
End With

End Sub

再次......公式方法会更容易。