VBA：如何找到同一行中的下一个单元格（不包括隐藏单元格）

Question

我使用 Vlookup 返回第一列中的值，但是该列中只有一半的单元格返回了值（另一半为空白）。我希望我的宏在所有空的 Vlookup 单元格中输入一个空格“”，而不是将 Vlookup 方程保留在单元格中。我想归档列中的所有值，然后将空白单元格更改为 =“”

我的最终目标是根据单元格 I 是否具有值或空白在每一行上张贴注释。如果任何给定行的单元格 I 为空白，则该行 K 列中的单元格将自动填写“已处理尚未支付”，如果单元格 I 中有值，则单元格 K 将自动填写“已支付”

我的问题是我不知道如何编写一个方程来避免隐藏单元格（从过滤器中隐藏）并且只更改过滤器后显示的单元格的值。我的列标题在第 4 行，我的代码如下所示：

Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row

Range("A4:K" & Lastrow).Select
Selection.AutoFilter
ActiveSheet.Range("$A$4:$K" & Lastrow).AutoFilter Field:=9, Criteria1:="="
Range("I4").Offset(1, 0) = " "
Selection.AutoFill Destination:=Range("Range("I4").Offset(1, 0):I" & 
Lastrow)

Answer 1

有几种方法可以解决您的问题。首先，您可以在 K 列中输入一个公式来检查 I 列中的单元格是否为空白：

=IF(I4<>"","Paid","Processed Not Yet Paid")

或者，如果您真的在寻找宏观解决方案，只需逐个单元格地检查值：

Sub WhoDidntPay()
Dim lastrow As Long, i As Long
lastrow = Cells(Rows.Count, "C").End(xlUp).Row

For i = 4 To lastrow
    If ActiveSheet.Range("I" & i).Value <> "" And _
       ActiveSheet.Range("G" & i).Value = <> 0 Then
        ActiveSheet.Range("K" & i).Value = "Processed Not Yet Paid"
    Else
        ActiveSheet.Range("K" & i).Value = "Paid"
    End If
Next i
End Sub

再次，我建议在您的VLOOKUPs 中添加一个IFERROR，这样如果您遇到错误，或者如果它们真的返回空白，您可以返回一个一致的值，可以使用"" 就像在上面的例子。