EXCEL 宏高手，高分，来帮下。

EXCEL 宏高手，高分，来帮下。

Sub ssAA2()
 Dim R1 As Range
 Dim i&
 i = ActiveSheet.Columns("AA:AA").Find(What:="匹配率", LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Row()
 Range(Cells(i + 1, "AA"), Cells(i + 2, "AW")).Select
End Sub

这么高的分，要诱人呀

有大神参与竞争，小的退出~~~~~~拜拜~~~~~~~
助师傅dychj8827197一臂之力，第一个宏，一句话搞定：Sub xz1()
Range("AA1:AA" & Rows.Count).Find("上").Offset(-1, 0).Resize(3, 26).Select
End Sub
 

 
第2个宏：Sub xz2()
Range("BD1:BD" & Rows.Count).Find("上").Offset(-1, 0).Resize(3, 22).Select
End Sub
 
第3个宏：Sub xz3()
Range("AA1:AA" & Rows.Count).Find("上").Resize(2, 23).Select
End Sub