创建一个宏来制作数据透视表和直方图不起作用。

1. 打开Excel并选择数据源。在本例中，我们将使用包含销售数据的表。

2. 转到'开发工具”选项卡并单击'Visual Basic”。

3. 在Visual Basic中，单击插入> 模块。

4. 粘贴以下代码：

Sub CreatePivotTableAndHistogram()

Dim ws As Worksheet

'输入工作表名称 Set ws = Worksheets("Sheet1")

'创建数据透视表 ws.PivotTableWizard TableDestination:=ws.Range("F1"), SourceType:=xlDatabase, SourceData:= _ ws.Range("A1").CurrentRegion, RowGrand:=True, ColumnGrand:=True, _ SaveData:=True, HasAutoFormat:=True, AutoPage:=True, _ Reserved:=True, BackgroundQuery:=False, OptimizeCache:=True, _ PageFieldOrder:=xlDownThenOver, Orientation:=xlColumnField, _ DataPivotField:=ws.Range("B1"), DataPivotFieldType:=xlSum, _ DataPivotTableRange:=ws.Range("A1").CurrentRegion

'创建直方图 ws.Shapes.AddChart.Select ActiveChart.ChartType = xlColumnClustered

End Sub

5. 将代码中的'Sheet1”替换为你要使用的工作表的名称。

6. 运行宏。 可以使用快捷键F5或单击'运行”选项卡中的'运行”。

7. 在运行完成后，将自动创建数据透视表和直方图。

请注意，此代码适用于当前工作簿的第一个工作表，而且假设您已经理解了数据透视表和直方图的基本概念。 根据您的数据和您的需求进行调整。

通过简单地记录宏来创建这种类型的文件可能会更容易，但具有此自定义的解决方案能够让您对每个功能进行更好地控制。

请注意，此代码适用于当前工作簿的第一个工作表，而且假设您已经理解了数据透视表和直方图的基本概念。 根据您的数据和您的需求进行调整。