复制/粘贴过滤单元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的值跟进，如果你需要从一个公式转换为一个固定值。