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

liw0311041

哪位大神知道如何把下面的两段代码合并到一起。。。

Sub 保存1()
Dim n, n1
    n = Sheets("入单界面").Range("B65536").End(xlUp).Row + 1 '获取A列最后一行

位置
    n1 = Sheets("数据库").Range("B65536").End(xlUp).Row + 1
     Sheets("入单界面").Range("B21:AR" & n).Copy
     Sheets("数据库").Range("B" & n1).PasteSpecial Paste:=xlPasteValues
    MsgBox "已完成提取，请查看数据库！"
End Sub


S = Range("G3")  '当前单号在G4单元格
Range("G3") = Left(S, 2) & Right("0000" & Right(S, 4) + 1, 4) '保存完毕后让序

号加一（编号的左两位是字符，右四位是数字）
MsgBox "打印并保存完毕", , "提示"
End Sub

最终效果是：20191201-00001，保存一次后自动+1（20191201-00002），20191201是当前

日期

专搞excel

楼主最好上传附件，代码内容很好理解，组合也不难，但是不确定你是在哪里执行的代码，如果不在一个sheet执行的话，可能需要知道sheet的名称，才能正确组合

liw0311041

专搞excel 发表于 2019-12-2 12:53
楼主最好上传附件，代码内容很好理解，组合也不难，但是不确定你是在哪里执行的代码，如果不在一个sheet执 ...

请帮忙改一下吧

专搞excel

楼主测试下，应该没问题了

liw0311041

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

请问如何让它自动更新为当前的日期+00001呢

专搞excel

咱不能一次性说完要求吗楼主，还得返工，测试下吧

liw0311041

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

我搞定了，谢谢您。祝你生活愉快！！

liw0311041

liw0311041 发表于 2019-12-2 17:12
请问如何让它自动更新为当前的日期+00001呢

再麻烦一下大神，这两段又怎么组合呢？
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) '保存完毕后让序号加一（编号的左两位是字符，右四位是数字）
    MsgBox "已完成提取，请查看数据库！"
End Sub
Sub 清空() ' 清空 宏
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
End Sub

liw0311041

专搞excel 发表于 2019-12-2 17:22
咱不能一次性说完要求吗楼主，还得返工，测试下吧

谢谢您大神

liw0311041

liw0311041 发表于 2019-12-3 09:50
谢谢您大神

那两段代码能不能也帮忙组合一下？