Salin HANYA baris yang TIDAK kosong dari A1: A150 ke Kolom B

Saya akan sangat menghargai solusi untuk hal berikut: Salin HANYA baris yang TIDAK kosong dari A1: A150 ke Kolom B atau salin ke lembar kerja lain. Sebanyak setengah dari baris bisa kosong di Kolom A.

Bagaimana tentang:

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

Inilah solusi rumus:

Array masukkan ( Ctrl+ Shift+ Enter) rumus berikut B1dan salin-tempel / isi kolom:

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

Anda juga dapat menggunakan filterfungsi ( ctrl+ shift+ L).

Kemudian buat aturan filter khusus untuk disembunyikan texts that contain (nothing or blank)

Terapkan filter kemudian salin tempelkan data yang difilter.

Jika Anda ingin menggunakan vba untuk mencari seluruh Kolom, inilah yang akan saya gunakan:

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