[已解决]判断这是列是字母还是数字

swanseabrian

excel里假设有10列数据,
我要判断第5列是字母还是数字
这里用正则就行
判断的结果 在第5列后面追加一列,写上对应的汉字,也就是,

如果第5列是字母,追加的在后面的一列对应位置就写上汉字 字母
如果第5列是数字,追加的在后面的一列对应位置就写上汉字 数字

我要的效果就是下面


    第五列  追加的列

   12434     数字

   dssds      字母


   dsds     字母


  232323  数字

就要这个效果,
这个要怎么写,我不太熟悉 excel 用python  怎么操作,谢谢
   

最佳答案

月排行榜 / 总排行榜

kaohsing

2021-11-2 09:24:51

1. Sub vba_soluction()
   
2.     Dim a, i, j
   
3.     Dim b(1 To 10, 1 To 11)
   
4.     a = Range("A1:K10")
   
5.     For i = 1 To 10
   
6.         
   
7.         For j = 1 To 5
   
8.             b(i, j) = a(i, j)
   
9.         Next
   
10.         For j = 6 To 10
    
11.             b(i, j + 1) = a(i, j)
    
12.         Next
    
13.         b(i, 6) = check(a(i, 5))
    
14.     Next
    
15.     Range("A1:K10") = b
    
16.    
    
17.    
    
18. End Sub
    
19. '1、表中的属性字段的中文名称。只能包含中文、英文字母、数字、左右括号、中划线和下划线，且以中文或英文字母开头。
    
20. '2、表中的属性字段的英文名称。只能包含英文字母、数字和下划线，且以英文字母开头。
    
21. 
    
22. Function check(s)
    
23.     Dim reg
    
24.     Set reg = CreateObject("vbscript.regexp")
    
25.     reg.Pattern = "^[a-zA-Z]\w+"
    
26.     If reg.Test(s) Then
    
27.         check = "英文"
    
28.     Else
    
29.         reg.Pattern = "^[a-zA-Z一_龢][a-zA-Z一_龢0-9—_()（）]+"
    
30.         If reg.Test(s) Then
    
31.             check = "中文"
    
32.         End If
    
33.     End If
    
34. End Function

复制代码

跳转到最佳答案楼层

suchocolate

excel方便发一下吗，确认一下真实数据。

qq1151985918

=IF(ISNUMBER(E1),"数字","字母")

swanseabrian

qq1151985918 发表于 2021-11-1 21:09
=IF(ISNUMBER(E1),"数字","字母")

这是啥意思,我想用python处理一下

qq1151985918

swanseabrian 发表于 2021-11-1 21:14
这是啥意思,我想用python处理一下

这是Excel内置函数啊，有内置函数不用用Python岂不是舍本逐末

swanseabrian

suchocolate 发表于 2021-11-1 21:09
excel方便发一下吗，确认一下真实数据。

发不上来吧应该, 反正就是 用正则 确定一下一个单元格的值是不是匹配 ,然后在后面对应位置做个标注,匹配就标注yes, 不匹配就标注no,  具体怎么追加不太清楚,网上找了个代码,但他一下追加一行的数据,

1. import pandas as pd
   
2. 
   
3. feature = pd.read_csv("C://Users//Machenike//Desktop//xzw//lr_train_data.txt", delimiter="\t", header=None, usecols=[0, 1])
   
4. feature.columns = ["a","b"]
   
5. print(feature.head())
   
6. feature = feature.reindex(columns=list('cabd'), fill_value=1)
   
7. 
   

复制代码

上面 这个,可是我想一个单元格一个单元格的加,判断一个单元格,后面就对应位置 加一个标注

swanseabrian

qq1151985918 发表于 2021-11-1 21:16
这是Excel内置函数啊，有内置函数不用用Python岂不是舍本逐末

其实我的判断条件要比这个复杂一些,我要判断条件是下面这样的,
1、表中的属性字段的中文名称。只能包含中文、英文字母、数字、左右括号、中划线和下划线，且以中文或英文字母开头。
2、表中的属性字段的英文名称。只能包含英文字母、数字和下划线，且以英文字母开头。

