VBA翻译,求大神解释一下,感激万分

Sheets("助手搜索词报告").Select Columns("A:B").Select Range("B1").Activate ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "助手搜索词报告!R1C1:R1048576C2", Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:="搜索词!R1C1", TableName:="数据透视表3", DefaultVersion:= _ xlPivotTableVersion14 Sheets("搜索词").Select Cells(1, 1).Select With ActiveSheet.PivotTables("数据透视表3").PivotFields("关键词") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("数据透视表3").PivotFields("搜索词") .Orientation = xlRowField .Position = 2 End With With ActiveSheet.PivotTables("数据透视表3") .InGridDropZones = True .RowAxisLayout xlTabularRow End With ActiveWorkbook.ShowPivotTableFieldList = False Sheets("助手搜索推广报告").Select Columns("L:M").Select Selection.Cut Columns("F:F").Select Selection.Insert Shift:=xlToRight Columns("D:D").Select Selection.Cut Columns("H:H").Select Selection.Insert Shift:=xlToRight Columns("J:M").Select Selection.Delete Shift:=xlToLeft Columns("H:I").Select Range("I1").Activate Selection.Cut Columns("Q:Q").Select Selection.Insert Shift:=xlToRight Columns("P:P").Select Selection.TextToColumns Destination:=Range("P1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="?", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True Range("Q1").Select ActiveCell.FormulaR1C1 = "后缀" Columns("P:Q").Select Selection.Cut Columns("H:H").Select Selection.Insert Shift:=xlToRight Columns("Q:Q").Select Selection.TextToColumns Destination:=Range("Q1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="?", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True Range("R1").Select ActiveCell.FormulaR1C1 = "后缀" Columns("Q:R").Select Range("R1").Activate Selection.Cut Columns("H:H").Select Selection.Insert Shift:=xlToRight
2026年09月27日 06:22
有1个网友回答
网友(1):

这么长的一段一看就知道是录制的宏,每一句的意思就是录制当时对Excel的每一步操作。工作簿选择,列复制,单元格激活,数据透视,列剪贴,插入。

具体哪一句你不明白要告诉别人,或者单步调试运行看看,ALT+F8。