VBA：如何修改代码实现带空白列间隔的粘贴并从B列起始

Dim shtcopy As Worksheet
Dim shtpaste As Worksheet
Dim pt As PivotTable
Dim pasteCol As Long

Set shtcopy = Sheets("Summary Copying")
Set shtpaste = Sheets("Summary")
' 指定要复制的数据透视表，这里默认取工作表第一个透视表，可根据实际名称修改
Set pt = shtcopy.PivotTables(1)

' 计算粘贴起始列：首次从B列(第2列)开始，后续每次留1列空白间隔
pasteCol = shtpaste.Cells(10, Columns.Count).End(xlToLeft).Column
If pasteCol = 1 Then ' 第10行仅A列有内容，说明是首次粘贴
    pasteCol = 2
Else
    pasteCol = pasteCol + 2 ' 最后非空列+2，自动留出1列空白后粘贴
End If

' 复制透视表区域并粘贴值
pt.TableRange1.Copy
shtpaste.Cells(10, pasteCol).PasteSpecial Paste:=xlPasteValues
' 粘贴对应区域格式
shtpaste.Cells(10, pasteCol).PasteSpecial Paste:=xlPasteFormats

shtpaste.Cells.Columns.AutoFit

• 补全了数据透视表对象pt的定义，避免运行时未定义错误
• 重新设计粘贴起始列计算逻辑：
  • 首次粘贴时自动定位到B列
  • 后续粘贴时，在最后非空列右侧预留1列空白后开始粘贴
• 移除原代码中硬编码的Offset(, -4)，统一用计算出的pasteCol定位，避免因数据宽度变化导致格式粘贴错位

内容的提问来源于stack exchange，提问作者ojmayo