2つのモジュールのコードを1つに統合する

Question

次のコードを1つのモジュール/スクリプトに統合/結合することを検討します。スクリプトが最初に実行されなければならないとし、 "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の削除の最後に "End Subの" を削除（）」

名前をErase（）から別の名前に変更します。