0

単一の個人データの ABCDE のデータ列を含むスプレッドシートがあります。次に、同じヘッダーが列 FGHiJ で繰り返され、2 番目の人のデータが表示されます。次に、同じヘッダーが次の 5 列で再び繰り返され、これが 25 セットの列で続きます (つまり、25 人分のデータがあります)。 . このデータの約 50 行下にあります。

データ ヘッダーは次のとおりです。

A-Name
B-DOB
C-Level
D-Acct#
E-Tシャツのサイズ

F-Name
G-DOB
H-Level
I-Acct#
E-Tシャツのサイズ

25セット繰り返す

すべてのデータを移動して、列 ABCDE のみに配置したいと考えています。すべての名前を列 A に表示し、すべての生年月日を列 B に表示する、などとします。

ここに投稿されたものに似たものを見たことがありますが、特定の状況に合わせてコードを書き直す方法がわかりません。

私はこの問題に 3 年間苦労しており、すべてを手作業でコピー/貼り付けしましたが、これには何時間もかかりました。これを自動化する方法に関する情報をいただければ幸いです。

ありがとうございました！

4

1 に答える 1

0

それはいじくり回す必要がありますが、ここから始めます： 

Sub CopySomeCells()

    With Excel.ThisWorkbook.Sheets("myExample")

         lastcellincolumnA = .Cells(.Rows.Count, 1).End(Excel.xlUp).Row
         lastcellincolumnL = .Cells(.Rows.Count, 12).End(Excel.xlUp).Row

        .Range("G1:L" & lastcellincolumnL).Copy
        .Range("A" & (lastcellincolumnA + 1)).PasteSpecial Excel.xlValues

    End With

End Sub
于 2012-06-26T20:11:23.330 に答える