查询重复不连续的字符串解决方法

查询重复不连续的字符串
我在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.Address
End Sub

查询重复不连续的字符串解决方法

相关推荐