A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんばんは!
手っ取り早くVBAでの一例です。
元データはSheet1にあり、1行目は項目行でデータは2行目以降にあるとします。
(2行目以降を各シートにコピー&ペースト)
貼り付け先は各シートの1行目とします。
標準モジュールにしてください。
Sub Sample1()
Dim i As Long, wS As Worksheet
With Worksheets("Sheet1")
Application.ScreenUpdating = False
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
If Worksheets.Count < i Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
Set wS = ActiveSheet
Else
Set wS = Worksheets(i)
End If
.Rows(i).Copy wS.Range("A1")
wS.Name = "Sheet" & i
Next i
Application.ScreenUpdating = True
End With
MsgBox "完了"
End Sub
こんな感じではどうでしょうか?
※ 注意点 ※
とりあえずSheet名をこちらで勝手に「Sheet○」のようにしていますので
同じSheet名が存在する場合はエラーになります。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2022/03/24 16:07
- Excel(エクセル) vba 同じブック内での転記について 4 2023/01/15 14:42
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/25 11:42
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Excel(エクセル) Excelシフト表 固定シフトの自動変換化 1 2022/04/14 16:10
- Excel(エクセル) Excelでのデータ管理 6 2022/12/24 09:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) エクセルの数式で教えてください。 3 2023/04/17 09:25
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
1行を1シートずつに書き出すには
Excel(エクセル)
-
エクセルで50行ごとに区切ったデータをシートに分割したい
Excel(エクセル)
-
エクセルの1シートの内容を複数のシートに分割したい。
Excel(エクセル)
-
-
4
エクセルで20万行あるシートから100行ずつ抽出したいのですが
Excel(エクセル)
-
5
Excelで大量の2000個のリストを100個ずつ
Excel(エクセル)
-
6
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
7
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
8
Excelのシートにある1行のデータを複数行に分割したい
Excel(エクセル)
-
9
条件付き書式で、結果が1行ずれる
Excel(エクセル)
-
10
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
11
Wordでこのような三角が出てくるようになってしまったのですがどうやったら消せますか?
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数シートからデータを拾って...
-
エクセルファイルのシート毎の容量
-
Excelでシートの違うデータでグ...
-
excelの不要な行の削除ができな...
-
シート削除して同名シート追加...
-
Excelで日付変更ごとに、自動的...
-
EXCELで2つのファイルから重複...
-
VBAで CTRL+HOMEの位置へ移動...
-
エクセルで名簿を50音で切り分ける
-
他のシートの一番下の行データ...
-
Excelファイルの容量が異常に大...
-
半導体熱抵抗の測定方法について
-
Excelで複数シートの内容を一覧...
-
エクセルのデータ振り分け方法...
-
EXCEL VBAで作成したス...
-
【エクセルマクロ】複数シート...
-
Excel 売上管理シートに入力し...
-
エクセル マクロ "特定の日付...
-
【マクロ】同じフォルダ内にあ...
-
オートフィルタで抽出したデー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
Excelで日付変更ごとに、自動的...
-
excelの不要な行の削除ができな...
-
VBAで CTRL+HOMEの位置へ移動...
-
(VBAにて)日付でデータを抽出す...
-
EXCELで2つのファイルから重複...
-
他のシートの一番下の行データ...
-
エクセルのカメラ機能について
-
トランジスタの選び方
-
別々のシートの表をピボットテ...
-
エクセル 縦に長い表の印刷時...
-
EXCEL 複数行のデータを1行にま...
-
【エクセル」 特定のセルで条件...
-
オートフィルタで抽出したデー...
-
Excel 売上管理シートに入力し...
-
エクセル VBA VLOOKUP
-
EXCEL の表を一行ずつシートに...
おすすめ情報