|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub test()
- With Sheets("数据源")
- arr = .[A1].CurrentRegion
- ReDim brr(1 To (UBound(arr, 1) - 1) * (UBound(arr, 2) - 5), 1 To 7)
- For j = 6 To UBound(arr, 2)
- For i = 2 To UBound(arr, 1)
- brr((i - 2) * (UBound(arr, 2) - 5) + j - 5, 7) = arr(i, j)
- brr((i - 2) * (UBound(arr, 2) - 5) + j - 5, 6) = arr(1, j)
- For k = 1 To 5
- brr((i - 2) * (UBound(arr, 2) - 5) + j - 5, k) = arr(i, k)
- Next
- Next
- Next
- Sheets("更新后").[A2].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
- End With
- End Sub
复制代码 |
|