Здравствуйте, помогите с макросом. Нашел макрос, который берет столбцы на листе "Лист1" и вставляет на "Лист3". Так-то подходит макрос, но только нужно чтобы он Не удалял шапку на "Лист3", и вставлял собранные столбцы с ячейки "A2".
| Код |
|---|
Sub Collect()
Dim i As Long, j As Long, a(), b()
Application.ScreenUpdating = False
a = Sheets("Лист1").UsedRange.Value: Cells.Clear
For i = 1 To UBound(a, 2) ' с какого столбика копировать "i = 4"
j = Cells(Rows.Count, 1).End(xlUp).Row + 1
b = Application.Index(a, 0, i)
Cells(j, 1).Resize(UBound(b)).Value = b
Next
Columns(1).SpecialCells(4).Delete xlUp
End Sub
|
Изменено: - 09.06.2025 17:29:51
