複数のシートのユーザー入力に基づいて行を挿入する

Question

Excel 2010 ユーザー入力に基づいて行を挿入するマクロを検索します。行を挿入する行番号を指定するユーザー。ユーザ入力に基づいて

1. - 複数のシートに（アカウント、プロセス、データ、...など）を挿入する行は、行の上及び下に自動入力から19枚
2. コピー式及びフォーマットを有します。
これまで

、セルの選択いくつかの答えを得ることを望ん

に基づいて単一のシートのためのコードの下に取得することができ...

Sub Insert_Row() 
    If Selection.Rows.Count > 1 Then Exit Sub 
    With Selection 
     .EntireRow.Copy 
     .Offset(1).EntireRow.Insert 
     Application.CutCopyMode = False 
     On Error Resume Next 
     .Offset(1).EntireRow.SpecialCells(xlCellTypeConstants).ClearContents 
     On Error GoTo 0 
    End With 
End Sub 

Answer 1

編集：

Sub Insert_Row() 
    Dim SelRow as Integer, i as Integer, j as Integer 
    If Selection.Rows.Count > 1 Then Exit Sub 
    SelRow = Selection.Row 
    On Error Goto nonNumeric 
    j = InputBox("What row to insert data into?", "Pick a row") 
    On Error GoTo 0 
    GoTo NumericEntry 

nonNumeric: 
    On Error GoTo 0 
    MsgBox("Please try again with a number.") 
    Exit Sub 

NumericEntry: 
    For i = 1 to 19 
     Sheets(1).Select 
     Rows(SelRow).copy 
     Sheets(i).Select 
     Rows(j).Insert 
     On Error Resume Next 
      Rows(j).SpecialCells(xlCellTypeConstants).ClearContents 
     On Error GoTo 0 
    Next i 
End Sub