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

Question

不确定这是否有可能，但可以。我对这个 vba 代码处于停滞状态。我尝试附上一个图片示例 - 不确定它是否会正确显示。

一切都是蓝色字体，我已经创建了一个 vba 代码来直接从顶行向下复制它

1) 我需要一个宏，它会在标题行 1 中的所有单元格中查找“Cont Type”，如果在其中找到任何单元格，则在黄色突出显示行正下方的同一列中（在这种情况下，它是第 5 行，但它可能会改变，因为数据会每天更新），输入“财务”一词，“财务”一词必须一直向下以匹配 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

结果：