いつもありがとうございます
>各シートを挿入し
列の幅を指定するにはどうしたらいいのかわからない
教えてください
Sub Sample()
Dim ws As Worksheet
Dim rg As Range, c As Range, urg As Range
Dim msr As Long, mxc As Long
Const Dsht = "Data"
Const f = "=(COUNTIF(B$2:B2,B2)=1)*(COUNTIFS(B:B,B2,G:G,""未完了"")>0)"
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> Dsht Then ws.Delete
Next ws
Application.DisplayAlerts = False
Set ws = Worksheets(Dsht)
mxc = Columns.Count
mxr = ws.Cells(Rows.Count, 2).End(xlUp).Row
If mxr < 2 Then Exit Sub
Set urg = ws.Cells(1, 1).Resize(mxr, 7)
Set rg = ws.Cells(2, mxc).Resize(mxr - 1)
rg.FormulaLocal = f
For Each c In rg
If c.Value = 1 Then
With Worksheets.Add(after:=Worksheets(Worksheets.Count))
.Name = ws.Cells(c.Row, 2).Text
urg.AutoFilter
urg.AutoFilter Field:=2, Criteria1:=ws.Cells(c.Row, 2).Text
urg.AutoFilter Field:=7, Criteria1:="未完了"
urg.Copy
.Cells(1, 1).PasteSpecial Paste:=xlPasteValues
End With
End If
Next c
urg.AutoFilter
ws.Columns(mxc).Delete
ws.Activate
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) 抽出結果を別シートに貼り付ける 2 2022/07/09 22:59
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) 今日の日付が過ぎたらその行を削除したい 1 2023/04/01 20:06
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAについて
-
【ExcelVBA】値を変更しながら...
-
VBA実行後に元のセルに戻りたい
-
VBA 何かしら文字が入っていたら
-
VBA 複数のエクセルから一つの...
-
Outlookの「受信日時」「件名」...
-
ユーザーフォームに別シートか...
-
VBAコンボボックスで選択した値...
-
Excel VBAにて、2GB超の点群デ...
-
VBA 別ブックからコピペしたい...
-
A列に記載されているフォルダ...
-
FileCopy時のエラー
-
【マクロ】1つのマクロの中に...
-
エクセルについて
-
Vba SelStart、SelLen教えてく...
-
VBAに詳しい方教えてください。
-
VB.net(VB)で、フォームにExcel...
-
【ExcelVBA】インデックスが有...
-
Outlookにて既にウィドウ単体で...
-
chromedriverのDLについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報