Excel VBA-如果日期匹配，则复制列中的粘贴范围

Question

我的宏用于复制/粘贴实时数据以覆盖旧预算。

基本上，我想执行以下操作：

如果T6中的日期= Range(G6:R6)中的日期，则将Range(T10:T30)复制到Range(?10:?30)，其中?是与日期匹配的单元格的列

Answer 1

这应该符合您的要求。将来，您应该共享到目前为止尝试过的代码。

Dim cell As Range
For Each cell In Range("G6:R6")
    If cell.value = Range("T6").value Then
        Range(Cells(10, cell.Column), Cells(30, cell.Column)).value = Range("T10:T30").value
    End If
Next cell