|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 david_jiao 于 2020-3-13 07:57 编辑
各位老师:
本人EXCEL表中有一个VBA代码,运行时间稍长,能否帮尽快加一个进度条代码,在程序运行的同时显示进度条,以显示完成进度!谢谢!
Sub abc()
Dim i, Sh As Worksheet, rng As Range
Range("A:D").Clear
For Each Sh In Worksheets
If Sh.Name = "Sheet1" Then 'Or Sh.Name = "Sheet2" 可能有n个表
Sh.Select
For Each rng In Range("a2", Cells(Rows.Count, "a").End(xlUp))
If rng.Offset(0, 3) <> "" Then
i = i + 1
rng.Offset(0, 3).Resize(1, 4).Copy Sheets("Sheet3").Cells(i + 1, 1)
End If
Next
End If
Next
[D1:G1].Copy Sheets("Sheet3").Range("A1:D1")
Sheets3.Select
[A1].Select
End Sub
|
评分
-
1
查看全部评分
-
|