如何判断某个单元格包含有12这个数字？

wcj6376tcp

单元个可能是这样  1 2 3 4 5  6 7 8 9 10 11 12 也可能其中某个月没有，麻烦vba代码判断一下，谢谢

excel玉米

str=range("A1").value   '将range("A1")换成你要判断的单元格
if instr(str,"12")>0 then
   msgbox "含有12"
end if

ynzsvt

关键是是否是乱序的已知数据，缺失和重复想要怎样表达出来。

wcj6376tcp

excel玉米 发表于 2024-11-16 16:27
str=range("A1").value   '将range("A1")换成你要判断的单元格
if instr(str,"12")>0 then
   msgbox "含 ...

OK，谢谢，完美解决问题

张小生

1. '这是以数字中间都是以空格为间隔为例的
   
2. Sub test()
   
3. Dim strr As String
   
4. Dim x%, y%, ar, br()
   
5. '假设所有数据在A列
   
6. For x = 1 To Range("a10000").End(3).Row
   
7.     ar = Split(Cells(x, 1).Text, " ")
   
8.     For y = 0 To UBound(ar)
   
9.         If ar(y) = 12 Then
   
10.             n = n + 1
    
11.         End If
    
12.     Next y
    
13.     m = m + 1
    
14.     ReDim Preserve br(1 To m)
    
15.     If n = 0 Then
    
16.         br(m) = "此单元格没有12"
    
17.     Else
    
18.         br(m) = "此单元格有" & n & "个12"
    
19.     End If
    
20.     n = 0: Erase ar
    
21. Next x
    
22. '把查找结果显示在B列对应的单元格内
    
23. Range("b1").Resize(m, 1) = Application.Transpose(br)
    
24. End Sub
    

复制代码

小凡、、、