Мне нужно найти ни одной пустой ячейки и скопировать информацию из этой ячейки и рядом с ячейкой, а затем вставить в последнюю свободную ячейку

Question

Пример Excel

Привет всем, новенький здесь может кто-нибудь помочь?

Мне нужно найти ни одной пустой ячейки и скопировать информацию из этой ячейки и рядом с ячейкой, а затем вставить в последнюю свободную ячейку

Answer 1

Предполагая, что лист настроен именно так, как вы разместили изображение, это должно работать.

Sub combine_rows()

    With ActiveSheet
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        Set rng = .Range("B5:B" & lastrow)
    End With

    Count = lastrow + 1
    For Each cell In rng
        If Len(cell.Value) > 0 Then
            ActiveSheet.Range("A" & Count).Value = cell.Value
            cell.Value = ""
            ActiveSheet.Range("C" & Count) = cell.Offset(0, 1).Value
            Count = Count + 1
        End If
    Next

End Sub