如何将两段代码合并一起使用？？？急求！！

专搞excel

这两段代码直接组合就行，不用修改什么啊
Sub 保存1()
Dim n, n1
    n = Sheets("入单界面").Range("B8").End(xlUp).Row + 1 '获取A列最后一行位置
    n1 = Sheets("数据库").Range("B8").End(xlUp).Row + 1
     Sheets("入单界面").Range("B8:AS" & n).Copy
     Sheets("数据库").Range("B" & n1).PasteSpecial Paste:=xlPasteValues
     s = Range("J1")  '当前单号在G4单元格
     Range("J1") = Left(s, 1) & Right("0000" & Right(s, 4) + 1, 4) '保存完毕后让序号加一（编号的左两位是字符，右四位是数字）
Range("C6").Select
    Selection.ClearContents
    Range("C3").Select
    Selection.ClearContents
    Range("E3").Select
    Selection.ClearContents
    Range("G3").Select
    Selection.ClearContents
    Range("C5").Select
    Selection.ClearContents
    Range("G5").Select
    Selection.ClearContents
    Range("I5").Select
    Selection.ClearContents
MsgBox "已完成提取，请查看数据库！"
End Sub

liw0311041

专搞excel 发表于 2019-12-2 15:38
楼主测试下，应该没问题了

能加一下我微信吗？
liw912303413