回答受付が終了しました

VBA で複数での並び替えを教えて頂きたいです(Excell2016使用)。

画像

Visual Basic | Excel69閲覧xmlns="http://www.w3.org/2000/svg">100

回答(1件)

0

以下コード例です。 Sub Sample() Dim sh As Worksheet For Each sh In ThisWorkbook.Sheets With sh If .Name <> "一覧" And .Name <> "県域" Then .Range("A1").CurrentRegion.Sort _ key1:=.Range("B1"), order1:=xlAscending, _ key2:=.Range("C1"), order2:=xlAscending, _ key3:=.Range("A1"), order3:=xlDescending, Header:=xlYes End If End With Next End Sub