Доброе утро всем.
Знатоки прошу помочь дописать макрос что бы проятгивать данные до уровня столбца E на которых имеются данные:
Сейчас заполняет только 10 строк. Количество строк с данные в Е всегда разное
Знатоки прошу помочь дописать макрос что бы проятгивать данные до уровня столбца E на которых имеются данные:
Сейчас заполняет только 10 строк. Количество строк с данные в Е всегда разное
Скрытый текст |
---|
Sub Макрос3() ' ' Макрос3 Макрос ' ' Сочетание клавиш: ' ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _ False, NoHTMLFormatting:=True Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _ TrailingMinusNumbers:=True ActiveCell.Range("A1:B1").Select Selection.Copy ActiveCell.Offset(1, -2).Range("A1:A10").Select ActiveSheet.Paste ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp End Sub |