vba如何实现满足条件就将工作表符合条件的单元格为选中状态

迷途羊羔 · 发表于 2023-3-23 10:20

linlianboy 发表于 2023-3-23 10:19
不好意思，目前您的代码不会将第一行选中呀，只会从第二行开始为选中状态，还请您帮忙看下，能不能选中状 ...

Sub 选中()
Dim a
For a = 1 To Sheets.Count
Sheets(a).Activate
d = Sheets(a).Range("d1048576").End(xlUp).Row
      For Each Rng In Sheets(a).Range("d1" & ":" & "d" & d)
         If Rng <> "" Then aa = aa & Rng.Offset(0, -2).Address & ":" & Rng.Offset(0, 10).Address & ","
      Next
      aaa = Mid(Left(aa, Len(aa) - 1), Len(aaa) + 1, Len(Left(aa, Len(aa) - 1)) - Len(aaa))
      Range(aaa).Select
      aaa = aa
   Next a
End Sub

迷途羊羔 · 发表于 2023-3-23 10:34

linlianboy 发表于 2023-3-23 10:19
不好意思，目前您的代码不会将第一行选中呀，只会从第二行开始为选中状态，还请您帮忙看下，能不能选中状 ...

原D2修改为D1

3190496160 · 发表于 2023-3-23 11:13

3190496160 · 发表于 2023-3-23 11:13

车间汇总1.rar (77.02 KB, 下载次数: 3)

linlianboy · 发表于 2023-3-23 20:31

非常感谢大家的帮助，谢谢大家了

		自动登录	找回密码
密码			免费注册

[求助] vba如何实现满足条件就将工作表符合条件的单元格为选中状态