不知道内置函数可以解决不,我只想到正则,然后导表

qq1151985918

swanseabrian 发表于 2021-11-1 21:21
其实我的判断条件要比这个复杂一些,我要判断条件是下面这样的,
1、表中的属性字段的中文名称。只能包含 ...

可以肯定，内置函数可以解决，因为Excel也可以正则，但是我忘记Excel的正则表达式了，你可以自己网上查一下，我现在手机也不方便

swanseabrian

qq1151985918 发表于 2021-11-1 21:37
可以肯定，内置函数可以解决，因为Excel也可以正则，但是我忘记Excel的正则表达式了，你可以自己网上查一 ...

我找到下面这个链接
https://www.cnblogs.com/yorke/p/6170857.html
可是我想在a列后面追加一列,不知道怎么操作

swanseabrian

qq1151985918 发表于 2021-11-1 21:37
可以肯定，内置函数可以解决，因为Excel也可以正则，但是我忘记Excel的正则表达式了，你可以自己网上查一 ...

正则好说,别的不知道怎么写就是

傻眼貓咪

excel 常用的正则表达式

一、校验数字的表达式

1 数字：^[0-9]*$
2 n位的数字：^\d{n}$
3 至少n位的数字：^\d{n,}$
4 m-n位的数字：^\d{m,n}$
5 零和非零开头的数字：^(0|[1-9][0-9]*)$
6 非零开头的最多带两位小数的数字：^([1-9][0-9]*)+(.[0-9]{1,2})?$
7 带1-2位小数的正数或负数：^(\-)?\d+(\.\d{1,2})?$
8 正数、负数、和小数：^(\-|\+)?\d+(\.\d+)?$
9 有两位小数的正实数：^[0-9]+(.[0-9]{2})?$
10 有1~3位小数的正实数：^[0-9]+(.[0-9]{1,3})?$
11 非零的正整数：^[1-9]\d*$ 或 ^([1-9][0-9]*){1,3}$ 或 ^\+?[1-9][0-9]*$
12 非零的负整数：^\-[1-9][]0-9"*$ 或 ^-[1-9]\d*$
13 非负整数：^\d+$ 或 ^[1-9]\d*|0$
14 非正整数：^-[1-9]\d*|0$ 或 ^((-\d+)|(0+))$
15 非负浮点数：^\d+(\.\d+)?$ 或 ^[1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0$
16 非正浮点数：^((-\d+(\.\d+)?)|(0+(\.0+)?))$ 或 ^(-([1-9]\d*\.\d*|0\.\d*[1-9]\d*))|0?\.0+|0$
17 正浮点数：^[1-9]\d*\.\d*|0\.\d*[1-9]\d*$ 或 ^(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*))$
18 负浮点数：^-([1-9]\d*\.\d*|0\.\d*[1-9]\d*)$ 或 ^(-(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*)))$
19 浮点数：^(-?\d+)(\.\d+)?$ 或 ^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$

---

二、校验字符的表达式

1 汉字：^[\u4e00-\u9fa5]{0,}$
2 英文和数字：^[A-Za-z0-9]+$ 或 ^[A-Za-z0-9]{4,40}$
3 长度为3-20的所有字符：^.{3,20}$
4 由26个英文字母组成的字符串：^[A-Za-z]+$
5 由26个大写英文字母组成的字符串：^[A-Z]+$
6 由26个小写英文字母组成的字符串：^[a-z]+$
7 由数字和26个英文字母组成的字符串：^[A-Za-z0-9]+$
8 由数字、26个英文字母或者下划线组成的字符串：^\w+$ 或 ^\w{3,20}$
9 中文、英文、数字包括下划线：^[\u4E00-\u9FA5A-Za-z0-9_]+$
10 中文、英文、数字但不包括下划线等符号：^[\u4E00-\u9FA5A-Za-z0-9]+$ 或 ^[\u4E00-\u9FA5A-Za-z0-9]{2,20}$
11 可以输入含有^%&',;=?$\"等字符：[^%&',;=?$\x22]+
12 禁止输入含有~的字符：[^~\x22]+

---

三、特殊需求表达式

