怎样用VBA填函数公式

小葵1124

一把小刀闯天下 发表于 2018-6-21 11:43
基本上是的，用了VBA代码就不要用公式了，这样修改输出位置就变得相当简单。

你为什么不跑到公式块区 ...

大神 这个文件用你那个代码怎么做啊？

tudarong

这个能满足你非空行要求，但估计不是你想要的结果

tudarong

小葵1124 发表于 2018-6-20 10:46
我想要VBA判断出为空行，然后在空行里填入相应的公式，最后转换为数值，这个公式不是乘积，我只是为了简 ...

可以直接使用VBA代码代替vlookup函数，前提是需要知道你要根据什么内容，查找哪里的内容

tudarong

不知道为什么 发表于 2018-6-20 14:22
附件那么重要，还加密，就没必要发上来了啊

这话说得中肯，我给你点赞

一把小刀闯天下

'哪壶不开提哪壶，跟你说过几次我不会公式

'我不知道这公式实现了什么功能，猜它只有一个变量，自己试一下

'满意来朵小花哈，不能光等着天上掉馅饼呀，哈哈哈

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
  End With
  [j1].Resize(UBound(arr, 1)) = arr
End Sub

tudarong

一把小刀闯天下  的代码，把公式拆分写入，不错。我刚试了下，功能是OK的。
这天上已经掉馅饼了。

lrh788

一把小刀闯天下 发表于 2018-7-1 07:49
'哪壶不开提哪壶，跟你说过几次我不会公式

'我不知道这公式实现了什么功能，猜它只有一个变量，自己试一 ...

怎么只填计算结果，不用在单元格显示公式

一把小刀闯天下

lrh788 发表于 2018-7-1 09:43
怎么只填计算结果，不用在单元格显示公式

'记得也跟你说过我不会公式，直接得出结果必须要了解这公式是干什么用的，你上来就提个冰壶来为难我

'用巨笨的方法来变通了一下，可以不用了解公式是干吗用的，只要知道它有几个可变量就行

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

tudarong

具体情况具体分析，请把你的附件上传。
这个帖子的楼主没有说明查找的要求，仅希望填充公式。

lrh788

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

' ...

老师，如果我想在j和k列同时写入两个不同的公式的值，代码应该怎么变呢？