gleb gt2016 / Профиль - Комментарии / SocialKit

Вот макрос для экселя чтобы колонку так делить

Sub Макрос2()

Dim i As Long, j As Long: Application.ScreenUpdating = False

Sheets("Было").Activate: Sheets("Стало").Cells.ClearContents

j = InputBox("Введите кол-во столбцов", "Ввод")

If j < 1 Then Exit Sub

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step j

Cells(i, 1).Resize(j).Copy

Sheets("Стало").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Transpose:=True

End Sub

7 лет назад

Подскажите пожалуйста, как можно поделить логины по строкам для упоминалки?

7 лет назад

Сервис поддержки клиентов работает на платформе UserEcho