"Excel vba 如果三个或更多连续单元格为空白，则将值放在另一个单元格上"

Question

我正在寻找一种解决方案来获得屏幕截图中的结果。 如果至少有 3 个或更多空格，则将第二个单元格从第一列的第一个空格更改为 "x"：

Sub findThreeEmptyCells()
Dim lastRow As Long, i As Long
Dim firstEmptyCell As Range

lastRow = Cells(Rows.Count, 5).End(xlUp).Row 

For i = 10 To lastRow
If Cells(i + 1, 5).Value = "" And Cells(i + 2, 5).Value = "" Then
    Set firstEmptyCell = Cells(i + 2, 1)
    Exit For
End If
Next i

If firstEmptyCell Is Nothing Then 
MsgBox ("There are no two empty cells in a row")
Exit Sub
End If

firstEmptyCell.Value = "x"

End Sub

Answer 1

Sub findThreeEmptyCells()
Dim lastRow As Long, i As Long
Dim firstEmptyCell As Range

lastRow = Cells(Rows.Count, 5).End(xlUp).Row ' Assuming your column A has the most data or is the row you want to check.

For i = 10 To lastRow
If Cells(i + 1, 5).Value = "" And Cells(i + 2, 5).Value = "" And Cells(i + 3, 5).Value = "" Then
    Set firstEmptyCell = Cells(i + 2, 1)
    Exit For
End If
Next i

If firstEmptyCell Is Nothing Then 
MsgBox ("There are no two empty cells in a row")
Exit Sub
End If

firstEmptyCell.Value = "x"

End Sub