使用VBA在指定位置写入公式

天地一相

感谢帮助！详见截图附件。

PS：截图更换为我的最终解决方法。

iu950

指定位置填充公式，附件供参考

liulang0808

表格事件，供参考

天地一相

liulang0808 发表于 2023-2-2 17:25
表格事件，供参考

谢谢。这个不行。我需要的就是附件里的那种公式。只是因为行数的变化会导致需要修改公式参数，所以想用VBA省事。

剑指E

P1:
=LOOKUP(9999,Sheet2!H:H)
P2:
=LOOKUP(9999,Sheet2!T:T)

右拉看看

天地一相

剑指E 发表于 2023-2-2 17:40
P1:
=LOOKUP(9999,Sheet2!H:H)
P2:

谢谢。不能用这个，也不能用OFFSET。就是需要用VBA写入“=A1”这样的公式。速度快。

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar(1), br, i&, j&, rngTarget As Range, Rng As Range
   
    Set rngTarget = Range("P1", Cells(Rows.Count, "T").End(3))
    For i = 0 To UBound(ar)
       With Sheets(2).Cells(1, i * 12 + 8)
           Set Rng = .CurrentRegion
           br = Rng
           For j = 1 To UBound(br, 2)
              rngTarget.Cells(i + 1, j) = "=Sheet2!" & .Cells(UBound(br), j).Address(0, 0)
           Next j
       End With
    Next i
    Beep
End Sub

gwjkkkkk

请楼主参考附件 。。。

lss001

参考参考一下 公式写入.rar (15.3 KB, 下载次数: 7)

2023-2-2 18:34 上传

点击文件名下载附件

剑指E

~~~~~~~~~~~~~~~