Word粘贴Excel非连续选中行时自动包含中间行如何解决？

问题根源 #

该问题是Office跨程序剪贴板交互的固有逻辑：Excel的非连续选中区域，跨程序粘贴到Word时会自动填充两个不连续区域之间的所有行，仅在Excel内部粘贴时才会保留非连续选择的内容，所以你在Excel内粘贴正常、粘贴到Word就会多出中间行。

修复方案（最优实现：临时中转连续区域） #

核心思路是先把筛选到的非连续行，复制到Excel临时工作表的连续区域，再从临时表复制内容粘贴到Word，即可彻底规避非连续区域的粘贴bug。

第一步：优化原行选择函数 #

修正原函数中未绑定工作表对象的问题，避免Word调用时出现范围指向错误：

Function select_rows_with_given_string(searchString As String, xlSheet As Object) As Object
    Dim myUnion As Object
    Dim Row As Integer
    Dim endCol As String, endRow As Integer, startRow As Integer
    
    endCol = "N"
    endRow = 46
    startRow = 3
    
    Set myUnion = xlSheet.Range("A1:" & endCol & startRow - 1)
    
    For Row = startRow To endRow
        If xlSheet.Range("A" & Row).Value = searchString Then
            Set myUnion = xlSheet.Application.Union(myUnion, xlSheet.Range("A" & Row & ":" & endCol & Row))
        End If
    Next Row
    
    Set select_rows_with_given_string = myUnion
End Function

第二步：修改Word按钮点击逻辑，增加临时中转逻辑 #

Private Sub CommandButton1_Click()
    Dim xlApp As Object
    Dim xlSheet As Object
    Dim tempSheet As Object
    Dim targetRange As Object

    Const strWorkbookName As String = "PATH" ' 替换为实际Excel文件路径

    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False ' 后台运行不显示Excel窗口
    Set xlSheet = xlApp.Workbooks.Open(FileName:=strWorkbookName).Sheets("Sheet1")
    
    ' 获取筛选后的非连续行范围
    Set targetRange = select_rows_with_given_string("TEST", xlSheet)
    
    ' 创建临时工作表存放连续的选中内容
    Set tempSheet = xlApp.Workbooks.Add.Sheets(1)
    targetRange.Copy tempSheet.Range("A1") ' 非连续区域粘贴到临时表自动变为连续区域
    
    ' 从临时表复制内容粘贴到Word
    tempSheet.UsedRange.Copy
    Selection.PasteExcelTable False, False, False
    
    ' 清理资源：不保存关闭临时工作簿、原Excel工作簿，退出Excel实例避免残留进程
    tempSheet.Parent.Close SaveChanges:=False
    xlSheet.Parent.Close SaveChanges:=False
    xlApp.Quit
    Set xlApp = Nothing
End Sub

其他可选适配方案 #

• 遍历筛选得到的行，逐行插入Word表格，无需中转Excel临时表，适合数据量较小的场景
• 将筛选后的内容导出为分隔符文本，再在Word中将文本转换为表格，适合不需要保留原Excel格式的场景

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