|
发表于 2019-5-24 18:06
来自手机
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 lsc900707 于 2019-5-24 19:23 编辑
代码修改好了:- Sub gj23w98()
- ReDim brr(1 To 9999, 1 To 15)
- arr = [b7].CurrentRegion
- For i = 1 To UBound(arr)
- m = m + 1
- brr(m, 1) = arr(i, 3)
- brr(m, 2) = arr(i, 5)
- brr(m, 3) = arr(i, 8)
- brr(m, 4) = arr(i, 6)
- brr(m, 5) = arr(i, 7)
- For j = 6 To 15
- brr(m, j) = arr(i, j + 3)
- Next
- s = s + Val(brr(m, 7))
- Next
- brr(m + 1, 1) = "合计": brr(m + 1, 7) = s
- With Sheets("B1表")
- If m Then
- .Cells.Clear
- .[a1].Resize(m + 1, 15) = brr
- .[a1].Resize(m + 1, 15).Borders.LineStyle = 1
- End If
- End With
- End Sub
复制代码
|
评分
-
2
查看全部评分
-
|