0
テキストを書式化して書式設定するだけでは、どうやってぼかしを作れますか?コピー式と書式設定
Sub Loop_InsertRowsandFormulas()
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Risk Input Sheet")
Dim vRows As Long
Dim lastCol As Long
Dim firstRow As Long
firstRow = InputBox("Enter Row To Start Insert From.")
vRows = InputBox("Enter Number Of Rows Required")
If firstRow = 0 Or vRows = 0 Then Exit Sub
Debug.Print firstRow
IngA = ws.Cells(5, ws.Columns.Count).End(xlToLeft).Column
For Myloop = 1 To vRows
ws.Range("A" & (firstRow + Myloop)).EntireRow.Insert
ws.Range("N" & (firstRow) & ":AW" & (firstRow + Myloop)).FillDown
Next
End Sub
シートは最高の私たちが使用しているマクロに私たちを導いた世界でフォーマットされていません。新しい行がどこに入力されるかを選択できるようにする必要があります。次に、上からすべての数式と書式をコピーします。私はもしあなたがスクリーン印刷を見たことができますか? – Chris
ok私に送ってみましょう。 –
どうすればいいですか? – Chris