Sub オートフィルター() Worksheets(2).Range("A1").AutoFilter Field:=4, Criteria1:="東京"End Sub

Sub 罫線() Worksheets(1).Range("B2", "B6").Borders.LineStyle = xlContinuousEnd Sub

コレクション処理（For Each）｜VBA入門｜エクセルの神髄 excel-ubara.com

コレクションとは（Collection）｜VBA入門｜エクセルの神髄 excel-ubara.com