- Sub test1()
- Dim r%, i%, c%, j5
- Dim arr, brr
- With Worksheets("三种情况")
- arr = .Range("a3:g5")
- ReDim brr(1 To UBound(arr) * UBound(arr, 2), 1 To 1)
- m = 0
- For i = 1 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- m = m + 1
- brr(m, 1) = arr(i, j)
- Next
- Next
- .Range("d11").Resize(UBound(brr), 1) = brr
-
- arr = .Range("j3:n8")
- ReDim brr(1 To UBound(arr) * UBound(arr, 2) / 2, 1 To 2)
- m = 0
- For i = 1 To UBound(arr) Step 2
- For j = 1 To UBound(arr, 2)
- m = m + 1
- brr(m, 1) = arr(i, j)
- brr(m, 2) = arr(i + 1, j)
- Next
- Next
- .Range("l14").Resize(UBound(brr), UBound(brr, 2)) = brr
-
- arr = .Range("r3:v11")
- ReDim brr(1 To UBound(arr) * UBound(arr, 2) / 3, 1 To 3)
- m = 0
- For i = 1 To UBound(arr) Step 3
- For j = 1 To UBound(arr, 2)
- m = m + 1
- brr(m, 1) = arr(i, j)
- brr(m, 2) = arr(i + 1, j)
- brr(m, 3) = arr(i + 2, j)
- Next
- Next
- .Range("s15").Resize(UBound(brr), UBound(brr, 2)) = brr
- End With
- End Sub
复制代码 |