怎样用VBA填函数公式

wolfmare

小葵1124 发表于 2018-6-20 11:13
这里要怎么改呢，我这样写可以吗，还是小白，刚开始学VBA

你这里是then的.select 要换行

另外，你可以把公式当文本输入，直接前面加=号就可以了。
比如“=SUM(C1:C4)”

一把小刀闯天下

小葵1124 发表于 2018-6-20 11:57
表格密码我私发您了 谢谢~

'=C3*VLOOKUP(VLOOKUP(C3,Sheet2!$A:$A,1),Sheet2!$A:$B,2,0)/VLOOKUP(C3,Sheet2!$A:$A,1)

'我不会公式，不然直接就给你计算出来了。你这公式里应该就C3为变量而且列是固定的吧。

'供参考

Option Explicit

Sub test()
  Dim i, arr
  arr = Sheets("sheet1").[a1].CurrentRegion
  For i = 2 To UBound(arr, 1)
    If Len(arr(i, 1)) = 0 Then arr(i, 1) = "=C" & i & _
      "*VLOOKUP(VLOOKUP(C" & i & ",Sheet2!$A:$A,1),Sheet2!$A:$B,2,0)/VLOOKUP(C" _
      & i & ",Sheet2!$A:$A,1)"
  Next
  Sheets("sheet1").[a1].Resize(UBound(arr, 1)) = arr
End Sub

小葵1124

一把小刀闯天下 发表于 2018-6-21 04:59
'=C3*VLOOKUP(VLOOKUP(C3,Sheet2!$A:$A,1),Sheet2!$A:$B,2,0)/VLOOKUP(C3,Sheet2!$A:$A,1)

'我不会公 ...

For i = 2 To UBound(arr, 1)
Sheets("sheet1").[a1].Resize(UBound(arr, 1)) = arr
这两句话不明白

一把小刀闯天下

小葵1124 发表于 2018-6-21 11:19
For i = 2 To UBound(arr, 1)
Sheets("sheet1").[a1].Resize(UBound(arr, 1)) = arr
这两句话不明白

第一行为标题，所以从第二行开始循环，于是就有了 for i=2,,,,

ar数组的第一列为公式，于是就写入第一列到工作表。当然也可以把整个arr数组写入到工作表，但总觉得挺奇怪的。Sheets("sheet1").[a1].Resize(UBound(arr, 1),ubound(arr,2)) = arr

小葵1124

一把小刀闯天下 发表于 2018-6-21 11:25
第一行为标题，所以从第二行开始循环，于是就有了 for i=2,,,,

ar数组的第一列为公式，于是就写入第一 ...

那如果我要填公式的列 不是第一列呢，代码里面要怎么改动
比如说现在是第5列要填公式，我是不是把arr(i,1)里面的1改成5呢？

一把小刀闯天下

小葵1124 发表于 2018-6-21 11:30
那如果我要填公式的列 不是第一列呢，代码里面要怎么改动
比如说现在是第5列要填公式，我是不是把arr(i, ...

Sheets("sheet1").[e1].Resize(UBound(arr, 1)) = arr

第5列，既是源数据区又是输出区，矛盾。所以你的源数据区的位置也要跟着改变。

小葵1124

一把小刀闯天下 发表于 2018-6-21 11:33
Sheets("sheet1").[e1].Resize(UBound(arr, 1)) = arr

第5列，既是源数据区又是输出区，矛盾。所以你 ...

需要输入公式的列变了的话，整个代码只需要改动这一个地方吗？

小葵1124

小葵1124 发表于 2018-6-21 11:40
需要输入公式的列变了的话，整个代码只需要改动这一个地方吗？

源数据的位置我已经改掉了

一把小刀闯天下

小葵1124 发表于 2018-6-21 11:40
需要输入公式的列变了的话，整个代码只需要改动这一个地方吗？

基本上是的，用了VBA代码就不要用公式了，这样修改输出位置就变得相当简单。

你为什么不跑到公式块区提问呢？

小葵1124

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

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

我也不懂，这里面不是有VBA吗，所以我就在这块提问了，改了刚刚那个地方，代码好像没用诶~