如何修改VBA代码，在Alerts下方整行空行处添加Checkbox？

需求说明 #

先在工作表中查找文本"Alerts"，检查其下方的整行是否为空，若为空则在该行A列单元格添加复选框；循环迭代时，继续查找下一个"Alerts"，再检查其下方的整行空行，完成相同操作。

修改后的完整代码 #

Sub AddCheckboxesAfterAlerts()
    Dim y As Long
    Dim alertCell As Range
    Dim firstAlertAddr As String
    Dim targetRow As Long
    Dim s1 As Worksheet
    
    ' 指定目标工作表，根据实际情况修改表名
    Set s1 = ThisWorkbook.Worksheets("Sheet1")
    
    ' 首次定位"Alerts"单元格
    Set alertCell = s1.Cells.Find(What:="Alerts", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not alertCell Is Nothing Then
        firstAlertAddr = alertCell.Address
        
        ' 遍历box_name数组，同步查找对应"Alerts"
        For y = LBound(box_name) To UBound(box_name)
            targetRow = alertCell.Row + 1
            ' 检查目标行是否整行为空
            If WorksheetFunction.CountA(s1.Rows(targetRow)) = 0 Then
                ' 在A列对应行添加无标题复选框
                With s1.CheckBoxes.Add( _
                    Left:=s1.Range("A" & targetRow).Left, _
                    Top:=s1.Range("A" & targetRow).Top, _
                    Width:=s1.Range("A" & targetRow).Width, _
                    Height:=s1.Range("A" & targetRow).Height)
                    .Caption = ""
                End With
                ' 设置B列提示文本
                s1.Range("B" & targetRow).Value = "set up alerts on " & CStr(box_name(y)) & " with following specs"
            End If
            
            ' 查找下一个"Alerts"
            Set alertCell = s1.Cells.FindNext(After:=alertCell)
            ' 防止循环回到首个"Alerts"造成无限循环
            If alertCell.Address = firstAlertAddr Then Exit For
        Next y
    End If
End Sub

关键修改点说明 #

• 精准定位目标文本：用Find+FindNext遍历所有"Alerts"单元格，替代原代码中找A列最后一行的逻辑，完全匹配需求
• 整行空行判断：通过WorksheetFunction.CountA检查整行非空单元格数量，判断逻辑更准确
• 优化代码效率：去掉冗余的Select操作，直接操作对象，减少运行耗时
• 循环逻辑匹配：每迭代一次数组元素，就定位下一个"Alerts"，确保操作对应关系正确

内容的提问来源于stack exchange，提问作者wasif ahmed