Sub addString_Exe(n As Integer)'各セルの前後に文字を追加する Dim msg As String Dim strForward As String Dim strBack As String msg = "まず前方" & n & "文字目に追加する文字を入力して下さい。空欄でも構いません。" 'Application.InputBoxのType '…