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
每次运行的时候都只能复制两行，而不是十行，而且还往上移了一行！求高手帮解答一下，急啊！谢谢！
我是想复制

Answer 1

这个代码是只复制非空单元的，所以只复制P列有数字的2行。

如果想复制10行，那得知道入库单号，在哪个单元格。

以下代码，和上面代码功能相同。

Sub 入库提交()
Dim a As Long
Dim b As Long
a = IIf(Sheets("入库单").[P14] = "", Sheets("入库单").[P14].End(xlUp).Row, 14)
b = Sheets("数据库").[B65536].End(xlUp).Row + 1
Sheets("数据库").Cells(b, 1).Resize(a - 5 + 1, 21).Value = Range("C5:W" & a).Value
Range("P5:P14").ClearContents
End Sub

追问

我该在哪里写入库单号呢，入库单的位置有代码，如下图

追答

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

追问

谢谢你，这个问题解决了，你说的对，可是每次运行后为什么入库数量就没有了呢，怎么在我发的那个代码的基础上改一下，变成运行后入库数量依然存在呢？
C;W是因为有隐藏的内容，截图没有截下来

追答

没看到表，现有条件不能做出判断，
你的图上数量没显示
不知道数量是不是由公式得出的
不知道数量前后两列是不是有数据
不知道的太多，知道的太少

追问

还是要谢谢你，我怎么把整个表发给你呢？

追答

点我的网名，看我的头像。