[已解决]单元格区域复制语句出现错误却找不出原因

lht445

可以随便设置m=1;n=7;p=12 对下面语句进行测试
Sheet6.Range(Cells(m, 1), Cells(m + p - 1, n)).Copy Sheet7.Range(Cells(1, 1), Cells(p, n))
上述语句中，m,n,p为变量，运行时出现错误，却找不到原因，请高手指点。

最佳答案

月排行榜 / 总排行榜

Zipall

2011-10-8 20:25

Sub test()
    With Sheet1
        r = .Range("p:p").Find(Sheet2.Range("y16")).Row '通常查找单元格内容在vba中使用find方法,而不是vlookup函数.
        m = .Cells(r, 19)
        p = .Cells(r, 17)
        n = .Cells(r, 18)
    End With
   
    With Sheet2
        .Cells(1, 1).Resize(p, n) = Sheet1.Cells(m, 1).Resize(p, n).Value '直接赋值比copy高效
        .Cells(16, 22) = m
        .Cells(16, 23) = n
        .Cells(16, 24) = p
    End With
End Sub

跳转到最佳答案楼层

mxg825

Sheet6.Range(Cells(m, 1), Cells(m + p - 1, n)).Copy Sheet7.Range(“A1”)

粘贴到的单元格，只需要首个单元格就可以了！不需要区域！

lht445

还是不行啊，烦死了，搞了一二个小时了，

mxg825

上传附件,看看

lht445

出现：运行时错误'1004'
方法'range'作用于对象'-worksheet'时失败
对话框

mxg825

我测试通过，
你的冒号：写错了吧？  写成分隔号;

1. Sub MYCOPY()
   
2. m = 1: n = 7: p = 12
   
3. Sheet6.Range(Cells(m, 1), Cells(m + p - 1, n)).Copy Sheet7.Range("A1")
   
4. End Sub

复制代码

lht445

Sheet4.Range("a" & p & ":l" & n).Copy Sheet5.Range("a1:l" & m)
  Sheet4.Range("a" & p & ":l" & n).Copy Sheet3.Range("a1:l" & m)

上面的语句却没问题，同样是p,m,n是变量

windimi007

回复 lht445 的帖子

传个附件有利于问题更快地解决，何乐而不为呢？{:4712:}

windimi007

回复 mxg825 的帖子

学习了，原来使用冒号连接啊！我一直用换行符连接的，不错，又学到一招！{:3512:}

lht445

如何上传附件？