[已解决]数据查询模块出错

icenotcool

各位老师，想请老师帮我看看我的表问题出在哪儿，详情在附件内，谢谢老师了！附件 示例.rar (37.76 KB, 下载次数: 1)

2014-2-23 21:41 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

fffox

2014-2-23 20:28

icenotcool 发表于 2014-2-23 14:53
老师，不好意思，rowend = Sheet20.Range("A" & Sheet20.Rows.Count).End(xlUp).Row’sheet3，我修正过来了 ...

刚才答复你的这个问题，答到另一个帖子上了
示例.rar (37.94 KB, 下载次数: 3)

2014-2-23 20:27 上传

点击文件名下载附件

跳转到最佳答案楼层

风林火山

        Dim d As New Dictionary‘后面好像没用上
        Dim arr1()
        Dim ksname As String
        rowend = ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row
        If rowend = 3 Then rowend = 4
        ActiveSheet.Range("A4:AE66") = ""
        ksname = ActiveSheet.Range("C2").Value
        rowend = Sheet20.Range("A" & Sheet3.Rows.Count).End(xlUp).Row’sheet3个工作表在你的工作薄中没有啊

icenotcool

老师，不好意思，rowend = Sheet20.Range("A" & Sheet20.Rows.Count).End(xlUp).Row’sheet3，我修正过来了，可是还不行，可以在我原表修改一下，再上传吗？

fffox

icenotcool 发表于 2014-2-23 14:53
老师，不好意思，rowend = Sheet20.Range("A" & Sheet20.Rows.Count).End(xlUp).Row’sheet3，我修正过来了 ...

刚才答复你的这个问题，答到另一个帖子上了
示例.rar (37.94 KB, 下载次数: 3)

2014-2-23 20:27 上传

点击文件名下载附件

icenotcool

谢谢老师，可以运行了