我在VBA定一组 Dim myRng As Range
我想要在 Shee1 里面查询重复的字符串!
例如字符串为 “123” 但是 ”123” 分布的 Cell是不连续的，
假定为 A1,A5,B6,C5 都有，我该怎样利用 VBA 将A1,A5,B6,C5 都集合到我的myRng 里面呢??
------解决方案--------------------------------------------------------
变通一下:
直接定义一数组:dim myarr() as string
存放找到的单元格地址行不行呢
------解决方案--------------------------------------------------------
你可以利用 find 方法来找到所有的 123 的单元格，然后把它们的地址写到一个字符串中。根据这个字符串，生成你需要的这个 myRng
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
------解决方案--------------------------------------------------------
UsedRange
Sub test()
Dim a As Range, myRng As Range
Set myRng = Sheets("sheet1").UsedRange
For Each a In myRng
MsgBox a.Address
Next
End Sub
------解决方案--------------------------------------------------------
- VB code
Sub macro1() Dim myRng As Range, r As Range, fAddress As String With ActiveSheet.UsedRange Set r = .Find(123) If Not r Is Nothing Then fAddress = r.Address: Set myRng = r Do Set r = .FindNext(r) Set myRng = Union(myRng, r) Loop While Not r Is Nothing And r.Address <> fAddress End With MsgBox myRng.AddressEnd Sub