VBA运行后有函数公式的单元格变为数值，代码该如何修改？

lszx0513

我在论坛上淘了一段VBA代码用做数据查找，但在运行后结果区域第二到第五行的单元格公式全变为数值，该如何修改，本人是个VBA菜鸟，求助达人

半百

Sub gj23w981()
    Set d = CreateObject("Scripting.Dictionary")
    Arr = Sheet3.[a1].CurrentRegion
    Crr = [A5:AH5]
    For i = 2 To UBound(Arr)
        s = Arr(i, 1) & Arr(i, 2)
        d(s) = d(s) + Arr(i, 45)
    Next
    Brr = [a1].CurrentRegion.Offset(5)
    For i = 1 To UBound(Brr)
        For j = 4 To UBound(Brr, 2)
            s = Brr(i, 1) & Crr(1, j)
            Brr(i, j) = d(s)
        Next
    Next
    [a1].CurrentRegion.Offset(5) = Brr
End Sub

lszx0513

半百 发表于 2019-9-23 17:00
Sub gj23w981()
    Set d = CreateObject("Scripting.Dictionary")
    Arr = Sheet3.[a1].CurrentRegio ...

谢谢！试过了，可行，能问下用偏移是不是把结果区的AI单元格开始偏移5行

半百

lszx0513 发表于 2019-9-24 09:20
谢谢！试过了，可行，能问下用偏移是不是把结果区的AI单元格开始偏移5行

是的               

lszx0513

半百 发表于 2019-9-24 10:14
是的

谢谢解惑