Sub 通用件()
X1 = ActiveWorkbook.ActiveSheet.UsedRange.Row
X2 = ActiveWorkbook.ActiveSheet.Range("A65536").End(xlUp).Row
For X = X1 To X2
If Cells(X, 1) = "通用件" Then
Cells(X, 1).Select
End If
Next
End Sub
求跨工作表查找的宏
答案:2 悬赏:10 手机版
解决时间 2021-02-03 12:28
- 提问者网友：精神病院里
- 2021-02-02 16:03
最佳答案
- 五星知识达人网友：孤独入客枕
- 2021-02-02 17:16
谢谢
全部回答
- 1楼网友：北城痞子
- 2021-02-02 18:20
sub 通用件()
dim findrng as range
worksheets("配件资料").select
set findrng = activesheet.range("a:a").find("通用件")
if not findrng is nothing then findrng.select
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