VBA代码 如果C列包含开屏动态这两个关键词则D列对应位置填充为OP - Dynamic

以下是一个可以实现您所描述的VBA代码示例：

Sub FillDColumn()
    Dim lastRow As Long
    Dim i As Long
    
    '获取最后一行
    lastRow = Cells(Rows.Count, 3).End(xlUp).Row
    
    '循环检查C列的值
    For i = 2 To lastRow
        If InStr(1, Cells(i, 3).Value, "开屏") > 0 Or InStr(1, Cells(i, 3).Value, "动态") > 0 Then
            '如果C列包含关键词，则在D列对应位置填充"OP - Dynamic"
            Cells(i, 4).Value = "OP - Dynamic"
        End If
    Next i
End Sub

在Excel中打开Visual Basic编辑器（按下Alt + F11），然后在模块中插入以上代码。然后运行这个宏（按下F5）即可。请确保您的数据在第2行开始，C列是要检查的列，D列是要填充的列，并且没有任何数据在D列上。