菜鸟求助

皓月空

    一系列单元格中，选出包含某几个字符的，如“-”或“/”做A事                                 同是 包含“A”和“*“的         做B事

笑着...两年过去

敢不敢说得再清楚一点

dajiahaoxinku12

上传附件吧，万说不如一做

皓月空

不带星号的   挑出纯数字的。  带星号的挑出*35A  *35B这种后面没有零碎的。

grf1973

1. Sub 截取()
   
2. Dim c$
   
3. For k = 2 To [b65536].End(3).Row
   
4.     char = Trim(Cells(k, 2).Text)
   
5.     L = Len(char): s = InStr(char, "*")
   
6.     If s > 0 Then
   
7.         mychar = "*"
   
8.         For i = s + 1 To L
   
9.             c = Mid(char, i, 1)
   
10.             If IsNumeric(c) Then mychar = mychar & c
    
11.             If IsChar(c) Then mychar = mychar & c: Exit For
    
12.             If Not (IsNumeric(c) Or IsChar(c)) Then Exit For
    
13.         Next
    
14.     Else
    
15.         mychar = ""
    
16.         For i = s + 1 To L
    
17.             c = Mid(char, i, 1)
    
18.             If IsNumeric(c) Then mychar = mychar & c Else Exit For
    
19.         Next
    
20.     End If
    
21.     Cells(k, 3).Value = mychar
    
22. Next
    
23.         
    
24. End Sub
    
25. 
    
26. Function IsChar(char As String) As Boolean
    
27.     If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", char) > 0 Then
    
28.         IsChar = True
    
29.     Else
    
30.         IsChar = False
    
31.     End If
    
32. End Function

复制代码

皓月空

grf1973 发表于 2013-4-9 15:47

  首先谢谢大侠了。由于我是菜鸟，所以要一点一点的读这个。
其次，不好意思 貌似我表达错意思了。
我的意思是 判断这个单元格的内容，作为if语句的条件。
就是 if这个单元格的内容是 （纯数字的，或者，*开头字母结尾的）then
      语句1
else
语句2

grf1973

你看结果对不对就行了。我这里面本来也判断"*"号的。s = InStr(char, "*")就是判断*在字符里的位置。如果s>0表示字符里有*号。