Excel宏仅将工作表复制到新工作表粘贴值答案

【问题标题】：Excel Macro to copy worksheet to new worksheet paste values onlyExcel宏仅将工作表复制到新工作表粘贴值
【发布时间】：2019-02-20 19:15:54
【问题描述】：

我正在使用 Excel 中的宏来制作当前工作表的副本并将值粘贴到新工作表中。工作表名称将与后面的数字相同[即 Sheet, Sheet1(2)]

我的代码正确执行此操作，只是它将所有内容复制并粘贴到 Sheet1(2)。我只希望它将值（不是公式）从 Sheet1 粘贴到 Sheet1(2)。我充其量是 vba 的新手，因此非常感谢任何建议。

Sub SPACER_Button4_Click()
' Compile Button to Generate Quote
'
'variables definitions
ActiveSheetValue = ActiveSheet.Name
'
'This section creates a copy of the active worksheet and names it with the next corresponding number
    Sheets(ActiveSheetValue).Copy After:=Sheets(ActiveSheetValue)

'This section should look for X value in each row, column 4. If value equals X, it deletes the row on the copied sheet
Dim i As Integer
i = 26
Do Until i > 300
    If ActiveSheet.Cells(i, 11).Value = "X" Then
        Rows(i).Delete
        Skip = True
    End If
    '
    If Skip = False Then
        i = i + 1
    End If
    '
    Skip = False
Loop

'This part hides columns on Right K thru R of new copied sheet
    Sheets(ActiveSheet.Name).Range("K:R").EntireColumn.Hidden = True
End Sub

【问题讨论】：

只需将值设置为彼此相等 - Sheets("New Sheet Name").Cells.Value = Sheets("New Sheet Name").Cells.Value?

标签： excel vba

【解决方案1】：

如果数据是连续的，请考虑创建一个新工作表，选择并复制数据范围，然后使用以下代码粘贴到新工作表上。

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

【讨论】：

Dakota：我的代码将 Sheet1 复制到 Sheet1(2)，这是我想要的，但我只想将值从 Sheet1 粘贴到 Sheet1(2) 中没有公式。我试图选择一个范围并粘贴值，但我添加了一个名为 Sheet2 或 Sheet3 的新工作表...我希望它是 Sheet1(2)，看起来就像 Sheet1，除了值。我不太确定在哪里甚至如何使用上面的语法。我现在从亚马逊订购了两本关于 Excel vba 的书，只是为了学习。所以我还在为此苦苦挣扎。

【解决方案2】：

我使用这样的东西：

Sub KopyKat()
Dim s1 As Worksheet, s2 As Worksheet
Dim r As Range, addy As String

Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")

For Each r In s1.UsedRange
    If r.Value <> "" Then
        If Not r.HasFormula Then
            addy = r.Address
            r.Copy s2.Range(addy)
        End If
    End If
Next r

End Sub

【讨论】：