Разбор данных из одной книги в другую (при неизвестном количестве записей в исто

Автор bungarus, 20.03.2012, 14:23

« назад - далее »

bungarus

Я в самом начале, а задачу нужно решить быстро. Есть файл (source.xlsx) количество записей в нем не определенно, как написать макрос чтобы данные разбирались в файл результ.xlsx и если возможно запись столбца D приобретала формат начальная буква большая остальные строчные.

GWolf

Добрый деньbungarus!

Вот такой конструкцией:

        With Thisworkbook.ActiveSheet
            Set iDiapazon = .UsedRange
            With iDiapazon
                nREnd = .Row + .Rows.Count - 1
            End With
            Set iDiapazon = Nothing
           
            If nREnd < 5 Then: nREnd = 0: Set WBIn = Nothing: Set WSIn = Nothing: Exit Sub
        End With

определяем номер последней занятой таблицей строки nREnd. Ну а дальше все просто:
Цикл For ... Next решит вопрос перемещения.
Путей к вершине - множество. Этот один из многих!