复制公式和格式

Question

如何使波纹管仅复制公式并格式化而不是文本？

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

Answer 1

    For Each ShipWs In ShipmentWbObj.Worksheets
    If ShipWs.name <> "SAMPLE_FORMAT" And ShipWs.name <> "Transportercodes" Then
        Set ShipWsUsedrange = ShipWs.UsedRange
        Set DataRange = Application.Intersect(ShipWsUsedrange, ShipWsUsedrange.Offset(1, 0))
        If Not DataRange Is Nothing Then
            SampleFormat.Rows(2).Copy
            DataRange.PasteSpecial xlPasteFormats, xlPasteSpecialOperationNone, False, False
            DataRange.PasteSpecial xlPasteFormulas, xlPasteSpecialOperationNone, False, False
            Application.CutCopyMode = False
        Endif
    Endif
Next