VBA直方图宏报错：无法设置标题、位置及动态数据范围

先处理错误 #

「Can't execute code in break mode」不是代码语法错误，是VBA编辑器处于中断状态导致的，按以下步骤重置状态：

• 按下Alt+F11打开VBA编辑器
• 点击工具栏中的重置按钮（蓝色方块图标，位于运行按钮左侧）
• 关闭并重新打开Excel文件，再尝试运行宏

实现需求的修正宏代码 #

以下是完成三个功能的Macro_Histogram_VariableRange宏，包含动态数据范围、标题设置及位置调整：

Sub Macro_Histogram_VariableRange()
    Dim targetSheet As Worksheet
    Dim lastDataRow As Long
    Dim targetChart As ChartObject
    Dim dataSource As Range
    
    ' 替换为你的目标工作表名称
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取数据最后一行（假设数据在B列，按需修改列标）
    lastDataRow = targetSheet.Cells(targetSheet.Rows.Count, "B").End(xlUp).Row
    
    ' 定义动态数据范围（假设数据从B3开始，按需调整起始行）
    Set dataSource = targetSheet.Range("B3:B" & lastDataRow)
    
    ' 创建新直方图（若要修改已有图表，替换为Set targetChart = targetSheet.ChartObjects("Chart 1")）
    Set targetChart = targetSheet.ChartObjects.Add(Left:=100, Width:=375, Top:=75, Height:=225)
    targetChart.Chart.SetSourceData Source:=dataSource
    
    ' 设置图表标题为B2内容
    targetChart.Chart.HasTitle = True
    targetChart.Chart.ChartTitle.Text = targetSheet.Range("B2").Value
    
    ' 将标题置于图表上方
    targetChart.Chart.ChartTitle.Position = xlChartTitlePositionAboveChart
End Sub

注意事项 #

• 替换代码中的Sheet1为你实际操作的工作表名称
• 调整数据列（当前为B列）和数据起始行（当前为B3）匹配你的数据结构
• 如果是修改已存在的图表，删除创建图表的代码行，改用指定已有图表对象的代码

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