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

123132313

Sub test()

Dim rng As Range

Dim rg1 As String

Dim x As Integer

Set ws = ThisWorkbook.Sheets("Entity-参数")

x = ws.Range("a4999").End(xlUp).Row

For Each rng In ws.Range(ws.Cells(4, 3), ws.Cells(x, 3))

    If Len(rng.Text) = 4 Then
       rg1 = rg1 & rng.Address & ","
    End If
Next

ws.Range(Left(rg1, Len(rg1) - 1)).Select

End Sub

以上是我的语法，主要是关于将符合条件的单元格，依次获取其单元格的位置并组合起来，最后选中它们
但是到最后一步select会报错，提示1004
range里面的内容，我单独跑之后，反馈的结果是$C$4,$C$5,$C$6,$C$7
所以想请教下各位老师，该如何该对

123132313

附件如下，十分麻烦大家帮忙看看为什么执行后会报错

需求：同时选中在C列ID编码为4位数的单元格，即符合条件的单元格都是选中状态（这样方便我后面将它们复制）

123132313

迪尼索斯

上附件                           

tanglf188

If Len(rng.Text) = 4 Then
       rg1 = rg1 & "," & rng.Address
    End If

半百

ws是活动工作表吗？

123132313

半百 发表于 2023-2-10 19:26
ws是活动工作表吗？

嗯嗯是的，我稍后上传一个附件。。。

123132313

tanglf188 发表于 2023-2-10 19:01
If Len(rng.Text) = 4 Then
       rg1 = rg1 & "," & rng.Address
    End If

不可以我试了，而且感觉不是单元格的问题 而是最后一段的问题。我上传附件了，麻烦您再帮忙看看

123132313

迪尼索斯 发表于 2023-2-10 18:47
上附件

好的好的，已经上传附件了，十分感谢

迪尼索斯

123132313 发表于 2023-2-10 22:54
好的好的，已经上传附件了，十分感谢

range中参数过多。
可以测试range("A1:A1000")和range("A1,A2,A3......A999,A1000")，前者正常运行后者会报错。