Question

我正在尝试选择工作表中的单元格并将其导出到新文档中。

工作表有多列，但是我只想选择从C到E的列（从E列的第四行到最后一行）。

我编写的代码如下：

Sub SelectExcelCopy()
Dim appWD As New Word.Application
appWD.Visible = True
Range("C4", Range("E4").End(xlDown).End(xlToRight)).Copy
    appWD.Documents.Add
    appWD.Selection.Paste
    appWD.ActiveDocument.SaveAs Filename:="File 1"
    appWD.ActiveDocument.Close
appWD.Quit
End Sub

代码在新的excel工作表中按预期工作（仅出于测试目的），但在我当前的工作簿中却没有。我当前的工作簿中的工作表充满了从A列到C列的大量数据。即使在E列中只有两个条目（E4和E5），word文档中的表也有44列和134行。

我已经确认工作表和E列中的单元格为空白，但我希望它们在表中的单元格除外。

为了实现我的目的，我应该对代码进行哪些更改？谢谢！

Answer 1

这是一个简单的例子：

Dim lRow As Long
lRow = Sheet1.Cells(Rows.Count, 5).End(xlUp).Row

Sheet1.Range("C4:E" & lRow).Copy

选择单元格范围并保存到新文档

1 个答案: