选定多个单元格的问题

weide_yang

J列中有N个单元格的值大于100
用代码1次性选定J列中大于100的多个单元格
例如本例的绿色格
恳请老师赐教，谢谢！

^星^

工作簿2.7z (13.87 KB, 下载次数: 5)

2024-4-4 12:20 上传

点击文件名下载附件

taller

swl4561255

1. Sub test()
   
2. Dim a, myr As Range
   
3. ar = [J3].End(4).Row
   
4. For Each a In Range("J4:J" & ar)
   
5.   If a.Value > 100 Then
   
6.      If myr Is Nothing Then
   
7.         Set myr = a
   
8.      Else
   
9.         Set myr = Union(myr, a)
   
10.      End If
    
11.    End If
    
12. Next
    
13. myr.Interior.ColorIndex = 12
    
14. myr.Select
    
15. MsgBox "大于100的单元格共有" & Selection.Cells.Count & "个。"
    
16. End Sub
    

复制代码

weide_yang

多谢两位老师帮助，问题解决了。

咔咔乱坠

参与一下，wps最新版函数

1. =HYPERLINK("#"&TEXTJOIN(",",,ADDRESS(FILTER(ROW(4:10),J4:J10>100),10)))

复制代码

稍做简化

1. =HYPERLINK("#"&TEXTJOIN(",",,TEXT(FILTER(ROW(4:10),J4:J10>100),"J0")))

复制代码

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.4.4
   
2.     Dim arr, brr
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     With Sheets("Sheet1")
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         Set Rng = Nothing
   
8.         For i = 4 To r
   
9.             If Val(.Cells(i, 10)) > 100 Then
   
10.                 If Rng Is Nothing Then
    
11.                     Set Rng = .Cells(i, "j")
    
12.                 Else
    
13.                     Set Rng = Union(.Cells(i, "j"), Rng)
    
14.                 End If
    
15.             End If
    
16.         Next i
    
17.         If Not Rng Is Nothing Then Rng.Select
    
18.     End With
    
19.     Application.ScreenUpdating = True
    
20. End Sub
    
21. 
    

复制代码

prome3

用 Excel 内置的 AutoFilter 方法：