使用宏复制公式和格式

Question

我正在尝试在下一行中预先填充公式和格式，其中包含当前数据。 我试过以下

Sub CopyMacro()
    ActiveSheet.Range("B").End(xlUp).EntireRow.Copy
    ActiveSheet.Range("B").End(xlUp).Offset(1, 0).EntireRow.PasteSpecial Paste:=xlPasteFormats
    ActiveSheet.Range(Range("F").End(xlUp), "G" & Range("F").End(xlUp).Row).Copy
    ActiveSheet.Range("F").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
End Sub

Answer 1

试试这个：

Sub CopyMacro()
    With ThisWorkbook.Worksheets("Sheet2").Range("B" & Rows.Count).End(xlUp)
        .EntireRow.Copy
        .Offset(1, 0).EntireRow.PasteSpecial Paste:=xlPasteFormats
        .Offset(0, 4).Resize(, 2).AutoFill Destination:=.Offset(0, 4).Resize(2, 2)
    End With
End Sub