Excel VBA导出非相邻列至PDF并实现并排显示的问题求助

需要从Excel工作表导出报表至PDF，每份报表包含前两列A、B（共85行），并分别搭配一个非相邻列（如F列），要求非相邻列与A、B列在PDF中并排显示。尝试了以下VBA代码，但导出后非相邻列显示在A、B列下方，寻求解决方法：

Sub Export()
  Dim Rng As Range
  With ActiveSheet
    Set Rng = .Range("A1:B85, F1:F85")
    Rng.ExportAsFixedFormat Type:=xlTypePDF, fileName:="test.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
  End With
End Sub

直接选中不相邻单元格区域时，Excel会将这些区域视为独立打印块，默认上下排列而非并排。提供两种可行解决方法：

方法1：临时复制列到相邻位置 #

把目标非相邻列复制到A、B列旁的空白列，导出后删除临时列，确保导出区域是连续的：

Sub ExportAdjacent()
  Dim tempCol As Integer
  tempCol = 3 ' 用C列作为临时列
  
  With ActiveSheet
    ' 复制F列到临时列C
    .Range("F1:F85").Copy .Cells(1, tempCol)
    ' 导出连续的A:C列区域
    .Range("A1:C85").ExportAsFixedFormat Type:=xlTypePDF, _
      fileName:="test.pdf", Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=True
    ' 删除临时列
    .Columns(tempCol).Delete
  End With
End Sub

方法2：通过页面布局调整实现 #

隐藏不需要的列，设置页面横向，让A、B和目标列能在同一页横向显示：

Sub ExportWithPageSetup()
  With ActiveSheet
    ' 隐藏A、B、F列之外的所有列
    .Columns("C:E").Hidden = True
    .Columns("G:XFD").Hidden = True
    
    ' 设置页面横向，确保列能在一页内显示
    .PageSetup.Orientation = xlLandscape
    ' 指定打印区域
    .PageSetup.PrintArea = "A1:B85,F1:F85"
    
    ' 导出PDF
    .ExportAsFixedFormat Type:=xlTypePDF, _
      fileName:="test.pdf", Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=True
    
    ' 恢复隐藏的列
    .Columns("C:E").Hidden = False
    .Columns("G:XFD").Hidden = False
  End With
End Sub

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