Question

excel里的Visual Basic代码，哪位高手帮我看一下哪里错啦？帮忙改一下！急啊！谢谢啦！

Sub 入库提交() Dim a As Long a = IIf(Sheets("入库单").[P14] = "", Sheets("入库单").[P14].End(xlUp).Row, 14) Range("C5:W" & a).Select Selection.Copy 'Sheets("数据库").Visible = True '显示数据库表 Dim b As Long b = Sheets("数据库").[B65536].End(xlUp).Row + 1 Sheets("数据库").Select Sheets("数据库").Cells(b, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'ActiveWindow.SelectedSheets.Visible = False '隐藏数据库表 Dim c As Long Sheets("入库单").Select Range("P5:P14") = ""End Sub每次运行的时候都只能复制两行，而不是十行，而且还往上移了一行！求高手帮解答一下，急啊！谢谢！我是想复制C 4到W 4到C 1 4到W 1 4的内容 可这个运行后只能复制C 4到W 4到C 5到 W 5求高手解答啊！

Answer 1

上移一行，是因为不知道，代码是写入数据最后一行非空单元。
有办法解决这个问题，但是不知道应该存在哪一行，最好上传入库单图片。
正常情况，是以单号做为存储条件的。

追问

= IFERROR(LEFT(K3)&LOOKUP(9^323,(SUBSTITUTE(数据库!C$2:C$3959,"入",)+1)),2013001)

入库单号的地方是这个代码，我该在哪里写入库单号呢

追答

看这图，怎么和代码中的不一样呢？
代码中的入库单是C:W列啊
还有最好上传数据库图片，不然不知道启始是哪行。
还有2013001，是不是2013年第一张入库的意思？