Question

我有一份Excel文档，其中包含超过1000张“人员”的联系信息（每张一个人）。

第8行和第C列在1000张以上的每张纸上都包含一个人的家庭住址。

如何在不从每张纸手动复制/粘贴每张1000张以上的情况下提取（第8行，Col C）？

最后，我希望将所有家庭地址粘贴到MS Word文档中，该文档可以打印在特殊的可打印地址标签纸上。

那里有脚本会这样做吗？写一个很简单吗？非常感谢所有/任何建议。谢谢！

Answer 1

这应该让你开始。如果您遇到困难，请发布您的代码并解释无法正常工作的内容。 首先在工作簿的副本中对此进行测试，以防止意外覆盖您不想要的内容。

Sub HarvestAddresses()
    Dim ws As Worksheet
    Dim target As Worksheet
    Dim rng As Range
    Dim i As Integer

    ' We will harvest all addresses onto the target sheet
    Set target = Sheets("Sheet1")

    ' First address will be copied to the target.Range, and subsequent addresses
    ' get copied to the cells below
    Set rng = target.Range("A1")
    i = 0

    ' We copy the value from "C8" in every worksheet in our workbook
    ' to the target
    For Each ws In Worksheets
        rng.Offset(i) = ws.Range("C8")
        i = i + 1
    Next
End Sub

如何提取跨越1000＆＃34;表格＆＃34;？的Microsoft Excel文档的特定单元格（行，列）的内容？

1 个答案: