GPT 也没吹的这么神啊,一个 VBA 写了一个小时了

查看 51|回复 2
作者:jsjcjsjc   
GPT 也没吹的这么神啊,一个 VBA 写了一个小时了
```
使用 excel VBA 编写一个宏,名字为"数据分析",存放在当前文档
要求如下:
将当前 sheet 的 E 列,F 列,G 列在新的 sheet"analyse"中进行数据透视,如果已经存在 sheet"analyse",则覆盖.
将 E 列放入"行"
将 F 列和 G 列放入"值",并且都为求和项
```

VBA, Sheet, analyse, GPT

laila   
用 gpt4 试试
beimenjun   
检查自己的网络情况
Sub 数据分析()
Dim ws As Worksheet
Set ws = ActiveSheet ' 获取当前活动 sheet
Dim analyse_ws As Worksheet
On Error Resume Next ' 尝试打开 "analyse" sheet ,如果不存在则出错,然后创建一个新的 sheet
Set analyse_ws = ThisWorkbook.Worksheets("analyse")
If analyse_ws Is Nothing Then
Set analyse_ws = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
analyse_ws.Name = "analyse"
End If
On Error GoTo 0

' 数据透视表设置
analyse_ws.Cells.ClearContents
analyse_ws.Activate
Dim pvtTable As PivotTable
Set pvtTable = analyse_ws.PivotTableWizard(SourceType:=xlDatabase, SourceData:=ws.UsedRange, TableDestination:=analyse_ws.Range("A1"), TableName:="数据透视表")
With pvtTable
.PivotFields("E").Orientation = xlRowField
.AddDataField .PivotFields("F"), "F 求和", xlSum
.AddDataField .PivotFields("G"), "G 求和", xlSum
End With
End Sub
您需要登录后才可以回帖 登录 | 立即注册

返回顶部