如何修改Excel VBA脚本实现对含空白间隙的数据列自动批量绘图

问题原因 #

原脚本出现无限循环的核心原因是Selection.End(xlDown)遇到空白单元格就会停止向下查找，当数据列存在间隙时，Range(Selection, Selection.End(xlDown)).Select选中的范围和当前选中范围完全一致，不会推进到下一列，导致循环一直卡在当前列。

修复方案 #

仅需要替换GraphAllColumns子过程即可，原有CreateGraph子过程无需调整：

Sub GraphAllColumns()
    Dim dataSheet As Worksheet
    Dim startCol As Integer
    Dim aLastRow As Long, colLastRow As Long
    
    ' 绑定当前工作表，避免切换工作表引发异常
    Set dataSheet = ActiveSheet
    ' 获取A列（批次标识列）的最后一行非空行号
    aLastRow = dataSheet.Cells(dataSheet.Rows.Count, "A").End(xlUp).Row
    ' 数据列起始位置为B列第7行
    startCol = dataSheet.Range("B7").Column
    
    ' 逐列遍历，直到当前列第7行为空时停止
    Do While Not IsEmpty(dataSheet.Cells(7, startCol))
        ' 从工作表底部向上查找当前列的最后一行非空数据，不受中间空白间隙影响
        colLastRow = dataSheet.Cells(dataSheet.Rows.Count, startCol).End(xlUp).Row
        ' 仅当列存在有效数据时生成图表
        If colLastRow >= 7 Then
            dataSheet.Range(dataSheet.Cells(7, startCol), dataSheet.Cells(colLastRow, startCol)).Select
            Call CreateGraph
        End If
        ' 移动到下一列
        startCol = startCol + 1
    Loop
End Sub

修复说明 #

• 采用End(xlUp)从下往上查找的逻辑，完全规避列内空白间隙对数据范围判定的影响
• 直接按列索引遍历，不依赖ActiveCell偏移操作，从根源上消除死循环风险
• 提前绑定工作表对象，运行稳定性更高

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