复制并粘贴在黄色突出显示的行下方

Question

不确定这是否可行，但是可以解决。我对这个vba代码感到停滞不前。我尝试附加图片示例-不知道它是否可以正确显示。

所有蓝色字体，我都创建了一个vba代码，可以直接从顶部的行开始复制它

1）我需要一个宏，该宏将在“ Cont Type”的标题行1中的所有单元格中查找，如果在其中找到任何单元格，则在黄色突出显示的行正下方的同一列中（在这种情况下） ，它是第5行，但可能会更改，因为数据将每天更新），在“ Finance”一词中加上“ Finance”一词必须一直向下以匹配A列中的行数。

单击链接以查看我要完成的示例 Example

Answer 1

您需要使用循环来执行此操作。像这样：

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

Answer 2

尝试：

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

结果：