Из приведенного ниже кода мне нужен вывод, как на вкладке output
:
Sub Macro1()
Dim rngMyCell As Range
Dim wsInputTab As Worksheet
Dim wsOutputTab As Worksheet
Application.ScreenUpdating = False
Set wsInputTab = Sheets("Input") 'Name of input sheet. Change to suit if necessary.
Set wsOutputTab = Sheets("Output") 'Name of output sheet. Change to suit if necessary.
For Each rngMyCell In wsInputTab.Range("A3:A" & wsInputTab.Cells(Rows.Count, "A").End(xlUp).Row)
If IsError(rngMyCell) = False Then
If Len(rngMyCell) > 0 Then
wsOutputTab.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = rngMyCell
End If
End If
Next rngMyCell
Set wsInputTab = Nothing
Set wsOutputTab = Nothing
Application.ScreenUpdating = True
MsgBox "Done."
End Sub