No.3ベストアンサー
- 回答日時:
マクロですとこんな感じでどうでしょうか。
sheet1のA列に転記したいデータが入っているものとします。ご質問の例ではA3までですが、さらに下まで入っていても動きます。
シートを追加していって、そのシートに転記していきます。
----------------------------
Sub test()
Dim ws As Worksheet
Dim LastRow As Long
Set ws = Worksheets("sheet1")
LastRow = ws.Range("A1").End(xlDown).Row
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("sheet2").Delete
Worksheets("sheet3").Delete
For i = 1 To LastRow
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "sheet(" & i & ")"
ActiveSheet.Cells(2, 2) = ws.Cells(i, 1)
Next
End Sub
No.4
- 回答日時:
こういう事でイイですね。
○Sheet1のA1から記入してある
○転記先のシート名は(1)(2)(3)…である。
シートがあればそこに転記し、無ければ作ります。
手順:
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける
sub macro1()
dim i as long
on error goto errhandle
for i = 1 to worksheets("Sheet1").range("A65536").end(xlup).row
worksheets(format(i, "(0)")).range("B2") = worksheets("Sheet1").cells(i, "A").value
next i
exit sub
errhandle:
worksheets.add after:=worksheets(worksheets.count)
activesheet.name = format(i, "(0)")
resume
end sub
ファイルメニューから終了してエクセルに戻る
ALT+F8を押し、マクロを実行する。
No.2
- 回答日時:
シート名が実際でも(1)などのように連番が入っているのなら一般機能でもできます。
新規ブックではなく一度どこかに保存したブックを使い、元シートに数値データを入れます。
私のテストデータではSheet1のA列に元データが入っています。
数値を参照したいシートを全部選択した状態で、B2を選択し
=INDIRECT("Sheet1!A"&MID(CELL("filename",B1),FIND("(",CELL("filename",B1))+1,1))
と入力します。
CELL関数の中のB1はどのセルでもいいです。
最後の確定時にCtrl+Enterで確定します。
FINDの第一引数でシート名の(を探しますので式とシート名の(を全角か半角か統一してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) 最終行の指定について教えてください。 複数シートを1シートへまとめる下記マクロでは各シートの6行目を 1 2022/10/04 18:37
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) VBAマクロでシートコピーした新シートにコピー元シートとの計算式の入れ方を教えて下さい。 5 2022/11/20 09:48
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのInitializeイベントとAc...
-
ACCESSのVBAにてExcelのシ...
-
エクセルVBAで名前の決まってい...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel・Word リサーチ機能を無...
-
配列数式の解除
-
Excel マクロ VBA プロシー...
-
UserForm1.Showでエラーになり...
-
教えて下さい
-
一つのTeratermのマクロで複数...
-
メッセージボックスのOKボタ...
-
String""から型'Double'への変...
-
End Sub が必要です。
-
マクロで"#N/A"のエラー行を削...
-
ExcelのVBA。public変数の値が...
-
TERA TERMを隠す方法
-
フランスの生年月日(jj/mm/aaaa)
-
実行時エラー'-2147467259(8000...
-
Excel VBAからAccessマクロを実...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのVBAにてExcelのシ...
-
excelのInitializeイベントとAc...
-
Excelマクロ 別シートへ連続コ...
-
エクセルVBAで名前の決まってい...
-
「IsText」の使い方を教えてく...
-
EXCELで1シートのデータを複数...
-
同一ブック内・別シートの内容...
-
excel
-
VBAでシートをまたぐ処理の方法
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
UserForm1.Showでエラーになり...
-
配列数式の解除
-
メッセージボックスのOKボタ...
-
教えて下さい
-
String""から型'Double'への変...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
おすすめ情報