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

mxg825

EXCEL 文件 压缩成RAR 文件，
高级模式  有个回形针图标

lht445

附件

吕?布

单元格内容长度不能超出255

windimi007

回复 lht445 的帖子

楼主应该是在Sheet2中运行代码的吧！把最后一句改成下面的代码后再试试：{:3912:}

1. Sheet1.Range(Sheet1.Cells(m, 1), Sheet1.Cells(m + p - 1, n)).Copy Sheet2.Cells(1, 1)

复制代码

Zipall

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

lht445

非常感谢，让我先试试看

windimi007

回复 Zipall 的帖子

猫哥所言极是！！！！！！！{:1612:}

mxg825

CELLS 前要补上工作表名

lht445

回复 Zipall 的帖子

程序语言非常清晰，非常感谢，已经可以用了，谢谢！非常感谢！