怎样用VBA填函数公式

小葵1124

一把小刀闯天下 发表于 2018-7-1 10:00
'记得也跟你说过我不会公式，直接得出结果必须要了解这公式是干什么用的，你上来就提个冰壶来为难我

' ...

大神 如果还有一列数据也需要这么操作（这列数据也是遇到空的单元格，就要用公式填入），代码要怎么改呢？之前你写的代码是一个E列，现在还有一列（假如空的地方和E列相同），也需要这么操作

mythqiu

我给你说个思路，公司很复杂，先用名称管理器定义名称，公司就简化了 =定义名称

小葵1124

如果是存在两列需要填数值的单元格的话 这个代码要怎么改呢？
Option Explicit

Sub test()
  Dim i, arr
  With Sheets("sheet1")
    arr = .Range("e1:g" & .Cells(Rows.Count, "g").End(xlUp).Row)
    For i = 2 To UBound(arr, 1)
      If Len(arr(i, 1)) = 0 Then arr(i, 1) = "=VLOOKUP(G" & i & ",Sheet2!$A:$B,2,0)"
    Next
    .[j1].Resize(UBound(arr, 1)) = arr
    arr = .Range("j1:j" & .Cells(Rows.Count, "j").End(xlUp).Row)
    .[j1].Resize(UBound(arr, 1)) = arr
  End With
End Sub

小葵1124

有人能帮我看看吗

小葵1124

有人能帮我看看吗 如果是两列数据需要填公式的话 代码要怎么写呢？

小葵1124

一把小刀闯天下 发表于 2018-7-1 10:00
'记得也跟你说过我不会公式，直接得出结果必须要了解这公式是干什么用的，你上来就提个冰壶来为难我

' ...

谢谢大神 谢谢~~~~