基于单元格VBA代码的循环引用问题

rayhen

单元格 H9 是搜索到的 company

所谓循环就是从C9:C29，到C29再回到单元格 C9，循环到下一家就停止了

EXCEL VBA 将显示 I 列和 J 列


当单元格 H9选择 F Company 时

单元格 J9 为 140
单元格 I10 为 North China
单元格 J10 为 150
单元格 I11 为 Fujian
单元格 J11 为 160

任何帮助，将不胜感激！

笨鸟飞不高

help0705.zip (14.92 KB, 下载次数: 3)

2023-7-5 15:18 上传

点击文件名下载附件

rayhen

笨鸟飞不高 发表于 2023-7-5 15:18

笨鸟飞不高老师您代码可以贴出图片吗?打开代码都遗失了

笨鸟飞不高

rayhen 发表于 2023-7-5 16:04
笨鸟飞不高老师您代码可以贴出图片吗?打开代码都遗失了

Sub AwTest()
    Dim i&, x&, r&, Cpy$, arr, brr(1 To 3, 1 To 2), d As Object
    Set d = CreateObject("Scripting.Dictionary")
    arr = Range("C9:E29")
    For i = 1 To UBound(arr)
        If InStr(arr(i, 1), "Company") Then
            d(Trim(arr(i, 1))) = i
        End If
    Next
    Cpy = Trim(Range("H9").Value)
    x = d(Cpy)
    If x = 0 Then Exit Sub
    brr(1, 2) = arr(x, 3)
    Do
        x = x + 1
        If x > UBound(arr) Then x = 1
        If InStr(arr(x, 1), "Company") = 0 Then
            r = r + 1
            brr(r + 1, 1) = arr(x, 1)
            brr(r + 1, 2) = arr(x, 3)
            If r = 2 Then Exit Do
        End If
    Loop
    Range("I9").Resize(3, 2) = brr
End Sub

笨鸟飞不高

rayhen 发表于 2023-7-5 16:04
笨鸟飞不高老师您代码可以贴出图片吗?打开代码都遗失了

rayhen

老师,您代码多出了红色长方形的东西,这不因该出现的

笨鸟飞不高

rayhen 发表于 2023-7-5 21:23
老师,您代码多出了红色长方形的东西,这不因该出现的

rayhen

笨鸟飞不高老师您太棒了,您太厉害了,感谢您!