[已解决]求助诊断最后一句代码问题

明日之星

求助诊断最后一句代码问题.zip (17.98 KB, 下载次数: 3)

2017-8-15 11:27 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2017-8-15 11:36

brr = Sheets(1).Range("a2:d" & Sheets(1).Range("d65536").End(xlUp).Row)

跳转到最佳答案楼层

grf1973

brr = Sheets(1).Range("a2:d" & Range("d65536").End(xlUp).Row)
        For i = 2 To UBound(brr)

grf1973

brr = Sheets(1).Range("a2:d" & Sheets(1).Range("d65536").End(xlUp).Row)