永发信息网

请解答一道EXCEL宏的问题?

答案:1  悬赏:10  手机版
解决时间 2021-04-30 22:00
  • 提问者网友:锁深秋
  • 2021-04-30 09:57

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 行就无法运行下去了,毛病在哪呢?

最佳答案
  • 五星知识达人网友:你哪知我潦倒为你
  • 2021-04-30 10:33

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


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


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


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


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


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




我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