excel - 如何提取跨越 1000 多个“表格”的 Microsoft Excel 文档的特定单元格（行、列）的内容？

Question

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

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

如何在不从每张纸上手动复制/粘贴它们的情况下为每 1000 多张纸提取（第 8 行，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