1 Email地址：^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$
2 域名：[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(/.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+/.?
3 InternetURL：[a-zA-z]+://[^\s]* 或 ^http://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?$
4 手机号码：^(13[0-9]|14[5|7]|15[0|1|2|3|5|6|7|8|9]|18[0|1|2|3|5|6|7|8|9])\d{8}$
5 电话号码("XXX-XXXXXXX"、"XXXX-XXXXXXXX"、"XXX-XXXXXXX"、"XXX-XXXXXXXX"、"XXXXXXX"和"XXXXXXXX)：^(\(\d{3,4}-)|\d{3.4}-)?\d{7,8}$
6 国内电话号码(0511-4405222、021-87888822)：\d{3}-\d{8}|\d{4}-\d{7}
7 身份证号(15位、18位数字)：^\d{15}|\d{18}$
8 短身份证号码(数字、字母x结尾)：^([0-9]){7,18}(x|X)?$ 或 ^\d{8,18}|[0-9x]{8,18}|[0-9X]{8,18}?$
9 帐号是否合法(字母开头，允许5-16字节，允许字母数字下划线)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$
10 密码(以字母开头，长度在6~18之间，只能包含字母、数字和下划线)：^[a-zA-Z]\w{5,17}$
11 强密码(必须包含大小写字母和数字的组合，不能使用特殊字符，长度在8-10之间)：^(?=.*\d)(?=.*[a-z])(?=.*[A-Z]).{8,10}$
12 日期格式：^\d{4}-\d{1,2}-\d{1,2}
13 一年的12个月(01～09和1～12)：^(0?[1-9]|1[0-2])$
14 一个月的31天(01～09和1～31)：^((0?[1-9])|((1|2)[0-9])|30|31)$
15 钱的输入格式：
16 1.有四种钱的表示形式我们可以接受:"10000.00" 和 "10,000.00", 和没有 "分" 的 "10000" 和 "10,000"：^[1-9][0-9]*$
17 2.这表示任意一个不以0开头的数字,但是,这也意味着一个字符"0"不通过,所以我们采用下面的形式：^(0|[1-9][0-9]*)$
18 3.一个0或者一个不以0开头的数字.我们还可以允许开头有一个负号：^(0|-?[1-9][0-9]*)$
19 4.这表示一个0或者一个可能为负的开头不为0的数字.让用户以0开头好了.把负号的也去掉,因为钱总不能是负的吧.下面我们要加的是说明可能的小数部分：^[0-9]+(.[0-9]+)?$
20 5.必须说明的是,小数点后面至少应该有1位数,所以"10."是不通过的,但是 "10" 和 "10.2" 是通过的：^[0-9]+(.[0-9]{2})?$
21 6.这样我们规定小数点后面必须有两位,如果你认为太苛刻了,可以这样：^[0-9]+(.[0-9]{1,2})?$
22 7.这样就允许用户只写一位小数.下面我们该考虑数字中的逗号了,我们可以这样：^[0-9]{1,3}(,[0-9]{3})*(.[0-9]{1,2})?$
23 8.1到3个数字,后面跟着任意个 逗号+3个数字,逗号成为可选,而不是必须：^([0-9]+|[0-9]{1,3}(,[0-9]{3})*)(.[0-9]{1,2})?$
24 备注：这就是最终结果了,别忘了"+"可以用"*"替代如果你觉得空字符串也可以接受的话(奇怪,为什么?)最后,别忘了在用函数时去掉去掉那个反斜杠,一般的错误都在这里
25 xml文件：^([a-zA-Z]+-?)+[a-zA-Z0-9]+\\.[x|X][m|M][l|L]$
26 中文字符的正则表达式：[\u4e00-\u9fa5]
27 双字节字符：[^\x00-\xff] (包括汉字在内，可以用来计算字符串的长度(一个双字节字符长度计2，ASCII字符计1))
28 空白行的正则表达式：\n\s*\r (可以用来删除空白行)
29 HTML标记的正则表达式：<(\S*?)[^>]*>.*?</\1>|<.*? /> (网上流传的版本太糟糕，上面这个也仅仅能部分，对于复杂的嵌套标记依旧无能为力)
30 首尾空白字符的正则表达式：^\s*|\s*$或(^\s*)|(\s*$) (可以用来删除行首行尾的空白字符(包括空格、制表符、换页符等等)，非常有用的表达式)
31 腾讯QQ号：[1-9][0-9]{4,} (腾讯QQ号从10000开始)
32 中国邮政编码：[1-9]\d{5}(?!\d) (中国邮政编码为6位数字)
33 IP地址：\d+\.\d+\.\d+\.\d+ (提取IP地址时有用)
34 IP地址：((?:(?:25[0-5]|2[0-4]\\d|[01]?\\d?\\d)\\.){3}(?:25[0-5]|2[0-4]\\d|[01]?\\d?\\d))

qq1151985918

swanseabrian 发表于 2021-11-1 21:53
正则好说,别的不知道怎么写就是

我是说excel也有正则，跟python不一样。python的正则还能基本记得，Excel正则因为比较少用记不得了。其实Excel是非常非常强大的。

kaohsing

excel不光有函数，还有编程语言vba。

kaohsing

Sub vba_soluction()
    Dim a, i, j
    Dim b(1 To 10, 1 To 11)
    a = Range("A1:K10")
    For i = 1 To 10
        
        For j = 1 To 5
            b(i, j) = a(i, j)
        Next
        For j = 6 To 10
            b(i, j + 1) = a(i, j)
        Next
        b(i, 6) = check(a(i, 5))
    Next
    Range("A1:K10") = b
   
   
End Sub
'1、表中的属性字段的中文名称。只能包含中文、英文字母、数字、左右括号、中划线和下划线，且以中文或英文字母开头。
'2、表中的属性字段的英文名称。只能包含英文字母、数字和下划线，且以英文字母开头。

Function check(s)
    Dim reg
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "^[a-zA-Z]\w+"
    If reg.Test(s) Then
        check = "英文"
    Else
        reg.Pattern = "^[a-zA-Z一_龢][a-zA-Z一_龢0-9—_()（）]+"
        If reg.Test(s) Then
            check = "中文"
        End If
    End If
End Function

kaohsing

1. Sub vba_soluction()
   
2.     Dim a, i, j
   
3.     Dim b(1 To 10, 1 To 11)
   
4.     a = Range("A1:K10")
   
5.     For i = 1 To 10
   
6.         
   
7.         For j = 1 To 5
   
8.             b(i, j) = a(i, j)
   
9.         Next
   
10.         For j = 6 To 10
    
11.             b(i, j + 1) = a(i, j)
    
12.         Next
    
13.         b(i, 6) = check(a(i, 5))
    
14.     Next
    
15.     Range("A1:K10") = b
    
16.    
    
17.    
    
18. End Sub
    
19. '1、表中的属性字段的中文名称。只能包含中文、英文字母、数字、左右括号、中划线和下划线，且以中文或英文字母开头。
    
20. '2、表中的属性字段的英文名称。只能包含英文字母、数字和下划线，且以英文字母开头。
    
21. 
    
22. Function check(s)
    
23.     Dim reg
    
24.     Set reg = CreateObject("vbscript.regexp")
    
25.     reg.Pattern = "^[a-zA-Z]\w+"
    
26.     If reg.Test(s) Then
    
27.         check = "英文"
    
28.     Else
    
29.         reg.Pattern = "^[a-zA-Z一_龢][a-zA-Z一_龢0-9—_()（）]+"
    
30.         If reg.Test(s) Then
    
31.             check = "中文"
    
32.         End If
    
33.     End If
    
34. End Function

复制代码

swanseabrian

kaohsing 发表于 2021-11-2 09:24

这个怎么指定分析是哪一列呢,

kaohsing

swanseabrian 发表于 2021-11-2 09:36
这个怎么指定分析是哪一列呢,

分析的是第五列

swanseabrian

kaohsing 发表于 2021-11-2 10:03
分析的是第五列

有没有Python的, 这个运行了没反应,我也不太懂

swanseabrian

kaohsing 发表于 2021-11-2 10:03
分析的是第五列

我表发给你,你可以帮我看一下吗,有邮箱吗

kaohsing

907490349@qq.com