No.2ベストアンサー
- 回答日時:
こんばんは!
一例です。
標準モジュールにしてください。
Sub Sample1()
Dim i As Long, k As Long, lastRow As Long, wS As Worksheet
Dim sN As String, myFlg As Boolean
With Worksheets("Sheet1")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("I:I").Insert
Range(.Cells(2, "I"), .Cells(lastRow, "I")).Formula = "=MONTH(F2)"
For i = 1 To 12
sN = i & "月"
For k = 2 To Worksheets.Count
If Worksheets(k).Name = sN Then
myFlg = True
Exit For
End If
Next k
If myFlg = False Then
Worksheets.Add after:=Worksheets(i)
ActiveSheet.Name = sN
End If
Set wS = Worksheets(sN)
wS.Cells.Clear
.Range("A1").AutoFilter field:=9, Criteria1:=i
Range(.Cells(1, "A"), .Cells(lastRow, "H")).SpecialCells(xlCellTypeVisible).Copy wS.Range("A1")
wS.Columns.AutoFit
wS.Move after:=Worksheets(i)
myFlg = False
Next i
.AutoFilterMode = False
.Range("I:I").Delete
End With
MsgBox "完了"
End Sub
※ 月だけの検索にしていますので、
複数年のデータがある場合、年に関係なく各月のデータが表示されます。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】指定した検索条件に一致したら別シートに転記したい 2 2022/03/23 16:14
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Excel(エクセル) エクセル関数について 2 2022/04/13 18:25
- Excel(エクセル) Excelについて 1 2023/03/06 10:26
- Excel(エクセル) 添付写真上のExcelシートのように時間と曜日ごとに担当者が振り分けられているシートがあります。 例 1 2023/03/08 13:02
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) 【エクセル」 特定のセルで条件抽出した列を、別シートに上から詰めて表示したい。 8 2022/04/08 16:00
- Excel(エクセル) 再質問です。エクセルでシートが1から31まであり、日付けが入力されているセルがあります。シート1から 4 2022/08/02 23:08
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
Excelでシートの違うデータでグ...
-
複数シートからデータを拾って...
-
Excelで日付変更ごとに、自動的...
-
シート削除して同名シート追加...
-
excelの不要な行の削除ができな...
-
トランジスタの選び方
-
VBAで CTRL+HOMEの位置へ移動...
-
Excel 売上管理シートに入力し...
-
EXCEL 複数行のデータを1行にま...
-
エクセルのカメラ機能について
-
別々のシートの表をピボットテ...
-
EXCELで2つのファイルから重複...
-
EXCEL の表を一行ずつシートに...
-
エクセルで複数行のデータを1列...
-
エクセルで複数の条件を抽出し...
-
エクセル2010 別シートへのデー...
-
重いExcelファイルのことで教え...
-
Googleスプレッドシートフィル...
-
エクセル、シ-ト1とシ-ト2の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルのシート毎の容量
-
複数シートからデータを拾って...
-
Excelでシートの違うデータでグ...
-
シート削除して同名シート追加...
-
Excelで日付変更ごとに、自動的...
-
excelの不要な行の削除ができな...
-
VBAで CTRL+HOMEの位置へ移動...
-
(VBAにて)日付でデータを抽出す...
-
EXCELで2つのファイルから重複...
-
他のシートの一番下の行データ...
-
エクセルのカメラ機能について
-
トランジスタの選び方
-
別々のシートの表をピボットテ...
-
エクセル 縦に長い表の印刷時...
-
EXCEL 複数行のデータを1行にま...
-
【エクセル」 特定のセルで条件...
-
オートフィルタで抽出したデー...
-
Excel 売上管理シートに入力し...
-
エクセル VBA VLOOKUP
-
EXCEL の表を一行ずつシートに...
おすすめ情報
それ提案したんですけど、自動で、シートの月ごとにわける、が希望のようでして、、(泣)