|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub gj23w98()
- r = Cells(Rows.Count, 4).End(3).Row
- arr = Range("b1:k" & r)
- ReDim brr(1 To UBound(arr), 1 To 8)
- For i = 2 To UBound(arr)
- If Len(arr(i, 1)) Then
- s = Array(arr(i, 2), arr(i, 3), arr(i, 5), arr(i, 1), arr(i, 6), arr(i, 7), arr(i, 9), arr(i, 10))
- m = m + 1
- For j = 1 To 8
- brr(m, j) = s(j - 1)
- Next
- End If
- Next
- With Sheet2
- r = .Cells(.Rows.Count, 2).End(3).Row
- If m Then .Cells(r + 1, 2).Resize(m, 8) = brr
- End With
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|