【请指教】运行时错误1004 方法作用于对象时失败

excel初级小白

环境：当前工作簿包含2个工作表    sheet1和sheet5
诉求：遍历sheet1单元格区域复制到sheet5的指定位置


    Sheet5.Activate
    MsgBox ("激活成功")     
     For i = 4 To 10
       Sheet1.Range(Cells(i, 1), Cells(i, 13)).Copy Sheet5.Cells(5 * i - 16, 2)     
    Next i
这个bug是什么原因造成的  ？code貌似没问题啊  通过变量去遍历区域内的信息  



当i=4时  访问sheet1的区域 A4:M4     Range（cells（4,1），cells（4,13））   
当i=5时  访问sheet1的区域 A5:M5     Range（cells（5,1），cells（5,13））  

excel玉米

上附件上附件，没有附件啥也不干

半百

excel初级小白

半百 发表于 2023-3-30 14:44

非常谢谢  这是书里没有的  ，但是能解决我的问题  就是不知道为什么这样

半百

excel初级小白 发表于 2023-3-30 18:16
非常谢谢  这是书里没有的  ，但是能解决我的问题  就是不知道为什么这样

CELLS()没有冠以表名，指的是SHEET5（前边激活了的）里的单元格，SHEET1.RANGE是SHEET1里的单元格，用SHEET1的筐装SHEET5的单元格，它不允许

excel初级小白

半百 发表于 2023-3-30 21:23
CELLS()没有冠以表名，指的是SHEET5（前边激活了的）里的单元格，SHEET1.RANGE是SHEET1里的单元格，用SHE ...

太感谢了 下次遇到这个问题 指定为什么了  

liulang0808

excel初级小白 发表于 2023-3-30 23:59
太感谢了 下次遇到这个问题 指定为什么了

Sheet1.Activate
    MsgBox ("激活成功")     
     For i = 4 To 10
       Sheet1.Range(Cells(i, 1), Cells(i, 13)).Copy Sheet5.Cells(5 * i - 16, 2)     
    Next i


Sheet5.Activate
    MsgBox ("激活成功")     
     For i = 4 To 10
       Sheet1.Range(Sheet1.Cells(i, 1), Sheet1.Cells(i, 13)).Copy Sheet5.Cells(5 * i - 16, 2)     
    Next i

看看是否可行