[已解决]请教单元格中无指定数代码

fdxxhjc

在A1至A101这101个单元格中要确认无数值8，（查找结果可在A102中显示），请教代码如何，谢谢

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2015-5-15 13:54

=if(isnumber(match(8,a1:a101,)),"有","無")

跳转到最佳答案楼层

fdxxhjc

这个“8”是指一个单元格中整个数，而不是指像“2181”中的8

蝶·舞

countif(区域,8)

心正意诚身修

=if(isnumber(match(8,a1:a101,)),"有","無")

冥王

1. Sub dmeo()
   
2.     Dim i%, j%
   
3.     arr = Range("A1:A101")
   
4.     For i = LBound(arr) To UBound(arr)
   
5.         If arr(i, 1) = 8 Then
   
6.             j = j + 1
   
7.         End If
   
8.     Next
   
9.     Range("B1") = IIf(j, "含有8", "不含8")
   
10. End Sub

复制代码