第一问答网»论坛 › 中问网 › 问答 › 求execl2007高手帮我看看这个宏，能不能实现我想要功能 ...

求execl2007高手帮我看看这个宏，能不能实现我想要功能

11 |

2 | 2013-1-3 15:51:56 | 显示全部楼层 |阅读模式

Sub hz()Dim sht As WorksheetDim r&, i&, t%With Sheets("汇总").Cells.ClearContentsFor Each sht In Worksheets
i = .Range("a200000").End(xlUp).Row
If i = 1 Then
t = 0
Else
t = 1
End If
r = Application.WorksheetFunction.Min(sht.Range("a200000").End(xlUp).Row, sht.Range("a1").End(xlD...

使用道具举报