计划修改表

870734707

想通过Excel VBA实现
根据“修改记录”表中，如果修改日期是当天则对“计划”表中对应的数据进行替换。

liulang0808

liulang0808

表格内容供参考。。。。

870734707

liulang0808 发表于 2024-8-17 13:56
表格内容供参考。。。。

老师好，是否有用数组做的方法？

liulang0808

870734707 发表于 2024-8-17 14:36
老师好，是否有用数组做的方法？

楼主需要怎样的数组处理方法呢

870734707

如果数据变成单一个，是否有更简单的方式

liulang0808

870734707 发表于 2024-8-17 18:14
如果数据变成单一个，是否有更简单的方式

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    arr = [b2].CurrentRegion
    For j = 3 To UBound(arr)
        d(arr(j, 1)) = j
    Next j
    brr = Sheets("修改记录").UsedRange
    c = 2
    For j = 2 To UBound(brr, 2) Step 5
        For i = 3 To UBound(brr)
            If CDate(brr(i, j + 3)) = Date Then
                If d.exists(brr(i, j)) Then
                    r = d(brr(i, j))
                    arr(r, c) = brr(i, j + 1)
                    arr(r, c + 1) = brr(i, j + 2)
                End If
            End If
        Next i
        c = c + 2
    Next j
    [b2].CurrentRegion = arr
End Sub
把取值对应的单元格区域做了调整即可，

liulang0808

arr数据对应的区域调整下即可