Sub 不要シートの削除() '警告停止 Application.DisplayAlerts = False 'ワークシート削除 Worksheets(Array("Sheet1", "Sheet3")).Delete '警告戻し Application.DisplayAlerts = True End Sub

Sub 全シートを式から値に変換() '全てのシートの処理 for i = 1 to sheets.count 'データがある全てのセル範囲を値に変換 sheets(i).usedrange.value = sheets(i).usedrange.value End Sub

Sub 重複判定() Dim 行番号 As Long Dim 最終行 As Long With ActiveSheet 'A列の最終行を取得 最終行 = .Cells(Rows.Count, "A").End(xlUp).Row 'A列の最終行まで繰り返し For 行番号 = 2 To 最終行 'B列の番号の重複確認 If WorksheetFunction.CountIf(.Ra…

Sub シート名からメールアドレス検索() Dim 行番号, シート番号 As Long For シート番号 = 4 To Worksheets.Count For 行番号 = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(行番号, 1) = Sheets(シート番号).Name Then Sheets(シート番号).Range("A1…

Sub 各シート調整() 'シート番号変数宣言 Dim シート番号 As Long '3枚目のシートから最終シートまで同じ処理 For シート番号 = 4 To Worksheets.Count 'メールアドレス転記 Worksheets(シート番号).Range("A3") = Worksheets(シート番号).Range("D6") 'メー…

Sub シートへ振分け() '変数宣言 Dim i As Long 'A列をG列にコピーする Range("A:A").Copy Range("G1") 'A列の重複なしリストをG列に作成 Range("G1").CurrentRegion.RemoveDuplicates 1, xlYes 'リストシートを選択 With Sheets("リストシート") '7列目(G列…