エクセル2003にて指定されたシートを複写するには?
はじめて投稿します。過去ログを調べたのですが、該当する質問を
発見することが出来なったので、宜しくお願い致します。
【質問内容】
エクセル2003にて、「シート1」は、以下のようになっています。
A B C
1 10 りんご 秋田
2 20 みかん 青森
3 30 バナナ 岩手
4 40 キウイ 島根
5 50 イチゴ 鳥取
マクロ(VBA?)で実施したいのは、「10」「20」・・・と
いった文字列を「シート名」として、「シート2」に保存されている
レイアウトをコピーし、「10」「20」とシート名として、コピーし、
反映させた上で、「シート1」のA1である『10』を新しくコピーされた
シートである「10」のA列の5行目に「10」を持ってきたいと思っています。
(※B列以降は、VLOOKUPで持ってこようと思っています。)
800シート近くになり、毎週の処理な上、ひとつひとつやるには、時間ばっかり
必要になるので、マクロ(VBA?)で解決したいと思っております。
(※例のように5シート分であれば、手でやるのですが、、、)
すみませんが、ご享受の程、宜しくお願い申し上げます。
No.1
- 回答日時:
ちょっと分かりにくいですね。
もうちょっと補足情報が必要です。
・シート1には、1行目から800行目までデータがあるのですか?
・「10」「20」から「8000」まで、800枚のシートを作成するのですか。
・シート2のレイアウトというのは、どういうものなのですか。
条件がしっかり分かれば解決の糸口になるかもしれません。
この回答への補足
すみません、回答が遅くなりました、、、
ありがとうございます。
>・シート1には、1行目から800行目までデータがあるのですか?
そのとおりです。800行は最大ですが、400~800行までデータがあると
考えて頂ければ幸いです。
>・「10」「20」から「8000」まで、800枚のシートを作成するのですか。
メモリの問題等で難しいとは思いますが、
言われているとおり、800枚のシートを作りたいと思っています。
>・シート2のレイアウトというのは、どういうものなのですか。
シート2のレイアウトは、わかりづらいですね、、、すみません。
簡単に説明すると書式(文字の大きさ・書体)を設定されている
もので、様式といった方がよかったかもしれないですね。
ご丁寧にありがとうございます。
No.2ベストアンサー
- 回答日時:
#1です。
とりあえず、シート2のレイアウトは無視した形ですが以下です。
Sub aaa()
Dim Ws1 As Worksheet, Ws2 As Worksheet
Set Ws1 = Worksheets("シート1")
Set Ws2 = Worksheets("シート2")
Dim Endrow As Long, r As Integer
Endrow = Ws1.Cells(Rows.Count, 1).End(xlUp).Row
For r = 1 To Endrow
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Ws1.Cells(r, 1).Value
Cells(5, 1).Value = Ws1.Cells(r, 1).Value
Cells(5, 2).Value = Ws1.Cells(r, 2).Value
Cells(5, 3).Value = Ws1.Cells(r, 3).Value
Next r
Set Ws1 = Nothing
Set Ws2 = Nothing
End Sub
B列以降も一緒に移してしまいました。適当にアレンジください。
ご丁寧にありがとうございます。
会社のPCでしか検証が出来ませんが、
ご意見をもとに頑張ってみようと思います。
本当にありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Visual Basic(VBA) VBAマクロでシートコピーした新シートにコピー元シートとの計算式の入れ方を教えて下さい。 5 2022/11/20 09:48
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
会社の決算処理で尋ねます
-
農業を営む法人は34業種に含ま...
-
ゴルフコンペの会費に係る消費...
-
金利の調整について
-
タイミーでバイトを雇った際の...
-
インボイス制度 不動産売買の際...
-
【確定申告】車譲渡の経理処理...
-
計算書類(財務諸表)について 最...
-
賞与の計算方法がわからない
-
決算を1人で出来る様になりたい...
-
パソコンが壊れ交換となった場...
-
印紙税でお尋ねします。
-
売り上げを1年ズラして計上すれ...
-
「インボイス制度」ゴルフコン...
-
繁殖用の成犬が死にました。
-
30万円未満の「少額減価償却資...
-
固定資産売却の仕訳タイミング ...
-
給与計算について、日給の計算...
-
ベトナムから家具を輸入し販売...
-
法人ですが、会計ソフトに入力...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ゴルフコンペの会費に係る消費...
-
タイミーでバイトを雇った際の...
-
「インボイス制度」ゴルフコン...
-
Windows11なのですがPDFにパス...
-
帳簿についてです。 塗装業の塗...
-
インボイス制度 不動産売買の際...
-
30万円未満の「少額減価償却資...
-
印紙について
-
差額(決算報告)引き算はどっち
-
ベトナムから家具を輸入し販売...
-
繁殖用の成犬が死にました。
-
「インボイス」ゴルフコンペの...
-
支払を受ける側(お金を受け取...
-
配達の仕事をしている個人事業...
-
「イオンのセルフレジの領収書」...
-
協会けんぽの健康診断の費用に...
-
税理士変更について。決算処理...
-
小口現金残高が合わせのアドバ...
-
棚卸資産は仕入れ値であらわし...
-
個人事業主で高速道路料金の立...
おすすめ情報