- Sub Macro2()
- Dim Rng As Range, oRng As Range
- Dim Sht As Worksheet
- Dim R, Rr, Cc
- R = 4
- Rr = R
- Cc = 21
- Set Sht = Sheet1
- Set Rng = Sheet1.Range("$B$5,$L$19,$D$29,$M$19,$P$6,$M$25,n402,d161,p261")
- RngSort Rng, Sht.Cells(R, Cc)
-
-
- End Sub
- Function RngSort(Rng As Range, wRng As Range)
- Dim Sht As Worksheet
- Dim oRng As Range
- Dim R, Rr, Cc
- R = wRng.Row
- Rr = R
- Cc = wRng.Column
- Set Sht = wRng.Parent
- For Each oRng In Rng
-
- Sht.Cells(Rr, Cc) = "=" & oRng.Address '(0,0)
- Rr = Rr + 1
- Debug.Print Rr, oRng.Address
- Next oRng
- ''
- Set oRng = Sht.Cells(R, Cc).Resize(Rr - R + 0, 1)
- Debug.Print Sht.Cells(R, Cc)
- oRng.Select
- oRng.Sort oRng
-
- End Function
复制代码
|