仅将Excel中的值复制粘贴到Word中

Question

我已经使用这个网站一段时间了，通常研究我所有的问题，但这一个已经让我难倒了几天。

我有一个Excel工作簿的工作表，将允许用户输入特定的数据，一旦宏被使用，将创建一个Word文档的格式专门为每个宏。

Set tbl = ThisWorkbook.Worksheets(Sheet4.Name).Range("A8:D33")

With Doc.Paragraphs(21).Range
    tbl.Copy
    Doc.Paragraphs(21).Range.PasteExcelTable LinkedToExcel:=False, _
    WordFormatting:=False, _
    RTF:=False
    '.PageSetup.LeftMargin = "40"
    '.PageSetup.RightMargin = "40"

    Set wtbl = Doc.Tables(1)
    wtbl.AutoFitBehavior (wdAutoFitContent)
    wtbl.Borders.Enable = True
        With wtbl.Rows(1)
            .Height = 10
            .Cells.VerticalAlignment = wdAlignVerticalBottom
        End With
    'wtbl.Rows.Cells.VerticalAlignment = wdCellAlignVerticalBottom
    'wtbl.Rows.Height = 15

    'Doc.Paragraphs(23).AutoFitBehavior (wdAutoFitWindow)

End With

Answer 1

您可以在这样的列中找到最后使用的单元格。假设所有列中都有数据，并且数据条目是从第8行向下移动的，这应该可以做到这一点：

With Sheet4
    Dim lastRow As Long
    lastRow = .Range(.Cells(8, 1), .Cells(33, 1)).End(xlDown).Row
    Set tbl = .Range(.Cells(8, 1), .Cells(lastRow, 4))
End With