为什么range函数放了单元格的位置，执行会报错

caiyu93

1. Sub Main()
   
2.     Dim r As Range, arr$(), k%
   
3.     For Each r In [c:c].SpecialCells(2)
   
4.         ReDim Preserve arr(k)
   
5.         arr(k) = r.Address
   
6.         k = k + 1
   
7.     Next
   
8.     Range(Join(arr, ",")).Select
   
9. End Sub

复制代码

yuwd3

rg1太长了，超过256判断一下，用union连接起来

yuwd3

123132313 发表于 2023-2-10 22:57
附件如下，十分麻烦大家帮忙看看为什么执行后会报错

需求：同时选中在C列ID编码为4位数的单元格，即符合 ...

sg1太长了…………

123132313

yuwd3 发表于 2023-2-11 04:58
sg1太长了…………

可以了，十分感谢您！！