Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

826 / 76735

←次へ　｜　前へ→


	【81571】VBA データが多い場合

ゆきだるま - 20/12/11(金) 14:52 -


	引用なし

	パスワード

【VBA】初心者です。
シート１にある例①のデータを
シート２のテンプレートに例②の形にしたいです。

実際は、26項目分、テンプレートに当てはめたいデータがあります。
データは300行分くらいあります。
最終的には、番号や住所などのセルは複数行、結合させることになります。（結合までいっきにできるとなおよいです。）

Set deta()
Dim torikomi1 As Range, template1 As Range
Dim torikomi2 As Range, template2 As Range
↑このようなかたちで、26個続きます。

Dim Z Az Long, R As Long

This Workbook.Sheets("シート１").Range("A1:ZZ1000").ClearContents

Set torikomi1=Worksheets("シート１").Cells(2,1)
Set　torikomi2=Worksheets("シート１").Cells(2,2)
↑このようなかたちで、26個続きます。

Set template1 =Worksheets("シート２").Cells(3,1)
Set template2 =Worksheets("シート２").Cells(4,2)
↑このようなかたちで、26個続きます。

For Z = 0 To 2500 Set 2
　 template1.Offset(Z,0).Value = torikomi1.Offset(R,0).Value
　template2.Offset(Z,0).Value = torikomi2.Offset(R,0).Value
↑このようなかたちで、26個続きます。
R=R+1
Next Z
End Sub

26項目分なので、開くのも閉じるのも時間がかかってしまいます。
ほかに、よい方法はありますでしょうか？
よろしくお願いします。

例①
1番号名前ふりがな月日年住所
2 13　佐藤さとう 3 2 北海道
3 15 伊藤いとう 5 12 青森
4　　　　　　　　
5

例②
1 番号ふりがな住所
2　　　名前
3 13　さとう北海道
4　　　佐藤
5 15　いとう青森
6　　　伊藤

1 hits

▼

【81571】VBA データが多い場合 ゆきだるま 20/12/11(金) 14:52