时间戳

首页 > 解决方案 > Excel VBA - 如果日期匹配，则在列中复制粘贴范围

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

问题描述

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

基本上我想做以下事情：

如果日期 in T6= date inRange(G6:R6)然后复制Range(T10:T30)到Range(?10:?30)，?则与日期匹配的单元格列在哪里。

标签： vbaexcelcopy-paste

解决方案

这应该符合您的要求。将来，您应该分享您迄今为止尝试过的代码。

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

推荐阅读