永发信息网

请解答一道EXCEL宏的问题?

答案:1  悬赏:10  手机版
解决时间 2021-04-30 22:00

Sub 月底用()
Dim i As Integer
Dim j As Integer

i = Range("q66536").End(xlUp).Select
j = Range("o66536").End(xlUp).Select

Range(Cells(8, 17), Cells(i, 17)).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-60
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-6
Range(Cells(8, 9), Cells(j, 15)).Select

运行到Range(Cells(8, 17), Cells(i, 17)).Select 行就无法运行下去了,毛病在哪呢?

最佳答案

当然,你i,j到底要返回什么?


你代码的结果i变量返回的值是-1


cells(-1,17) ,行是从1开始的,-1当然是错的。


也没看明白代码的目的,感觉上象是你要返回最后一行的行号,


如果是的话,把上面两句代码改成


= Range("q66536").End(xlUp).row




我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
什么动漫里美女最多?
中国移动有设置黑名单的业务么
跪求神魔大陆激活码!!!
难道钱对女人来说很重要吗?那为什么爱钱的女
白雪公主几时出现
深圳顺兴广场大楼的资料到哪里找才能找到最全
欧莱雅净痘修护精华水怎么样
定边种子公司怎么去啊,有知道地址的么
更新显示驱动的问题?
现在的黄金价是多少
手机玩游戏怎么双开,请问我手机的一个游戏想
求 回春 大地 技能详细介绍
华达·阳光新城(东南门)地址有知道的么?有点
谁能告诉我属兔的,射手座的女孩子的脾气跟性
康华玻璃店在哪里啊,我有事要去这个地方
推荐资讯
炫舞紫钻掉了几天之后再续,还是两级吗
有没帮忙带练的我现在58级需要升到60级,先练
贵州历年导游资格考试真题及答案下载?
Y550的随着时间变换的桌面恢复
求一款800元一下的手机。
中国哪里的杨梅最好吃?
火箭究竟第三节要领先多少分,才能保证第四节
中国为什么不统一汉字 一些少数民族的会不会
假如你抽奖中了五千万,你打算用这五千万做些
QQ三国今天进入游戏超时,怎么回事?
去bears.60450.cn能领水晶礼包吗?
为什么南方人喜欢装B呢?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?