空白でない行のみをA1：A150から列Bにコピーします

A1：A150から列Bに空白でない行のみをコピーするか、別のワークシートにコピーすることで、次の解決策を大いに評価します。列の半分の行が空白になる場合があります。

どうですか：

Sub KopyKat()
    Dim K As Long, i As Long
    K = 1
    For i = 1 To 150
        If Cells(i, 1).Value <> "" Then
            Cells(i, 1).Copy Cells(K, 2)
            K = K + 1
        End If
    Next i
End Sub

数式ソリューションは次のとおりです。

配列に次の式を入力（Ctrl+ Shift+ Enter）B1し、列をコピーして貼り付け/記入します

{=IFERROR(INDEX(A:A,SMALL(IF($A$1:$A$150="",FALSE,ROW($A$1:A$150)),ROW())),"")}

filter関数（ctrl+ shift+ L）を使用することもできます。

次に、カスタムフィルタールールを作成して非表示にします texts that contain (nothing or blank)

フィルターを適用し、フィルターされたデータをコピーして貼り付けます。

vbaを使用して列全体を検索する場合、これは私が使用するものです：

Public Sub Copier()
Dim toRow As Integer
toRow = 1
Columns("A").Activate
For Each Value In Selection
    If Value Then
     Cells(toRow, 2).Value = Value
     toRow = toRow + 1
    End If
Next Value
End Sub