![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
同じ手順で標準モジュールを用意、下記をコピー貼り付ける
sub macro2()
dim h as range
on error goto errhandle
worksheets("元データのシート名").select ’2度目。シート名は?
’転記する
for each h in range("B2:B" & range("B65536").end(xlup).row)
h.entirerow.copy worksheets(h.value).range("A65536").end(xlup).offset(1)
next
exit sub
errhandle:
’支店名シートを新調する
worksheets.add after:=worksheets(worksheets.count)
activesheet.name = h.value
worksheets("元データのシート名").range("1:1").copy range("A1")
resume
end sub
シートにボタン絵柄を作成し、右クリックしてマクロを登録する。
keithinさん、ご連絡ありがとうございました。
何度もご丁寧なご説明ありがとうございました。
おかげさまで今回も希望通りの集計ができました。
本当にありがとうございました。
No.3
- 回答日時:
No.2です。
>このシートのどこかに「ボタン」を作成してこのボタンを押すと・・・
を見逃していました。
メニュー → 開発 → 挿入のアイコン → ActiveXの「コマンドボタン」が良いと思います。を挿入 → そのコマンドボタン上でダブルクリック
>Private Sub CommandButton1_Click()
と
>End Sub
の間に
前回のコードの
>Sub Sample1() 'この行から
と
>End Sub 'この行まで
以外をコピー&ペースト → デザインモードを解除して、コマンドボタンをクリックしてみてください。
※ 別にコマンドボタンでなくても、オートシェイプ等を使って「マクロの登録」でも可能です。
どうも失礼しました。m(_ _)m
tom04さん、ご連絡いただきまして誠にありがとうございます!!
希望通りの動きが出来ました!!
本当にありがとうございました。
いつも詳細なご説明いただきまして誠にありがとうございます。
No.2
- 回答日時:
こんばんは!
一例です。
標準モジュールにコピー&ペーストしてマクロを実行してみてください。
尚、元データはSheet1(Sheet見出しの一番左側にあるとします)
Sub Sample1() 'この行から
Dim i As Long, k As Long, wS As Worksheet
Application.ScreenUpdating = False
If Worksheets.Count > 1 Then
Application.DisplayAlerts = False
For k = Worksheets.Count To 2 Step -1
Worksheets(k).Delete
Next k
End If
Worksheets.Add after:=Worksheets(1)
Set wS = Worksheets(2)
With Worksheets(1)
.Range("B:B").AdvancedFilter , Action:=xlFilterCopy, copytorange:=wS.Range("A1"), unique:=True
For i = 2 To Worksheets(2).Cells(Rows.Count, "A").End(xlUp).Row
Worksheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = wS.Cells(i, "A")
.Range("A1").AutoFilter field:=2, Criteria1:=wS.Cells(i, "A")
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Worksheets(Worksheets.Count).Range("A1").PasteSpecial Paste:=xlPasteAll
Next i
.AutoFilterMode = False
wS.Delete
Application.DisplayAlerts = True
.Activate
.Range("A1").Select
End With
Application.ScreenUpdating = True
End Sub 'この行まで
※ 一旦Sheet1以外は削除するようにしていますので、
念のため、別Bookでマクロを試してみてください。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) Excelでのデータ管理 6 2022/12/24 09:33
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Visual Basic(VBA) 【VBA】指定した検索条件に一致したら別シートに転記したい 2 2022/03/23 16:14
- Excel(エクセル) Excel セルに入っている日付を参照して、別シートのリストを表示させたい 1 2022/04/12 17:02
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロで指定条件一...
-
シートをコピーして シートに...
-
エクセルのマクロ設定について...
-
エクセル マクロ 任意のファ...
-
条件に応じて特定の行を非表示...
-
エクセルでファイルを開いたと...
-
エクセルVBAでパスの¥マークに...
-
VBAでシートコピー後、シート名...
-
別シート参照のセルをシート毎...
-
Excelで同じシートのコピーを一...
-
Excelで金銭出納帳。繰越残高を...
-
複数シートの特定の位置に連番...
-
EXCEL:同じセルへどんどん足し...
-
エクセルで前のシートを連続参...
-
前の(左隣の)シートを連続参...
-
EXCELで1ヶ月分の連続した日付...
-
Accessのスプレッドシートエク...
-
エクセルVBA 串刺し計算の際、...
-
エクセルで前シートを参照して...
-
Excel、同じフォルダ内のExcel...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】毎回、ファイル名が...
-
【マクロ】顧客番号にて一致さ...
-
エクセルのマクロで指定条件一...
-
シートをコピーして シートに...
-
Excel マクロ 他ブックのシート...
-
Excel シートを自動作成、セル...
-
EXCELVBA データを自動で別シー...
-
シートをコピー、シート名を変更
-
エクセルのマクロ設定について...
-
Excelでシート名と最終更新日を...
-
Excel で選択しているセルの行...
-
Excel VBA 検索して該当行を抽出
-
新しいマクロの記録でコピーし...
-
エクセル マクロ 任意のファ...
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
条件に応じて特定の行を非表示...
-
エクセルVBAでパスの¥マークに...
-
EXCEL:同じセルへどんどん足し...
-
VBAでシートコピー後、シート名...
おすすめ情報