Excel非连续区域复制到Word时意外带入多余行的VBA问题

你遇到的问题根源在于：Union合并的非连续区域在Excel中会被识别为一个包含所有涉及行的矩形范围（哪怕中间行无数据），而PasteExcelTable方法会按照这个矩形范围的边界生成表格，因此C28:H28这个空行被自动包含了进去。

以下是两种可行的解决方案：

方案一：分区域单独复制粘贴 #

直接分别复制两个目标区域，依次粘贴到Word中，彻底避免合并区域带来的空行问题：

' 定位到Word中的目标位置
wordDoc.Application.Selection.Find.Execute "Where it will be put"
wordApp.Selection.MoveRight Unit:=wdCharacter, Count:=1
wordApp.Selection.TypeParagraph

' 粘贴第一个区域
rangeSP.Copy
wordApp.Selection.PasteExcelTable False, True, False

' 光标移动到下一行，准备粘贴第二个区域
wordApp.Selection.MoveDown Unit:=wdLine, Count:=1

' 粘贴第二个区域
rangeSP2.Copy
wordApp.Selection.PasteExcelTable False, True, False

方案二：通过临时工作表中转复制 #

如果需要让两个区域在Word中呈现为一个连续的表格，可以先把非连续区域复制到临时工作表的连续行中，再整体复制粘贴：

Dim tempSheet As Worksheet
' 创建临时工作表
Set tempSheet = ThisWorkbook.Sheets.Add

' 将两个区域分别复制到临时工作表的连续位置
rangeSP.Copy tempSheet.Range("A1")
rangeSP2.Copy tempSheet.Range("A2")

' 定位到Word中的目标位置
wordDoc.Application.Selection.Find.Execute "Where it will be put"
wordApp.Selection.MoveRight Unit:=wdCharacter, Count:=1
wordApp.Selection.TypeParagraph

' 复制临时工作表的有效区域并粘贴到Word
tempSheet.UsedRange.Copy
wordApp.Selection.PasteExcelTable False, True, False

' 清理临时工作表
Application.DisplayAlerts = False
tempSheet.Delete
Application.DisplayAlerts = True

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