Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: zhongyong6899

[已解决]新手VBA求助

[复制链接]
 楼主| 发表于 2017-4-17 08:45 | 显示全部楼层
谢谢高手: 327718098    运行时出现下面附件的错误,不能正常运行!!!
QQ截图20170417084339.png
QQ截图20170417084350.png
回复

使用道具 举报

发表于 2017-4-17 09:44 | 显示全部楼层
回复

使用道具 举报

发表于 2017-4-17 09:46 | 显示全部楼层
本帖最后由 327718098 于 2017-4-17 09:52 编辑
zhongyong6899 发表于 2017-4-17 08:45
谢谢高手: 327718098    运行时出现下面附件的错误,不能正常运行!!!

sht.   还有个小圆点

vba求助.rar

22.62 KB, 下载次数: 3

评分

参与人数 1 +1 收起 理由
zhongyong6899 + 1 来学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-4-17 10:37 | 显示全部楼层
我用的是EXCEL2010   运行时出现下面的错误
QQ截图20170417103157.png
QQ截图20170417103413.png
QQ截图20170417103518.png
回复

使用道具 举报

 楼主| 发表于 2017-4-17 10:47 | 显示全部楼层
主要问题出在下面的错误,提示应该是排序方面的问题?
QQ截图20170417104129.png
回复

使用道具 举报

发表于 2017-4-17 10:59 | 显示全部楼层
我在3台电脑上都试过可以用,我这是wps2016版
回复

使用道具 举报

发表于 2017-4-17 11:30 | 显示全部楼层
本帖最后由 327718098 于 2017-4-17 11:35 编辑
zhongyong6899 发表于 2017-4-17 10:47
主要问题出在下面的错误,提示应该是排序方面的问题?

我在surface上测试,微软的excel确实运行那一句不行,这是修改后大
sht.Range(sht.Cells(3, 4), sht.Cells(sht.Cells(Rows.Count, 1).End(3).Row, 4)).Sort key1:=sht.Cells(3, 4), Order1:=1, Header:=xlGuess

评分

参与人数 1 +3 收起 理由
zhongyong6899 + 3 很给力

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-4-17 14:53 | 显示全部楼层
谢谢您的耐心指导!
为什么将"B"和"D"换列后,更改wb = Sheet1.Cells(hh, "D")后还是不能运行?应该怎么样更改,谢谢谢

vba求助.rar

23.5 KB, 下载次数: 6

回复

使用道具 举报

发表于 2017-4-17 15:40 | 显示全部楼层
zhongyong6899 发表于 2017-4-17 14:53
谢谢您的耐心指导!
为什么将"B"和"D"换列后,更改wb = Sheet1.Cells(hh, "D")后还是不能运行?应该怎么样 ...

上面还有个wb = Sheet1.Cells(hh, "B"),两个都要改

评分

参与人数 1 +3 收起 理由
zhongyong6899 + 3 我和小伙伴都惊呆了

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-4-17 16:32 | 显示全部楼层
现在在实际的工作中不包含“全部”工作表,还有九个工作表,但是在运行时出现了下面的错误?
QQ截图20170417162919.png
QQ截图20170417162932.png
QQ截图20170417162940.png
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-9 10:08 , Processed in 0.275638 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表