Как определить заголовок столбца из обычной ячейки в excel через vba

Question

У меня есть лист, в который я ввожу значения в ячейку из двух разных таблиц. Первая таблица имеет 3 поля, поэтому sheet1.range от A1 до c23 заполняется значениями этой таблицы. Теперь во второй таблице есть два поля, и язаполните Sheet1 от A25 до B37.

Теперь каждая таблица дает мне заголовки столбцов в A1, B1, C1 для первой таблицы и A25, B25 для второй таблицы. Так что я хочу пройти через эти записи, нокогда я сталкиваюсь с записями таблицы 2 или, в частности, с заголовком столбца, я должен полностью остановиться и пройти через них для другого процесса.

Число строк в любой таблице не фиксировано.

Answer 1

Вы можете обрабатывать каждую таблицу построчно и использовать пустую ячейку в первом столбце в качестве критерия разрыва.Тем не менее, вам нужно присвоить абсолютный максимум строк или постоянное количество таблиц на вашем листе, если вы не хотите искать до строки 65k .... пример:

Sub Test()
Dim MyR As Range, Idx As Integer

    Set MyR = [A1]
    Idx = 1

    Debug.Print "Header 1 = " & MyR(Idx, 1)

    'advance to end of table
    Do While MyR(Idx, 1) <> ""
        Idx = Idx + 1
    Loop

    'advance to next header (could be one or more blank lines)
    Do While MyR(Idx, 1) = ""
        Idx = Idx + 1
    Loop

    Debug.Print "Header 2 = " & MyR(Idx, 1)

    'etc

End Sub

Надеюсь, это поможет .... хорошоудачи - MikeD