热度 1|
一、方法一(不用循环)
Sub s1()
End Sub
二、循环 SelectedSheets
Sub s2()
Dim sh As Object
Dim sra As String
sra = Selection.Address
For Each sh In ActiveWindow.SelectedSheets
If TypeName(sh) = "Worksheet" Then
sh.Range(sra).Interior.ColorIndex = 3
End If
Next
End Sub