Sub オートフィルタのコピー() ’A1の６列目でキーワード絞り込み Range("A1").AutoFilter 6, "キーワード" ’A1のこの範囲を転記先シートのA1を起点にコピー Range("A1").CurrentRegion.Copy Sheets("転記先シート").Range("A1") End Sub

Sub シートへ振分け() Dim i As Long Range("A:A").Copy Range("Q1") Range("Q1").CurrentRegion.RemoveDuplicates 1, xlYes 'A列の重複なしリストをQ列に作成 With Sheets("Sheet1") 'シート1を選択 For i = 2 To Cells(Rows.Count, 17).End(xlUp).Row '2行…

Sub 各シートへの同じ処理() Dim シート名 As Integer '変数としてシート名を使うFor シート名 = 1 To 5 'シート2から4のシートまでSheets(シート名).Select '〇番目のシートを選択する Dim 開始行 As Long '開始行変数宣言Dim 終了行 As Long '終了行変数宣…

Sub 最終行までを一括削除() '開始行から最終行までを一括削除 Dim 開始行 As Long '開始行変数宣言 Dim 終了行 As Long '終了行変数宣言 開始行 = Range("P1").Value '開始行はP1セルの値 終了行 = Cells(Rows.Count, 1).End(xlUp) 'A列の最終行まで Rows(…

Sub 各シートの不要行削除() Dim i As Long '変数宣言 Application.ScreenUpdating = False '画面止める処理 For i = Sheets("Sheet1").UsedRange.Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 '削除対象シートの下から削除 If Sheets("Sheet1").Used…

Sub CSVで保存() '変数宣言 Dim 保存先 As String '保存先設定 保存先 = ThisWorkbook.Path & "\ナレッジ用CSV.csv" 'シートコピー Sheets("Sheet2").Copy 'CSV出力 ActiveWorkbook.SaveAs 保存先, FileFormat:=xlCSV ActiveWorkbook.Close End Sub

Sub 最終行色付け() Dim i As Integer '変数としてiを使う For i = 1 To 3 'シート1からのシートまで Sheets(i).Select 'i番目のシートを選択する Range("A" & Rows.Count).End(xlUp).EntireRow.Font.ColorIndex = 3'最終行色付け Next i'次のシートに移る E…

Sub 各シートへのデータの反映() Dim シート名 As Integer '変数としてシート名を使う For シート名 = 2 To 4 'シート2から4のシートまで Sheets(シート名).Select '〇番目のシートを選択する '各シートの処理 Dim i As Long Application.ScreenUpdating = F…