如果Row＆＃34; L＆＃34;包含任何值，返回字母＆＃34; V＆＃34;在D行

Question

我在Excel中使用VBA和宏非常新，我仍然在解决问题。我会说我发现这个网站是最好的帮助。我认为我遇到的问题很简单，但无法弄清楚从哪里开始。

我想要回信＃34; V＆＃34;在列D中，如果列P包含任何值...即 - P1中有一个字母..返回＆＃34; V＆＃34;到D1。 P列将填充早期的sub（）

谢谢！

Answer 1

考虑：

Sub PlaceV()
    Dim rng As Range, r As Range
    Set rng = Intersect(ActiveSheet.UsedRange, Range("P:P")).Cells
    For Each r In rng
        If r.Value <> "" Then
            Cells(r.Row, "D").Value = "V"
        End If
    Next r
End Sub

Answer 2

我认为你不必使用VBA来解决这类问题，有一个开箱即用的excel函数可以检查一个单元格是否为空。您可以将它与If-Statement结合使用，在列中输出“V”，具体取决于另一列中是否有值。如果你想逐个检查单元格，可以使用“IS BLANK”。如果你想一次检查几个单元格，你可以和你要检查的范围大小一起去COUNTA。