- Sub aaa()
- Dim arr, i&, j&, brr, r&
- arr = [a1].CurrentRegion
- ReDim brr(1 To (UBound(arr) - 1) * UBound(arr, 2) / 2, 1 To 2)
- For j = 1 To UBound(arr, 2) Step 2
- For i = 2 To UBound(arr)
- If arr(i, j) <> "" Then
- r = r + 1
- brr(r, 1) = arr(i, j)
- brr(r, 2) = arr(i, j + 1)
- End If
- Next i
- Next j
- [a9].Resize(UBound(brr), 2) = brr
- End Sub
复制代码 |