Public Sub Sorting()
Dim i As Long, j As Long, oi_cg As Long, oi_dy As Long, oi_ns As Long, oi_sdj As Long, oi_teh As Long, oi_sk As Long
oi_cg = 2: oi_dy = 2: oi_ns = 2: oi_sdj = 2: oi_teh = 2: oi_sk = 2 '給每個班加個計數器
Worksheets("辰光").Cells.Delete
Worksheets("東苑").Cells.Delete
Worksheets("南山").Cells.Delete
Worksheets("山丹街").Cells.Delete
Worksheets("天鵝湖").Cells.Delete
Worksheets("上坎").Cells.Delete '做之前把這幾個表格清空
With Worksheets("123")
For i = 3 To .UsedRange.Rows.Count
If Left(.Range("F" & i).Value, 2) = "00" Then
Worksheets("辰光").Range("A" & oi_cg & ":Q" & oi_cg).Value = .Range("A" & i & ":Q" & i).Value
oi_cg = oi_cg + 1
GoTo toNextrow
End If
'如果編號前兩位10，11街區，在東苑的表中寫入A1：Q1，range的書寫格式，區域的意思，A列兩邊雙引號，&是連接符，oi行，A1的意思
If Left(.Range("F" & i).Value, 2) = "11" Or Left(.Range("F" & i).Value, 2) = "10" Then
Worksheets("東苑").Range("A" & oi_dy & ":Q" & oi_dy).Value = .Range("A" & i & ":Q" & i).Value
oi_dy = oi_dy + 1
GoTo toNextrow
End If
If Left(.Range("F" & i).Value, 2) = "19" Or Left(.Range("F" & i).Value, 2) = "09" Then
Worksheets("南山").Range("A" & oi_ns & ":Q" & oi_ns).Value = .Range("A" & i & ":Q" & i).Value
oi_ns = oi_ns + 1
GoTo toNextrow
End If
If Left(.Range("F" & i).Value, 2) = "15" Or Left(.Range("F" & i).Value, 2) = "17" Or Left(.Range("F" & i).Value, 2) = "25" Or Left(.Range("F" & i).Value, 2) = "26" Or Left(.Range("F" & i).Value, 2) = "32" Or Left(.Range("F" & i).Value, 2) = "33" Or Left(.Range("F" & i).Value, 2) = "34" Or Left(.Range("F" & i).Value, 2) = "35" Or Left(.Range("F" & i).Value, 2) = "36" Or Left(.Range("F" & i).Value, 2) = "45" Then
Worksheets("山丹街").Range("A" & oi_sdj & ":Q" & oi_sdj).Value = .Range("A" & i & ":Q" & i).Value
oi_sdj = oi_sdj + 1
GoTo toNextrow
End If
If Left(.Range("F" & i).Value, 2) = "03" Or Left(.Range("F" & i).Value, 2) = "13" Or Left(.Range("F" & i).Value, 2) = "14" Or Left(.Range("F" & i).Value, 2) = "22" Or Left(.Range("F" & i).Value, 2) = "31" Or Left(.Range("F" & i).Value, 2) = "37" Or Left(.Range("F" & i).Value, 2) = "38" Or Left(.Range("F" & i).Value, 2) = "39" Then
Worksheets("天鵝湖").Range("A" & oi_teh & ":Q" & oi_teh).Value = .Range("A" & i & ":Q" & i).Value
oi_teh = oi_teh + 1
GoTo toNextrow
End If
If Left(.Range("F" & i).Value, 2) = "40" Or Left(.Range("F" & i).Value, 2) = "41" Or Left(.Range("F" & i).Value, 2) = "42" Or Left(.Range("F" & i).Value, 2) = "43" Or Left(.Range("F" & i).Value, 2) = "44" Or Left(.Range("F" & i).Value, 2) = "46" Then
Worksheets("上坎").Range("A" & oi_sk & ":Q" & oi_sk).Value = .Range("A" & i & ":Q" & i).Value
oi_sk = oi_sk + 1
End If
toNextrow:
Next i
End With
End Sub |
