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