VBA粘贴值、格式号和主题答案

【问题标题】：VBA paste value, format number and themeVBA粘贴值、格式号和主题
【发布时间】：2021-03-13 19:18:05
【问题描述】：

我对 VBA 有一点问题。我想将数据从一张纸和特定范围粘贴到另一张纸和最后一个空单元格。我需要粘贴值、数字格式和主题。是否有任何宏可以选择最后一个粘贴范围并粘贴到此范围主题中？或者有没有什么宏可以不用公式就可以粘贴所有数据？

我的代码：

    Dim xScreenUpdating As Boolean
    Dim xPasteSht As Worksheet
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
     Worksheets("KOPÍROVAT ASISTENT").Range("C1:G54").Copy
    Set xPasteSht = Worksheets("Archiv")
     xRg.Copy
    xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValuesAndNumberFormats, _
                 Operation:=xlNone, SkipBlanks:=False, Transpose:=False
          End Sub

【问题讨论】：

不能正常复制/粘贴工作吗？ PasteAll 之类的东西？
也许 .PasteSpecial xlPasteAllUsingSourceTheme 和 .PasteSpecial xlPasteValues 是您正在寻找的。 kevin9999 已经展示了如何实现它。

标签： excel vba

【解决方案1】：

我不确定 .Offset(0,0) 实现了什么 - .Offset(1,0) 是您真正需要找到 last empty cell。除此之外，下面的代码 sn-p 应该给你你想要的。让我知道你是怎么做的。

Sheets("KOPÍROVAT ASISTENT").Range("C1:G54").Copy

With Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    .PasteSpecial xlPasteValues
    .PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
End With

【讨论】：