Страницы: 1
RSS
Создание единого списка данных из ячеек в фиксированном диапазоне, макрос
 
Здравствуйте!
Прошу помощи в автоматизации такой задачи:
На Листе "Исходные" расположены разные по высоте столбца списки цифр. Первый список начинается в A1.
Остальные начинаются с разных строк. Необходимо с помощью макроса расположить объединённый список этих цифр на Лист "Результат" строго друг под другом без пробелов.

Если это кому-то просто и быстро, пожалуйста, помогите.
Благодарю!
 
Здравствуйте.
Можно попробовать таким макросом:
Код
Sub t48()
    Dim lngI As Long
    Dim lngJ As Long
    Dim lngK As Long
    Dim whIn As Worksheet
    Dim whOut As Worksheet
        Set whIn = Worksheets("Исходные")
        Set whOut = Worksheets("Результат")
        whOut.UsedRange.Clear
        lngK = 1
            With whIn
                For lngI = 1 To .UsedRange.Columns.Count
                    For lngJ = 1 To .UsedRange.Rows.Count
                        If .Cells(lngJ, lngI) <> "" Then
                            whOut.Cells(lngK, 1) = .Cells(lngJ, lngI)
                            lngK = lngK + 1
                        End If
                Next lngJ
                Next lngI
            End With
        Set whIn = Nothing
        Set whOut = Nothing
End Sub
Кому решение нужно - тот пример и рисует.
 
Безупречно!
ОГРОМНАЯ БЛАГОдарность! :)
Страницы: 1
Наверх