如何将EXCEL工作簿中所有工作表一次性运行同一个宏或模块？

请问如何将以下宏一次性在一个工作簿中所有工作表中运行？
Sub 宏1()
'
' 宏1 宏
'

'
Range("I1440").Select
Application.Goto Reference:="R1440C9:R2055C15008"
ActiveWorkbook.Worksheets("Hong=11x").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hong=11x").Sort.SortFields.Add(Range("I1700:VEF1700"_
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color =RGB(255 _
, 0, 0)
ActiveWorkbook.Worksheets("Hong=11x").Sort.SortFields.Add(Range("I1699:VEF1699"_
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color =RGB(255 _
, 0, 0)
With ActiveWorkbook.Worksheets("Hong=11x").Sort
.SetRange Range("I1440:VEF2055")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
说明：
一个工作簿中有多个sheet，上面“宏码”是一个sheet用的。怎样修改上面“宏码”让它能一次性运行工作簿中所有sheet。谢谢~~

举报该文章

其他看法

第1个回答 2014-12-18

for each sht in thisworkbook.sheets

next追问

谢谢你回答，我对EXCEL不太懂，这个宏是我录的。你能不能把码改好发上来呢，在这先谢谢啦~~

追答

我都不知道你想干啥怎么写

追问

就是让上面那个宏码能够在同一个工作簿中所有sheet运行？

追答

sub aaa

for each sht in thisworkbook.sheets

Range("I1440").Select
Application.Goto Reference:="R1440C9:R2055C15008"
sht.Sort.SortFields.Clear
sht.Sort.SortFields.Add(Range("I1700:VEF1700"_
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color =RGB(255 _
, 0, 0)
sht.Sort.SortFields.Add(Range("I1699:VEF1699"_
), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color =RGB(255 _
, 0, 0)
With sht.Sort
.SetRange Range("I1440:VEF2055")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With

next

end sub

追问

运行不了，说语法错误。
{sht.Sort.SortFields.Add(Range("I1700:VEF1700"_}帮忙检查一下看看哪里出问题了？谢谢~~

相似回答

大家正在搜