Visual Basic中使用isEmpty跳过A列空行实现按需打印的问题求助

修改后的代码 #

Sub PrintAllRecords()
    Dim RowCount As Long, i As Long
    RowCount = Worksheets("Input").Cells(Rows.Count, 1).End(xlUp).Row

    Worksheets("Print-Auto (2)").Select
    For i = 1 To RowCount
        ' 判断Input表当前行A列非空时才执行打印
        If Trim(Worksheets("Input").Cells(i, "A").Value) <> "" Then
            Range("B1").Value = i
            ActiveSheet.PrintOut Copies:=1
        End If
    Next i
End Sub

核心修改说明 #

• 在循环内新增了A列非空判断逻辑，只有Input表对应行A列有内容时才会触发打印操作
• Trim函数用于过滤A列仅包含空格的无效行，如果你不需要过滤空格场景，直接去掉Trim即可
• 你可以根据自己的业务需求决定是否保留原代码RowCount计算时的减1逻辑，原逻辑会自动跳过最后一行数据

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