復制/粘貼過濾后的單元格VBA

Question

B列包含數字17、1408和某些具有此格式000000-000-00的數字

我為包含“-”的單元格設置了過濾器。 它顯示了上面格式的數字。

我想將它們復制到A列，但每個都放在同一行。

如果我選擇然后復制/粘貼，它將告訴我它不能通過多項選擇來做到這一點。

有解決方案嗎？

Answer 1

在A2中：

=IF(ISERROR(SEARCH("-",B2)),"",B2)

填寫A欄中的公式。如果您需要將公式從固定值轉換為固定值，請繼續復制/粘貼特殊值。

Answer 2

1. 新建一個列。

2. 在新列中，輸入以下公式並填寫整個數據集：

   =IF(ISNUMBER(SEARCH("-",B1)),"Match","")

3. 使用新列對表格進行排序。 然后，您可以復制並粘貼。

Answer 3

這對我有用：

Private Sub CopyRange()

    Dim r1 As Range
    Dim r2 As Range

    Set r1 = ActiveSheet.Range("A1:C1,A3:C3")
    Set r2 = ActiveSheet.Range("D5")

    r1.Copy r2

End Sub

附帶說明，您可以在代碼或excel中使用advanced filter ，並指定要復制到的范圍。