複製/粘貼過濾單元VBA

Question

B列包含數字17，1408和一些數字有這種格式000000-000-00

我把一個過濾器包含細胞「 - 」。它顯示了以上格式的數字。

我想將它們複製到A列，但他們每個人要在同一行。

如果我選擇然後複製/粘貼它會告訴我，它無法與多重選擇這樣做。

有沒有解決方案？

Answer 1

這爲我工作：

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和指定範圍爲它複製到。

Answer 2

1. 創建一個新列。使用新列

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

2. 排序表：

3. 在您的新列，輸入公式，並填寫下您的整個數據集。然後你可以複製&粘貼。

Answer 3

在A2：

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

向下填充在山口A.公式與複製/ PasteSpecial的值跟進，如果你需要從一個公式轉換爲一個固定值。