一、方法一(不用循环) Sub s1() Dim i Dim rg As Range For i = 1 To Worksheets.Count Worksheets(i).Select Replace:=False Next Selection.Value = "1314" Range("a3").Select Selection.Value = "####" End Sub 二、循环 SelectedSheets Sub s2() Dim sh As Ob ...
论坛上看到的,先存这,很实用的。 Sub ClearImmediate() Debug.Print "this is atest" With Application.VBE.Windows("立即窗口") .Visible = True .SetFocus VBA.SendKeys "^{a}" VBA.SendKeys "{del}" ' .Visible = False'关闭立即窗口! End With End Sub