|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
r = Sheets("统计").UsedRange.Rows.Count
Sheets("统计").Range("b5:ae" & r - 5).Value = ""
arr = Sheets("统计").UsedRange
For j = 5 To UBound(arr) - 5
d(arr(j, 1)) = j
Next j
For j = 2 To Sheets.Count
brr = Sheets(j).UsedRange
For i = 5 To UBound(brr) - 5
r = d(brr(i, 1))
If r <> 0 Then
For k = 33 To 46
arr(r, k - 18) = brr(i, k) + arr(r, k - 18)
Next k
arr(r, j) = brr(i, 33)
arr(r, 29) = brr(i, 47)
arr(r, 30) = brr(i, 48)
arr(r, 31) = brr(i, 49)
arr(r, 14) = arr(r, 15)
End If
Next i
Next j
Sheets("统计").UsedRange = arr
Application.ScreenUpdating = True
End Sub
|
评分
-
1
查看全部评分
-
|