Excel VBA自动筛选后查找指定列下一个可见空白单元格

原有定位N列空白单元格的逻辑未对筛选状态做适配：SpecialCells(xlCellTypeBlanks)会遍历指定范围内的所有单元格，包含被自动筛选隐藏的行，因此会错误匹配到不符合筛选条件的隐藏行中的空单元格。
另外注意：AutoFilter的Field参数是相对于筛选范围的列序号，而非工作表全局列号。你代码中筛选范围以B列为起始列，若要筛选B列，Field应设为1，原代码写的Field:=3实际对应筛选范围第3列（即工作表D列），可根据实际筛选需求调整。

Sub Replanning_Lasers()
    Dim Orderbook As String
    Dim Supply As String
    Dim wsList As Worksheet, wsPlan As Worksheet
    Dim NextFree As Long
    Dim visibleRng As Range, c As Range
    
    ' 直接绑定工作表，减少Select操作提升稳定性
    Set wsList = ThisWorkbook.Sheets("List")
    Set wsPlan = ThisWorkbook.Sheets("Planning")

startofloop:
    Orderbook = Sheet25.Range("C14")
    Supply = Sheet25.Range("D14")

    If Orderbook > Supply Then GoTo endofloop

    ' 执行筛选，若要筛选B列请将Field改为1，此处保留原逻辑可按需调整
    wsList.Range("$B$4:$BN$1533").AutoFilter Field:=3, Criteria1:="LASER"
    
    ' 取筛选后N列（从第5行开始）的可见单元格范围
    On Error Resume Next
    Set visibleRng = wsList.Range("N5:N" & wsList.Cells(wsList.Rows.Count, "N").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 无符合条件的可见行直接退出循环
    If visibleRng Is Nothing Then GoTo endofloop
    
    ' 遍历可见行，找第一个N列为空的行号
    NextFree = 0
    For Each c In visibleRng
        If c.Value = "" Then
            NextFree = c.Row
            Exit For
        End If
    Next c
    
    ' 可见行中无空N列直接退出
    If NextFree = 0 Then GoTo endofloop

    ' 复制对应I列值到规划表
    wsList.Range("I" & NextFree).Copy
    wsPlan.Range("C9").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False, Transpose:=False
    
    Call BUT_Planning_reset
    Call BUT_Planning_Find_First

    ' 回写计算后的值到List表N列
    wsPlan.Range("M9").Copy
    wsList.Range("N" & NextFree).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False, Transpose:=False
    
    ' 清空剪贴板避免弹窗
    Application.CutCopyMode = False
    GoTo startofloop

endofloop:
    ' 释放对象
    Set visibleRng = Nothing
    Set wsList = Nothing
    Set wsPlan = Nothing
    Application.CutCopyMode = False
End Sub

• 新增工作表对象绑定，减少冗余Select操作，避免工作表切换导致的定位错误
• 筛选后先提取N列的可见单元格范围，仅在该范围内遍历查找第一个空单元格，完全排除隐藏行干扰
• 增加空范围容错判断，当筛选后无可见行、或可见行N列无空值时直接退出逻辑，避免运行时报错
• 补充所有变量的显式声明，避免未定义变量导致的隐式类型转换错误
• 增加剪贴板清空逻辑，避免代码运行后出现剪贴板占用提示

内容的提问来源于stack exchange，提问作者Luke Davies