[已解决]用VBA写公式问

liangwiebang

我想用VBA写公式IF(COUNTIF(A3:D3,$H$1),1,2),从第3行写到1000行,要直接在格元格里显示出结果.怎样写代码呢?

最佳答案

月排行榜 / 总排行榜

0Mouse

2012-2-18 23:55

试试看！

1. 
   
2. Sub 公式()
   
3. Dim i As Integer
   
4. For i = 3 To 1000
   
5.     Cells(i, "E") = Evaluate("=IF(COUNTIF(A" & i & ":D" & i & ",$H$1),1,2)")
   
6. Next
   
7. End Sub

复制代码

建议楼主还是上传模拟附件，因为既然用到了vba，你的问题很可能无需写公式，或者有更快的解决代码。

跳转到最佳答案楼层

0Mouse

试试看！

1. 
   
2. Sub 公式()
   
3. Dim i As Integer
   
4. For i = 3 To 1000
   
5.     Cells(i, "E") = Evaluate("=IF(COUNTIF(A" & i & ":D" & i & ",$H$1),1,2)")
   
6. Next
   
7. End Sub

复制代码

建议楼主还是上传模拟附件，因为既然用到了vba，你的问题很可能无需写公式，或者有更快的解决代码。

zjcat35

1. Sub a()
   
2.   Dim arr(1 To 998), i As Integer, k, m As Integer
   
3.     For i = 3 To 1000
   
4.       Set k = Cells(i, 1).Resize(1, 3).Find(Range("h1"))
   
5.         m = m + 1
   
6.       If k Is Nothing Then
   
7.         arr(m) = 2
   
8.       Else
   
9.         arr(m) = 1
   
10.       End If
    
11.     Next i
    
12.       Cells(3, "E").Resize(UBound(arr), 1) = Application.Transpose(arr)
    
13. End Sub

复制代码

把你的数据从E3开始填充，如果你要改到其他单元格，请把最下面名的Cells(3, "E")改成其他的

ppp710715

happym8888

1. Sub Gongshitiancong()
   
2. Dim i As Integer
   
3. For i = 3 To 1000
   
4.     Cells(i, "E").Formula = "=IF(COUNTIF(A" & i & ":D" & i & ",$H$1),1,2)"
   
5. Next
   
6. End Sub

复制代码

liangwiebang

0Mouse 发表于 2012-2-18 23:55
试试看！
建议楼主还是上传模拟附件，因为既然用到了vba，你的问题很可能无需写公式，或者有更快的解决 ...

非常感谢你的帮助.不知道怎么的,插不入附件,选定压缩好的附件后一直是提示等待.

本来是可以不用VBA的,我只是不想在表格是有公式,另外我觉得

用VBA写的话,以后要改变公式的所到的行数可以根据资料的占用的行数

自动判断写到多少行.

以后遇到数据大时,再劳你想个运行快的方法.

liangwiebang

zjcat35 发表于 2012-2-19 00:08
把你的数据从E3开始填充，如果你要改到其他单元格，请把最下面名的Cells(3, "E")改成其他的

谢谢了,最佳答案只能先选一个.