0

1000 枚以上の連絡先情報 (1 枚に 1 人) を含む Excel ドキュメントがあります。

行 8 と列 C には、1000 以上のシートのそれぞれに個人の自宅住所が含まれています。

各シートから手動でコピー/貼り付けせずに、1000 以上のシートごとに (行 8、列 C) を抽出するにはどうすればよいですか?

最後に、すべての自宅住所を MS Word 文書に貼り付けて、印刷可能な特別な住所ラベル用紙に印刷できるようにしたいと考えています。

これを行うスクリプトはありますか? 書くのは簡単ですか？すべて/アドバイスをいただければ幸いです。ありがとう！

4

1 に答える 1

3

これで始められるはずです。行き詰まった場合は、コードを投稿して、何が機能していないかを説明してください。最初にワークブックのコピーでこれをテストして、意図しないものを誤って上書きしないようにします。

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
于 2012-07-13T02:09:03.303 に答える