|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 yxbaju 于 2019-9-8 22:43 编辑
- Sub Trans()
- Dim arr, brr, i&, n&, m As Byte, j As Byte
- arr = [Sheet1].UsedRange
- ReDim brr(1 To (UBound(arr, 2) - 4) * (UBound(arr) - 1), 1 To UBound(arr))
- n = 1
- For i = 2 To UBound(arr)
- For m = 1 To 4
- brr(n, m) = arr(i, m)
- Next
- For j = 5 To UBound(arr, 2)
- brr(n, 5) = arr(i, j)
- n = n + 1
- Next
- Next
- With ActiveSheet
- For m = 1 To 4
- .Cells(1, m) = arr(1, m)
- .Cells(1, 5) = "DIMM SN"
- Next
- .[A2].Resize(n - 1, 5) = brr
- End With
- End Sub
复制代码
|
评分
-
2
查看全部评分
-
|