职工信息管理界面 点击删除键提示下标越界

卢一凡

Worksheets("职工档案").Rows(nrow).Copy Worksheets("删除").Range("A65536").End(xlUp).Offset(1, 0)

运行提示下标越界如何处理

卢一凡

'判断在对话框中按下哪个按钮
    If MsgBox("确定将该员工信息移动到“删除”工作表中吗？", vbQuestion + vbYesNo, "询问") = vbYes Then
        '取得当前“职工编号”所在的行号
        nrow = Worksheets("职工档案").Range("A1:A65536").Find(Range("C7").Value, lookat:=xlWhole).Row
        '把记录复制到“删除”工作表中
        Worksheets("职工档案").Rows(nrow).Copy Worksheets("删除").Range("A65536").End(xlUp).Offset(1, 0)
        '删除该条记录
        Worksheets("职工档案").Cells(nrow, "A").EntireRow.Delete
    End If

运行提示下标越界，请求帮忙，谢谢！

zjzyj

"职工档案"表名字对吗？"删除"表在本工作薄内吗名字对吗？

gwjkkkkk

上传附件看看。。。

Yalishanda30

这种没有附件的求助就好比发一张自己的照片给医生要求给看病。。。。。

卢一凡

gwjkkkkk 发表于 2023-4-2 19:45
上传附件看看。。。

谢谢！已经解决了

taller

没有示例文件，无从分析