求助贴居然工程还加密- Private Sub Worksheet_Activate()
- Dim Arr, Brr, i&, j%, k%, EndRow&, EndCol%
- Dim sNum#, sKg#, fNum#, fKg#
- With Sheets(1)
- EndRow = .Cells(Rows.Count, 1).End(xlUp).Row
- EndCol = .Cells(4, Columns.Count).End(xlToLeft).Column
- Arr = .Range("d5:k" & EndRow).Value
- Brr = .Range("l5", .Cells(EndRow, EndCol)).Value
- End With
- For i = 1 To UBound(Arr)
- For j = 1 To UBound(Brr, 2) Step 4
- sNum = sNum + Val(Brr(i, j))
- sKg = sKg + Val(Brr(i, j + 1))
- fNum = fNum + Val(Brr(i, j + 2))
- fKg = fKg + Val(Brr(i, j + 3))
- Next
- Arr(i, 3) = sNum
- Arr(i, 4) = sKg
- Arr(i, 5) = fNum
- Arr(i, 6) = fKg
- Arr(i, 7) = Arr(i, 1) + Arr(i, 3) - Arr(i, 5)
- Arr(i, 8) = Arr(i, 2) + Arr(i, 4) - Arr(i, 6)
- Next
- Range("d5").Resize(UBound(Arr), 8) = Arr
- End Sub
复制代码 |