是什么导致 Excel 运行时错误“6”溢出？

Question

请有人帮我更正我的代码以消除当我在下面的代码中只有一个单元格符合选择标准时出现的溢出错误？单元格 A4 及以下包含产品描述，单元格 B4 及以下包含数量。目的是将描述从 A4 复制到 L 列的次数与 B4 中的数量相对应，并重复此过程的次数与 A 列中的产品描述一样多。当有多个描述要被复制，但如果 A5 向下为空，则会导致溢出错误。下面代码中调用的三个宏 - 我相信 - 都是无害的，只与在实际代码开始运行之前取消保护此工作表有关，然后格式化范围并在完成后重新保护工作表。 我对 Excel 公式相当不错，但我的编码很弱，所以我希望答案是我的代码中的一个简单缺陷。提前谢谢了。

Private Sub Create_NumberList()

    Application.ScreenUpdating = False
    Sheets("Selections").Select
    Call UnprotectSelections
    Dim lRow As Long
    Dim x, MyCount As Integer

    lRow = Range("A4:B4").End(xlDown).Row

    For Each cell In Range("A4:A" & lRow)
        cell.Copy
        MyCount = cell.Offset(0, 8)

        Do
            x = x + 1
            Range("L" & x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                                 :=False, Transpose:=False
            MyCount = MyCount - 1
        Loop Until MyCount = 0
    Next cell

    Application.CutCopyMode = False
    Call ProtectSelections
    Call ReformatSelections
End Sub

Answer 1

更改：lRow = Range("A4:B4").End(xlDown).Row

收件人：lRow = Range("A" & Rows.Count).End(xlup).Row

原因是如果A5:B5 和向下都是空的，lRow 将成为具有xlDown 函数的电子表格中的最底部，并且变量无法保存行号的内存（以及代码也不必要地循环）。

因此，如果代码从底部开始并向上查找（使用xlUp），它也会找到要检查的最后一行数据。