久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標題: VBA把一個表中符合條件的內容復制到其他表中 [打印本頁]

作者: 3lian 時間: 2014-3-1 01:12
標題: VBA把一個表中符合條件的內容復制到其他表中
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

歡迎光臨 (http://m.zg4o1577.cn/bbs/)