VBA写入数据后，数据库有很多空位

137970208 · 发表于 2018-9-2 20:48

请大神指导下，刚学。。。。写完后，数据库数据行间隔好多。。。。。如何解决。在线等。。。。。

137970208 · 发表于 2018-9-2 20:55

Private Sub CommandButton1_Click()
If Sheets("输入栏").Cells(7, 4) <> "" Then
Dim a As Long
a = Sheets("输入栏").[d26].End(xlUp).Row
Sheets("输入栏").Range("A7:i" & a).Select
Selection.Copy
Dim b As Long
b = Sheets("数据库").[a65536].End(xlUp).Row + 1
Sheets("数据库").Select
Sheets("数据库").Cells(a, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("输入栏").Range("c7:c18").ClearContents
Sheets("输入栏").Range("g7:i18").ClearContents
Sheets("输入栏").Select
Sheets("输入栏").Cells(7, 2).Select
Else
MsgBox "请输入货号、数量、生产日期"
End If
End Sub

这个写出来数据库里，行不对应

137970208 · 发表于 2018-9-2 20:55

137970208 发表于 2018-9-2 20:55
Private Sub CommandButton1_Click()
If Sheets("输入栏").Cells(7, 4) "" Then
Dim a As Long

请大神指导下，。。。。急等

abc123281 · 发表于 2018-9-2 22:00

代码仅供测试参考

测试，求大神指导abc123.rar (14.19 KB, 下载次数: 13)

137970208 · 发表于 2018-9-3 16:50

大神好，问题基本解决，单号可否只要一个。
如何处理

137970208 · 发表于 2018-9-3 21:46

请大神帮忙看看错在哪里

		自动登录	找回密码
密码			免费注册

[求助] VBA写入数据后，数据库有很多空位