代码只能在一个工作表中执行

aexc

Sub 边框及排序()


    Range(Cells(2, 1), Cells(Range("A300").End(xlUp).Row, 2)).Select
    Selection.Borders.LineStyle = xlContinuous
    Selection.Sort key1:=Selection.Cells(1, 2), Order1:=1, _
    key2:=Selection.Cells(1, 1), Order2:=1, Header:=xlYes

End Sub
想对工作表里选定内容排序并加边框，用这段代码只是对当前的工作表有作用，加了如下循环提示错误

Sub 边框及排序()

    Dim st As Worksheet
    For Each st In Worksheets
    st.Range(Cells(2, 1), Cells(Range("A300").End(xlUp).Row, 2)).Select
    Selection.Borders.LineStyle = xlContinuous
    Selection.Sort key1:=Selection.Cells(1, 2), Order1:=1, _
    key2:=Selection.Cells(1, 1), Order2:=1, Header:=xlYes
    Next
End Sub

请老师们指导一下，谢谢

moonlit123

1. Sub 边框及排序()
   
2.      Dim st As Worksheet
   
3.      For Each st In Worksheets
   
4.      st.Range(st.Cells(2, 1), st.Cells(st.Range("A300").End(xlUp).Row, 2)).Borders.LineStyle = xlContinuous
   
5.      st.Range(st.Cells(2, 1), st.Cells(st.Range("A300").End(xlUp).Row, 2)).Sort key1:=st.Cells(1, 2), Order1:=1, key2:=st.Cells(1, 1), Order2:=1, Header:=xlYes
   
6.      Next
   
7. End Sub
   

复制代码

你要在每个 range 和cells 的前面增加限制， st.

或者，
先激活st（worksheet）
再默认激活状态下执行 子范围range和cells操作。

1. Sub 边框及排序()
   
2.      Dim st As Worksheet
   
3.      For Each st In Worksheets
   
4.      st.Activate
   
5.      Range(Cells(2, 1), Cells(Range("A300").End(xlUp).Row, 2)).Borders.LineStyle = xlContinuous
   
6.      Range(Cells(2, 1), Cells(Range("A300").End(xlUp).Row, 2)).Sort key1:=Cells(1, 2), Order1:=1, key2:=Cells(1, 1), Order2:=1, Header:=xlYes
   
7.      Next
   
8. End Sub
   

复制代码

月关

" 对工作表里选定内容 ... " —— 不要把代码写在工作表里，写到 thisworkbook 里或者 模块 里