Excel VBA代码修改求助：指定单元格范围导出至Word异常

嘿，你的代码问题出在选中范围的逻辑上！原代码里的Range("C4", Range("E4").End(xlDown).End(xlToRight))多了个多余的End(xlToRight)——在你的现有工作表里，A到C列有大量数据，这个操作会让选中范围直接跳到当前行最右侧的非空列，把一堆不需要的列都包含进来，才会导出44列的超大表格。

我给你修正后的代码，完美匹配你的需求：选中第4行到E列最后非空行的C到E列，然后导出到Word：

Sub SelectExcelCopy()
    Dim appWD As Word.Application
    Dim lastRow As Long
    Dim targetRange As Range
    
    ' 获取E列最后一个非空行的行号（从底部往上找，比从E4往下更可靠）
    lastRow = Cells(Rows.Count, "E").End(xlUp).Row
    
    ' 兜底处理：如果E列没有数据，至少选中C4到E4
    If lastRow < 4 Then lastRow = 4
    
    ' 精准定义目标范围：C4到E列最后非空行的C-E列
    Set targetRange = ThisWorkbook.ActiveSheet.Range("C4:E" & lastRow)
    
    ' 初始化Word应用
    Set appWD = New Word.Application
    appWD.Visible = True
    
    ' 复制粘贴并保存文档
    targetRange.Copy
    With appWD.Documents.Add
        .Selection.Paste
        ' 建议这里写上完整保存路径，比如 "C:\你的文件夹\File 1.docx"，不然文件会存在Excel默认路径
        .SaveAs Filename:="File 1"
        .Close
    End With
    
    ' 清理对象，避免内存泄漏
    appWD.Quit
    Set appWD = Nothing
    Set targetRange = Nothing
End Sub

关键修改点说明： #

• 删掉了多余的End(xlToRight)，直接用C4:E" & lastRow锁定C到E列的精准范围
• 改用Cells(Rows.Count, "E").End(xlUp).Row获取E列最后非空行，这个方法更可靠——哪怕E4和最后一行之间有空行，也能正确定位到最后有内容的行
• 增加了兜底判断，防止E列没有数据时出现范围错误
• 用ThisWorkbook.ActiveSheet明确指定当前工作表，避免切换工作表时选中错误的范围
• 用With语句简化Word文档操作，代码更简洁易读
• 增加了对象清理步骤，避免残留内存占用

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