Поиск "правильного" столбца - VB
Формулировка задачи:
Всем привет!
Пишу небольшой макрос поиска данных на листе. Суть такова, есть шапка с ключевыми словами, я ищу номера столбцов. Все работает до тех пор когда Шапка = значению. Если ячейка (шапки) объединена, а значения нет, то, что естественно, происходит смещение. Пример на картинке. Поиском нашел, что Сумма это столбец 2, а по факту значения в столбце 4. Может кто сталкивался с таким. Или есть элегантное решение.
Пишу небольшой макрос поиска данных на листе. Суть такова, есть шапка с ключевыми словами, я ищу номера столбцов. Все работает до тех пор когда Шапка = значению. Если ячейка (шапки) объединена, а значения нет, то, что естественно, происходит смещение. Пример на картинке. Поиском нашел, что Сумма это столбец 2, а по факту значения в столбце 4. Может кто сталкивался с таким. Или есть элегантное решение.
Решение задачи: «Поиск "правильного" столбца»
textual
Листинг программы
Sub bb()
Dim c As Range
Set c = Rows(1).Find("сумма", , xlValues, xlPart)
If c Is Nothing Then Exit Sub
Set c = c.Offset(1).Resize(, c.MergeArea.Columns.Count).Find("*")
If Not c Is Nothing Then MsgBox "числа в столбце " & c.Column
End Sub