ExcelマクロVBA　抽出転記後フォントやフォントサイズを変更

Sub 抽出転記()

Worksheets("データ").Range("A:C").AutoFilter 1, "<>解約"
MsgBox "オートフィルターを設定し解約以外を抽出。"

Worksheets("データ").Range("A1").CurrentRegion.Copy Worksheets("抽出").Range("A1")
MsgBox "転記終了。"
------------------------------------------------------------------------
👆ここまで処理が終わってから・・・

Worksheets("抽出").Cells.Select

With Selection.Font
.Name = "UD デジタル教科書体 N-B"
.Size = 10
End With

👆抽出という名のシートのセルを選ぶ

With～　End With　で

　フォントの

　名前は "UD デジタル教科書体 N-B"にする

　サイズは 10にする

　With～　End Withを使うことで

　フォントの様々な設定を変更できる

End Sub

※fontstyle＝フォントのスタイル

※underline＝下線の種類