如何批量去掉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

有什么规律没？

方便操作