Копіювати ТІЛЬКИ рядки, які не є порожніми, з A1: A150 до колонки B

0

Буду дуже вдячний за рішення наступного: Копіювати ТІЛЬКИ рядки, які не є порожніми, з A1: A150 до Колонки B або копіювати на інший робочий аркуш. Половина рядків може бути порожньою в колонці А.

microsoft-excel

— Matthew101
джерело

Ласкаво просимо до Суперкористувача! Що ви спробували? Які дослідження ви зробили? :)

— bertieb

Як ви хочете організувати цільову колонку?

— AFH

0

Як на рахунок:

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

— Gary's Student
джерело

Я б запропонував шукати весь стовпець не від 1 до 150

— Trenly

0

Ось рішення формули:

Введіть масив ( Ctrl + Shift + Enter ) наступну формулу в B1 та копіювати-вставити / заповнити колонку:

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

— robinCTS
джерело

0

Ви також можете використовувати filter функція ( ctrl + зміщення + L ).

Потім створіть спеціальне правило фільтрації, щоб приховати його texts that contain (nothing or blank)

Застосуйте фільтр, а потім скопіюйте вставку відфільтрованих даних.

— Super User User
джерело

-1

Якщо ви хочете використовувати 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

— Trenly
джерело