[已解决]ubound问题

edisonx32123

如图，我在sheets（1）中运行代码，ubound（brr）结果是3；请教各位大神，我需要在sheets（1）中运行代码后得到ubound（brr）正确的结果5，该如何修改代码？

代码如下：
Sub t()
    Dim arr, brr, x
        arr = Sheets(1).Range("a2:b" & Range("b65536").End(3).Row)
        brr = Sheets(2).Range("a2:b" & Range("b65536").End(3).Row)
            For x = 1 To UBound(brr)
            Next x         
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2017-10-16 15:22

arr = Sheets(1).Range("a2:b" & Sheets(1).Range("b65536").End(3).Row)
brr = Sheets(2).Range("a2:b" & Sheets(2).Range("b65536").End(3).Row)

跳转到最佳答案楼层

爱疯

arr = Sheets(1).Range("a2:b" & Sheets(1).Range("b65536").End(3).Row)
brr = Sheets(2).Range("a2:b" & Sheets(2).Range("b65536").End(3).Row)

edisonx32123

爱疯 发表于 2017-10-16 15:22
arr = Sheets(1).Range("a2:b" & Sheets(1).Range("b65536").End(3).Row)
brr = Sheets(2).Range("a2:b" & ...

{:331:}多谢！