excel - 如何复制公式结果

Question

如何复制公式结果？
我通过在 B 列中用值 1 标记行来选择要保留在工作表“UI”中的行。
我将以下宏分配给命令按钮，它将选定的行复制到工作表“输出”:

Private Sub CommandButton1_Click()
    
    Dim i As Integer
    Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("UI")
    Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Output")
    
    For i = 2 To ws1.Range("B999").End(xlUp).Row
        If ws1.Cells(i, 2) = "1" Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1)
    Next i
End Sub

由于行中的值是公式的结果，因此粘贴在“输出”中的结果将作为无效的单元格引用返回。
有没有办法复制粘贴为文本？

Answer 1

当行中的值是公式的结果时，您应该使用“xlPasteValues”属性来避免无效的单元格引用。您可以尝试按如下方式修改您的代码:

Private Sub CommandButton1_Click()
    
    Dim i As Integer
    Dim ws1 As Worksheet: Set ws1 = Sheets("UI")
    Dim ws2 As Worksheet: Set ws2 = Sheets("Output")
    
    For i = 2 To ws1.Range("B999").End(xlUp).Row
        If ws1.Cells(i, 2) = "1" Then
             ws1.Rows(i).Copy
             ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
        End If
    Next i
    
End Sub