|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
参与一下。。。
- Sub ykcbf() '//2024.4.18
- Set sh = ThisWorkbook.Sheets("年度汇总表")
- ReDim brr(1 To 1000, 1 To 9)
- For Each sht In Sheets
- If Val(sht.Name) Then
- m = m + 1
- With sht
- brr(m, 1) = m
- brr(m, 2) = .[a1].Value
- brr(m, 3) = .[b4].Value
- brr(m, 4) = .[f33].Value
- brr(m, 5) = .[i33].Value
- brr(m, 7) = .[j36].Value
- brr(m, 6) = brr(m, 3) + brr(m, 4) - brr(m, 5)
- brr(m, 8) = brr(m, 6) - brr(m, 7)
- End With
- End If
- Next
- With sh
- .[a3:i1000] = ""
- .[a3].Resize(m, 9) = brr
- End With
- MsgBox "OK!"
- End Sub
复制代码
|
|