如何将值仅粘贴到可见/已筛选的单元格中

在处理大数据集或对数据应用筛选器时，您可能经常发现自己想要粘贴某些值而不影响隐藏或已筛选的单元格。幸运的是，Excel拥有一种简单而有效的功能来完成此任务。

本文将逐步介绍将值仅粘贴到可见或已筛选的单元格中的过程。通过这样做，您可以在保持数据完整性的同时更新或修改数据。无论您在Excel熟练程度如何，本文都将帮助您掌握该方法并提高工作效率。

仅粘贴值到可见/已筛选的单元格中

在这里，我们将首先创建一个VBA模块，然后运行它来完成任务。因此，让我们看一个简单的过程，了解如何在Excel中只粘贴值到可见或已筛选的单元格。

步骤1

考虑一个Excel工作表，在工作表中的数据与下图类似。

如何将值仅粘贴到可见/已筛选的单元格中的Excel中？

首先，右键单击工作表名称，然后选择“查看代码”以打开VBA应用程序。

右键单击 > 查看代码。

步骤2

然后单击“插入”，选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制。

代码

Sub CopyFilteredCells()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim InputRng As Range
    Dim OutRng As Range
    xTitleId     = "Paste To Visible"
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Copy Range :", xTitleId, InputRng.Address, Type: = 8)
    Set OutRng   = Application.InputBox("Paste Range:", xTitleId, Type: = 8)
    For Each rng1 In InputRng
        rng1.Copy
        For Each rng2 In OutRng
            If rng2.EntireRow.RowHeight > 0 Then
                rng2.PasteSpecial
                Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
                Exit For
            End If
        Next
    Next
    Application.CutCopyMode = False
End Sub

如何将值仅粘贴到可见/已筛选的单元格中的Excel中？