Оптимизация

[KaSS]

DiemonStar, а что бы вы посоветовали почитать? именно по vba, что то чтобы больше пользоваться возможностями excel. Просто, я больше знакома с общими способами поиска, обработки данных. Вроде циклов. Ну в общем, вы видели.

[Hugo121]

Я бы посоветовал читать форумы
Вернее так - есть задача - спрашиваете варианты решения на форуме (показываете/рассказываете свой).

Конкретно по этой задаче посоветовать что-то конкретное трудно, т.к. не видим саму задачу.
Но чувствую, что массивы и словари тут "в тему".

[KaSS]

Hugo121, Спасибо. Чувствую через месяц, я решу, что программирование это не мое и нафиг все заброшу... Эх... (Через месяц заканчивается стажировка, и начинается что то вроде следующего уровня стажировки, совмещение ее с учебой в универе)

[Hugo121]

Ну если этот код написали Вы сами (ну там конечно с копипастом, но важно что сами его собрали и он работает) - то я бы сказал что для начала 5
Т.к. недочёты/неоптимальность в "архитектуре" от незнания всех возможностей VBA.
Я тоже их все не знаю...

[KaSS]

Hugo121, код может и писала я, не помню, но по-моему совсем сама, но для человека который 3 года учится на программиста, хоть и на другом языке, по-моему, не так уж и хорошо..

[Hugo121]

Я же сказал "для начала"
Если 3 года... Но раз на другом...
Хотя я не программист, так что это оценка дилетанта

[KaSS]

Ладно, не будем о печальном. Спасибо за помощь. А так... всему можно научится. Главное желание. Учить меня некому, так что буду учиться на своих ошибках

[DiemonStar]

Сообщение от KaSS

Hugo121, код может и писала я, не помню, но по-моему совсем сама, но для человека который 3 года учится на программиста, хоть и на другом языке, по-моему, не так уж и хорошо..

Я, например, вба не изучал в университете, но когда жизнь заставила - пришлось научиться. Мои первые творения тупые, но рабочие - здесь многое завязано на знание объектной модели, а они писались без этих нюансов. Многое с форума стало откровением и помогло закрыть солидные пробелы в понимании. Так что берите местные задания и пробуйте решить, а потом сравнивайте с решениями старожилов.

[Skif-F]

Можно рекомендовать заменить строки типа

 Workbooks(str_wb_unrecl).Sheets(str).Range(Workbooks(str_wb_unrecl).Sheets(str).Cells(3, num_col_d - 2), Workbooks(str_wb_unrecl).Sheets(str).Cells(3, num_col_d)).Merge

на

Dim ws As WorkSheet
Set ws=Workbooks(str_wb_unrecl).Sheets(str)
ws.Range(ws.Cells(3, num_col_d - 2), ws.Cells(3, num_col_d)).Merge

либо использовать команду With.

[KaSS]

Skif-F, спасибо