如何批量去掉EXCEL表格中中文汉字
发布网友
发布时间：2022-03-09 01:46
共10个回答
热心网友
时间：2022-03-09 03:15
1，打开wps表格程序，进入程序主界面打开一张Excel表格。
2，接着，在上方的开始中点击“只能工具箱”，点击打开。
3，在窗口中选中要处理操作的区域。
4，在上方菜单中点击“保留”选项，点击打开。
5，在对话框中勾选“数字”。
6，最后，即可看到表格中只剩下数字，问题解决。
热心网友
时间：2022-03-09 04:33
工具--宏--visual basic编辑器--插入模块--拷贝以下内容，
然后在表格里面填上公式 【=除汉字(A1)】，A1是“E2300中国3200S”等所在的单元格
Function 除汉字(rng As Range)
s = Len(rng.Text)
For i = 1 To s
txt = StrConv(Mid(rng.Text, i, 1), vbNarrow)
txt2 = StrConv(Mid(rng.Text, i, 1), vbWide)
If txt <> txt2 Then
除汉字 = 除汉字 & Mid(rng.Text, i, 1)
End If
Next i
End Function
热心网友
时间：2022-03-09 06:08
Function remove_hz(range_str, flag) As String
Dim i As Long, str As String
i = 1
str = range_str.Text
Do While i < Len(str) + 1
If (Asc(Mid(str, i, 1)) And 128) = 128 Then
If flag = 0 Then
str = Left(str, i - 1) & " " & Right(str, Len(str) - i)
Else
str = Left(str, i - 1) & Right(str, Len(str) - i)
i = i - 1
End If
End If
i = i + 1
Loop
remove_hz = str
End Function
这个函数也可以实现,
remove_hz(range_str, flag)
range_str 选的是要转化的单位格
flag,当flag为0时用空格替代汉字,其它时删除汉字.
不过4楼有些字符也是删不掉的,
如: q为什和 你们q我们
热心网友
时间：2022-03-09 07:59
用宏删除；
开发工具——宏——编辑宏——写入如下代码，保存——运行宏，即可，如图：
热心网友
时间：2022-03-09 10:07
excel中恐怕不行，但是可以将它复制到word中，利用word强大的替换功能删除汉字，如果需要，再将替换后的结果复制粘贴回来。
WORD删除所有汉字的操作方法如下：
Ctrl+H 打开“查找和替换”对话框，勾选“使用通配符”
查找内容：[一-﨩]
替换为什么都不填
单击全部替换
热心网友
时间：2022-03-09 12:32
如果内容在A列，而且中文都是连着的，可以用2步完成：
1、在B1输入公式：
=MID(A1,MIN(IF(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>255,ROW(INDIRECT("1:"&LEN(A1))))),MAX(IF(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>255,ROW(INDIRECT("1:"&LEN(A1)))))-MIN(IF(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>255,ROW(INDIRECT("1:"&LEN(A1)))))+1)
按键盘上的 Shift+Ctrl+回车键 结束公式的输入，并将公式向下复制，这是提取出A列上的中文内容。
2、在C1输入公式：
=SUBSTITUTE(A1,B1,1)
也将公式向下复制，这样C列就得到去除了中文的A列内容了，再用“复制”－“选择性粘贴”－“数值”，就可以将结果保存为真实的数据。
热心网友
时间：2022-03-09 15:13
关键看你的数据字段长短有没有规律
要是比如你上面的这个“E2300中国3200S”，就很好办
若
E2300中国3200S在A1中
在B1中输入：=left（A1，5）&right（A1，5）
就行了，公式意思是，取A1中前5个字符加上后5个字符组合为新的字符串“E23003200S”
具体还要看你的其它数据才行
热心网友
时间：2022-03-09 18:11
Function 除汉字(rng As Range)
s = Len(rng.Text)
For i = 1 To s
txt = StrConv(Mid(rng.Text, i, 1), vbNarrow)
txt2 = StrConv(Mid(rng.Text, i, 1), vbWide)
If txt <> txt2 Then
除汉字 = 除汉字 & Mid(rng.Text, i, 1)
End If
Next i
End Function
4楼原来是个高手 佩服先 俺编程这块弱 学习先
热心网友
时间：2022-03-09 21:42
Sub 提取型号()
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
.Pattern = "[!-~]{8,50}"
For Each Rng In [A2:A4010]
Set mat = .Execute(Rng)
For Each m In mat
n = n + 1
Cells(n, 2) = m
Next
Next
End With
End Sub
热心网友
时间：2022-03-10 01:30
有什么规律没？
方便操作
