Скопируйте и вставьте под желтую выделенную строку

Question

Не уверен, если это возможно, но здесь идет.Я зашел в тупик для этого кода VBA.Я попытался прикрепить пример с изображением - не уверен, что он будет отображаться правильно.

Все, что написано синим шрифтом, я создал код vba, чтобы скопировать его непосредственно из верхних строк вниз

1) Мне нужен макрос, который просматривал бы все ячейки в строке заголовка 1 для «Тип Cont» и, если он находит в ней какую-либо ячейку, то в том же столбце прямо под желтой подсвеченной строкой (вв данном случае это строка 5, но она может измениться, потому что данные будут обновляться ежедневно), добавьте слово «Финансы», а слово «Финансы» должно пройти весь путь вниз, чтобы соответствовать количеству строк в столбце А.

нажмите на ссылку, чтобы увидеть пример того, что я пытаюсь выполнить Пример

Answer 1

Попробуйте:

Option Explicit

Sub test()

    Dim LastColumn As Long, i As Long

    'Change sheet name if needed
    With ThisWorkbook.Worksheets("Sheet1")
        'Find LastColumn of row 1
        LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column

        'Loop Cells of the first row
        For i = 1 To LastColumn

            'If cells in row 1 and column i is "Cont Type"
            If .Cells(1, i).Value = "Cont Type" Then
                'Import in range
                .Range(.Cells(6, i), .Cells(9, i)).Value = "Finance"
            End If

        Next i

    End With

End Sub

Результаты:

Answer 2

Для этого вам нужно использовать цикл.Вот как то так:

x = 1 'the starting column to look for content type
Do While cells(1, x) <> "" 'look in every column until your columns are empty
If Cells(1, x) = "Cont Type" Then
Range(Cells(6, x), Cells(n, x)) = "Finance" 'With n equaling your last column to insert this to
Else
End If
x = x + 1 'go to the next column to look
Loop