数据转置后保存VBA

轻快 · 发表于 2015-12-20 15:12

要求在录入表中点保存按钮，数据转置后保存在明细表对应的序号下，批号不重复。用VBA实现

yeminqiang · 发表于 2015-12-20 16:51

Sub saveas()
Dim arr, lrow&, i&
arr = Sheets("录入").Range("b4:b23").Value
With Sheets("明细")
lrow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If Application.CountIf(.Range("a4:a" & lrow), Sheets("录入").Range("a2")) > 0 Then
MsgBox "批号已存在，请勿重复输入"
Exit Sub
Else
.Cells(lrow, 1) = Sheets("录入").Range("a2").Value
.Cells(lrow, 2).Resize(1, 20) = Application.Transpose(arr)
End If
End With
'Sheets("录入").Range("b4:b23").ClearContents '录入工作表b4：b23清除数据
End Sub

Book3.zip (15.48 KB, 下载次数: 89)

今天真是郁闷............

轻快 · 发表于 2015-12-24 13:59

老师，为什么改了工作表名，就出现对象变量或 with 块变量没有设置

yeminqiang · 发表于 2015-12-24 14:09

轻快发表于 2015-12-24 13:59
老师，为什么改了工作表名，就出现对象变量或 with 块变量没有设置

代码中的工作表名称也要改

轻快 · 发表于 2015-12-24 14:45

老师帮忙给改改吧，我写的又臭又长，自己看了都不舒服，就是想把总表分到个表记录，还能提取，打印就更好了

轻快 · 发表于 2015-12-27 14:50

老师帮帮吗

逆光萤火 · 发表于 2016-1-26 22:17

轻快发表于 2015-12-27 14:50
老师帮帮吗

把代码Sheets("明细")统一改成sheets(2)

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

[求助] 数据转置后保存VBA

评分