vba输入公式

84595292 · 发表于 2017-6-24 18:51

Sub kiko1()
Range("f2:f4656").Value = "=IF(C2/E2-1=-1,0,C2/E2-1)"
End Sub
目前只有20列，可代码指定输入4656列，加个什么自动判断只输入20列，因为还会增加不至20列，谢谢啦。

lsc900707 · 发表于 2017-6-24 19:29

行列都没有搞清楚吧？这个指的是多少行。

lsc900707 · 发表于 2017-6-24 19:30

行列都没有搞清楚吧？这个指的是多少行。

W永哥 · 发表于 2017-6-24 19:41

行
Sheet1.Range(Cells(iRow, jColumn), Cells(iRow, jColumn).End(xlDown))
列
Sheet1.Range(Cells(iRow, jColumn), Cells(iRow, jColumn).End(xlToRight))

84595292 · 发表于 2017-6-26 18:42

W永哥发表于 2017-6-24 19:41
行
Sheet1.Range(Cells(iRow, jColumn), Cells(iRow, jColumn).End(xlDown))
列

如附图，谢，上面代码不知怎么修改成我要的，能写全吗？谢谢啦。

philijian · 发表于 2017-6-26 19:06

range([f2],[f65536].end(3)).value=

W永哥 · 发表于 2017-6-26 20:45

84595292 发表于 2017-6-26 18:42
如附图，谢，上面代码不知怎么修改成我要的，能写全吗？谢谢啦。

发个附件，把想干啥，怎么干写上

lzqlaj · 发表于 2017-6-26 20:54

Sub kiko1()
k=20
Range("f2:f"&(k+1)).Value = "=IF(C2/E2-1=-1,0,C2/E2-1)"
End Sub

yaozong · 发表于 2017-6-26 21:03

Sub kiko1()
Dim i&
For i = 2 To 4656
  If Range("E" & i) <> 0 Then
   Range("f" & i).FormulaR1C1 = "=IF(RC[-3]/RC[-1]-1=-1,0,RC[-3]/RC[-1]-1)"
  End If
Next
End Sub

84595292 · 发表于 2017-6-27 11:00

yaozong 发表于 2017-6-26 21:03
Sub kiko1()
Dim i&
For i = 2 To 4656

上午好：
下面我这样写，提示错误，就文字报错了，如"好""不好""坏"，这些用什么表达，谢谢

If Range("E" & i) <> 0 Then
Range("Q" & i).FormulaR1C1 = "=IF(RC[-10]>RC[-5],"好",IF(RC[-10]<RC[-5],"不好",IF(RC[-10]=RC[-5],"坏",)))"

实际公式为=IF(G2>L2,"好",IF(G2<L2,"不好",IF(G2=L2,"坏",)))

		自动登录	找回密码
密码			免费注册

[求助] vba输入公式

评分

最新热点 /1