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
每次运行的时候都只能复制两行,而不是十行,而且还往上移了一行!求高手帮解答一下,急啊!谢谢!
我是想复制
这个代码是只复制非空单元的,所以只复制P列有数字的2行。
如果想复制10行,那得知道入库单号,在哪个单元格。
以下代码,和上面代码功能相同。
Sub 入库提交()我该在哪里写入库单号呢,入库单的位置有代码,如下图
看这图,怎么和代码中的不一样呢?
代码中的入库单是C:W列啊
还有最好上传数据库图片,不然不知道启始是哪行。
谢谢你,这个问题解决了,你说的对,可是每次运行后为什么入库数量就没有了呢,怎么在我发的那个代码的基础上改一下,变成运行后入库数量依然存在呢?
C;W是因为有隐藏的内容,截图没有截下来
没看到表,现有条件不能做出判断,
你的图上数量没显示
不知道数量是不是由公式得出的
不知道数量前后两列是不是有数据
不知道的太多,知道的太少
还是要谢谢你,我怎么把整个表发给你呢?
追答点我的网名,看我的头像。