vba 自动生成excel 报表

是的，VBA可以帮助我们自动生成Excel报表。这里我给你一个简单的例子：

1. 首先打开Excel文件，按下Alt+F11组合键打开VBA编辑器。
2. 在VBA编辑器中，选择插入->模块，然后在模块中编写生成报表的VBA代码，例如：

Sub CreateReport()
   '定义变量
   Dim ws As Worksheet
   Dim i As Integer
   Dim j As Integer
   
   '添加新工作表
   Set ws = ThisWorkbook.Sheets.Add
   
   '设置工作表名称
   ws.Name = "Report"
   
   '填充数据
   ws.Cells(1, 1) = "Name"
   ws.Cells(1, 2) = "Age"
   ws.Cells(2, 1) = "John"
   ws.Cells(2, 2) = 25
   ws.Cells(3, 1) = "Mary"
   ws.Cells(3, 2) = 30
   
   '设置表格样式
   ws.Range("A1:B1").Font.Bold = True
   ws.Range("A1:B1").Interior.ColorIndex = 15
   ws.Range("A1:B3").Borders.LineStyle = xlContinuous
   
   '自动适应列宽
   ws.Columns.AutoFit
   
   '保存Excel文件
   ThisWorkbook.SaveAs "D:\report.xlsx", FileFormat:=xlOpenXMLWorkbook
   
   '关闭Excel文件
   ThisWorkbook.Close
End Sub

3. 在VBA编辑器中，按下F5或者选择运行->运行子过程，就可以自动生成一个Excel报表，保存在指定路径下。

这是一个简单的例子，实际上VBA可以实现更复杂的自动生成报表的功能，比如通过连接数据库、读取外部数据源等方式来生成报表。