数据转置后保存VBA

轻快

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

yeminqiang

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-20 16:51 上传

点击文件名下载附件

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

轻快

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

yeminqiang

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

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

轻快

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

轻快

老师帮帮吗

逆光萤火

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

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