[已解决]VBA读入代码修改求助

安全网

，都没有找到合适的调试方法

grf1973

没什么问题，主要原因就是你在“读入”里面又重新dim了一下arr。

安全网

grf1973 发表于 2015-10-14 13:20
没什么问题，主要原因就是你在“读入”里面又重新dim了一下arr。

这个地方运行错误是哪里的问题

grf1973

看看你的数据表，是不是[a1].currentregion有问题，或者你直接写成arr=range("a1:??")之类的形式。

安全网

grf1973 发表于 2015-10-14 16:41
看看你的数据表，是不是[a1].currentregion有问题，或者你直接写成arr=range("a1:??")之类的形式。

谢谢！是我的A1单元格有问题，设置了单元格有效性

安全网

grf1973 发表于 2015-10-14 13:20
没什么问题，主要原因就是你在“读入”里面又重新dim了一下arr。

不好意思！又遇到一个问题，如果数据薄内有3个工作表，我要以次分3个统计表统计怎么修改代码

安全网

grf1973 发表于 2015-10-14 16:41
看看你的数据表，是不是[a1].currentregion有问题，或者你直接写成arr=range("a1:??")之类的形式。

    ARR = WB.Worksheets(1).[a1].CurrentRegion这句怎么改，还有数据薄内有工作表1、工作表2，如果要分别对这2个数据表内的数据进行统计代码怎么样修改

grf1973

Arr=WB.Worksheets(1).range("a1:n" & WB.Worksheets(1).[a65536].end(3).row)
其他表用WB.Worksheets(2).。。。。引用

安全网

grf1973 发表于 2015-10-16 09:53
Arr=WB.Worksheets(1).range("a1:n" & WB.Worksheets(1).[a65536].end(3).row)
其他表用WB.Worksheets(2). ...

    [b3].Resize(nr - 2, nc).Sort Key1:=Cells(3, nc + 1), Order1:=xlDescending, Orientation:=xlTopToBottom     '竖向，按汇总列排序(倒序)

怎么样将代码修改为B列可以排序