Sub 降順にソート束()
Dim colm As Long
Dim colm2 As Long
Dim colm3 As Long
Dim colm4 As Long
'シンスタをソート
colm = 4
colm2 = 8
colm3 = 10
Call 降順にソート(colm, colm2, colm3)
'迷惑をソート
colm = 11
colm2 = 15
colm3 = 17
Call 降順にソート(colm, colm2, colm3)
'D+左をソート
colm = 18
colm2 = 24
colm3 = 22
colm4 = 26
Call 降順にソート2列(colm, colm2, colm3, colm4)
'D+右をソート
colm = 27
colm2 = 33
colm3 = 31
colm4 = 35
Call 降順にソート2列(colm, colm2, colm3, colm4)
'NHKをソート
colm = 36
colm2 = 40
colm3 = 42
Call 降順にソート(colm, colm2, colm3)
'AUをソート
colm = 43
colm2 = 47
colm3 = 49
Call 降順にソート(colm, colm2, colm3)
'誘導左をソート
colm = 114
colm2 = 118
colm3 = 120
Call 降順にソート(colm, colm2, colm3)
'誘導中をソート
colm = 121
colm2 = 125
colm3 = 127
Call 降順にソート(colm, colm2, colm3)
'誘導右をソート
colm = 128
colm2 = 132
colm3 = 134
Call 降順にソート(colm, colm2, colm3)
End Sub
Sub 降順にソート(colm, colm2, colm3)
Dim lr As Long
lr = Cells(Rows.Count, colm).End(xlUp).Row + 1
With ActiveSheet
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Cells(8, colm3), Order:=xlDescending
.Sort.SetRange Range(Cells(8, colm), Cells(lr, colm3))
.Sort.Header = xlNo
.Sort.Apply
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Cells(8, colm2), Order:=xlDescending
.Sort.SetRange Range(Cells(8, colm), Cells(lr, colm3))
.Sort.Header = xlNo
.Sort.Apply
End With
End Sub
Sub 降順にソート2列(colm, colm2, colm3, colm4)
Dim lr As Long
lr = Cells(Rows.Count, colm).End(xlUp).Row + 1
With ActiveSheet
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Cells(8, colm4), Order:=xlDescending
.Sort.SetRange Range(Cells(8, colm), Cells(lr, colm4))
.Sort.Header = xlNo
.Sort.Apply
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Cells(8, colm3), Order:=xlDescending
.Sort.SetRange Range(Cells(8, colm), Cells(lr, colm4))
.Sort.Header = xlNo
.Sort.Apply
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Cells(8, colm2), Order:=xlDescending
.Sort.SetRange Range(Cells(8, colm), Cells(lr, colm4))
.Sort.Header = xlNo
.Sort.Apply
End With
End Sub