excel代码哪里出了问题非常感谢

Question

这是我下载的一个进销存表格系统，我自己稍微改了一下。现在遇到了一个问题。如图一，是出库单，我将填好的出库单点击“保存数据”按钮后，在出库明细表中，多出了一行不完整数据，不知道哪里出了错，哪位大神帮我看看行吗，万分感谢！保存数据按钮代码如下：Sub 出库录入()Application.ScreenUpdating = FalseDim rng As Range, cel As Range, ar, i, k, m, nSheets("出库单").Activaten = [a:a].Find("合　计", , , 1).Rowm = Cells(n, 1).End(3).RowIf m = 1 Then m = n - 1k = m - 3If [a1] = "" Then MsgBox "请输入厂名!": Exit SubIf [b2] = "" Then MsgBox "请输入客户!": Exit SubIf [g2] = "" Then MsgBox "请在蓝色格中输入任意一位数数字!": Exit SubIf [a5] = "" Then MsgBox "您还没有录入数据!请从A5格开始录入！": Exit SubIf [c5] = "" Then MsgBox "请检查,数据未完整!": Exit SubIf [f5] = "" Then MsgBox "请检查,数据未完整!": Exit SubSet rng = Sheets("出库明细").[a65536].End(3).Offset(1)rng.Offset(, 6).Resize(k, 8) = [a5].Resize(k, 8).Valuear = Array("h3", "h2", "b17", "b2", "e3", "e2") For i = 0 To UBound(ar) rng.Offset(0, i).Resize(k) = Range(ar(i)) With Sheets("账单登记") Dim arr, brr(1 To 1, 1 To 7), x& arr = Sheets("出库单").UsedRange brr(1, 1) = arr(3, 8) '日期 brr(1, 2) = arr(2, 8) '单号 brr(1, 4) = arr(17, 2) '客户类别 brr(1, 5) = arr(2, 2) '客户名称 brr(1, 6) = arr(16, 3) '数量 brr(1, 7) = arr(16, 8) '金额 x = Sheets("账单登记").Range("a65536").End(xlUp).Row + 1 End With Next Sheets("账单登记").Cells(x, 1).Resize(1, 7) = brr[a5:a15,c5:c15,d5:d15,f5:g15,b2,g2,h2,h3].ClearContents Range("b2").SelectApplication.ScreenUpdating = TrueEnd Sub

Answer 1

这是个人才，看着无语。

正常来说别人写过的，在没有完全理解别人的意图前，经量别去改动。

与其理解别人的还没有自己做的快捷。

这语句看着就难受，是我不可能这样做的0-0。

给你提个醒，经量前台不要用表格，能窗体就窗体。

---

追答

在别人基础上改动，建议你先，打开本地窗口，一部一部调试（没记错应该是f8，时间长没用Excel了）观察每一个变量的变化，必要的时候添加一些对象观察

Answer 2

第37回 秋爽斋偶结海棠社 蘅芜苑夜拟菊花题 第38回 林潇湘魁夺菊花诗 薛蘅芜讽和螃蟹咏第39回 村老老是信口开河 情哥哥偏寻根究底 第40回 史太君两宴大观园 金鸳鸯三宣牙牌令