コピー/ペーストフィルタリング細胞は、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を使用して、それをにコピーするために範囲を指定することができます。 A2で

Answer 2

1. 新しい列を作成します。あなたの新しい列で

2. 、この数式を入力して、あなたの全体のデータセットのためにダウン塗りつぶし：

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

3. あなたの新しい列を使用してテーブルを並べ替えます。次に、&ペーストをコピーすることができます。

Answer 3

：

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

あなたは固定値に式から変換する必要がある場合はコピー/ pastespecial値とフォローアップコルAの式を下に記入してください。