下面的红色字体不知道怎么编，想求UBound("bjh" & m & n)的上界，但是语法不对，请指教，谢谢
 For m = 97 To 102
            t = Chr(m)
            For n = 1 To 3
                Dim str As String
                str = t & n
                k = UBound("bjh" & str)
                    Print "k=" & k
                For p = 1 To k
                    Print "p=" & p
                    If a = "bjh" & t & n & "(" & p & ")" Then
                        If cdia(b) <= "rang_" & t & n & "(" & 1 & ")" _
                            And cdia(b) >= "rang_" & t & n & "(" & 2 & ")" _
                            Or cdia(b) <= "rang_" & t & n & "(" & 3 & ")" _
                            And cdia(b) >= "rang_" & t & n & "(" & 4 & ")" Then
                            fact = 1
                            Print a, b
                            Else: fact = 0
                        End If
                    End If
                Next p
            Next n
        Next m

不知道你想做什么.
Ubound(数组名)

第一个循环 t=a,n=1
也就是要求bjha1的ubound

3楼的解释..更看不懂..
这程序干嘛用的?

给简化一下
For m = 97 To 102
            t = Chr(m)
            For n = 1 To 3
                    k = “UBound(bjh" & t & n“)”
                    Print "k=" & k
            Next n
Next m

bjh是什么?

k = “UBound(bjh" & t & n&“)"
就这句，语法不对

bjha1，bjha2，bjha3
...
...
bjhf1，bjhf2，bjhf3
都是数组

4楼的话.
这是干嘛用的.
6楼的话.
bjh是什么东西.

估计是不可以了.