将两个模块中的代码合并为一个

Question

想要将以下代码整合/合并到一个模块/脚本中。 “擦除”脚本应先执行“MoveData”将运行：

Sub Erase() 
' 
' Erase Macro 
' Erase Data 
' 
rspn = MsgBox("Are you Sure?", vbYesNo) 
If rspn = vbNo Then Exit Sub 
'code 
' 
ActiveWindow.SmallScroll Down:=-27 
Range("N3:Y152").Select 
Selection.ClearContents 
Range("N3").Select 
Range("N3:Y152").Interior.Color = xlNone 

End Sub 



Sub MoveData() 
Dim vals As Range, val As Range, colOffset As Integer 

Set vals = Range("K3:K" & Range("K3").End(xlDown).Row) 

For Each val In vals 
    If val > 0 Then 
     colOffset = VBA.Month(val.Offset(0, 16)) 
     val.Offset(0, colOffset) = val 
     val.Offset(0, colOffset + 1) = val.Offset(0, 1) 
     val.Offset(0, colOffset + 2) = val.Offset(0, 2) 
    End If 
Next val 
MsgBox "Operation Completed" 
End Sub 

Answer 1

在末尾加上“结束子”，“子擦除（）”

删除“子MoveData （）“

将名称从Erase（）更改为其他名称。