将 Excel 名称转换为图形

2024-02-27 12:53:46

在 Excel 中，将名称转换为图形可以是一个方便的技巧，它可以帮助您快速可视化数据并发现模式和趋势。虽然 Excel 没有内置的函数可以执行此操作，但有一种方法可以利用 VBA 宏来实现此目的。

步骤：

打开包含您要转换为图形的名称的 Excel 工作簿。
按 Alt + F11 打开 VBA 编辑器。
在“插入”菜单中，选择“模块”。
将以下代码粘贴到模块中：

Sub ConvertNamesToChart()

    Dim rng As Range, chart As ChartObject

    ' 选择包含名称的单元格范围
    Set rng = Application.InputBox("选择包含名称的单元格范围：", Type:=8)

    ' 获取唯一名称列表
    Dim names As Variant
    names = Application.Transpose(rng.Value)
    names = Application.WorksheetFunction.Unique(names)

    ' 在新工作表中创建柱形图
    Sheets.Add.Name = "名称图表"
    Set chart = ActiveSheet.ChartObjects.Add(100, 100, 400, 300)

    ' 设置图表类型和数据
    With chart
        .ChartType = xlColumnClustered
        .SetSourceData rng, xlColumns
    End With

    ' 添加名称标签
    With chart.Chart
        .HasLegend = True
        .Legend.Position = xlLegendPositionBottom
        .Legend.Font.Size = 10
    End With

    ' 设置标题和轴标签
    With chart.Chart
        .ChartTitle.Text = "名称图表"
        .ChartTitle.Font.Size = 14
        .Axes(xlCategory).AxisTitle.Text = "名称"
        .Axes(xlValue).AxisTitle.Text = "值"
    End With

End Sub