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

答案:3 悬赏:0 手机版

解决时间 2021-04-03 14:27

提问者网友：斑駁影
2021-04-03 01:31

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

最佳答案

五星知识达人网友：山君与见山
2021-04-03 02:14

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

全部回答

1楼网友：北城痞子
2021-04-03 03:56

这么高的分，要诱人呀

2楼网友：杯酒困英雄
2021-04-03 03:43

有大神参与竞争，小的退出~~~~~~拜拜~~~~~~~
助师傅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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息