怎样去掉excel表格中的英文、标点符号、数字等，只留下汉字？紧急！
发布网友
发布时间：2022-04-24 04:22
共5个回答
热心网友
时间：2023-10-27 16:13
选中这一列，点“数据”--分列--选分隔符号--选其他---输入“（”，完成分列后，再做一次按“）”分列，两次做完后，英文一列，中文一列，英文一列。再删除不需要的列。
热心网友
时间：2023-10-27 16:14
Sub aa()
Dim x, y, lChar, i, bb(), p, j, m
x = ActiveCell.Row
y = ActiveCell.Column
p = Len(Cells(x, y).Value)
ReDim bb(1 To p)
For i = 1 To p
bb(i) = Mid(Cells(x, y).Value, i, 1)
Next
For j = 1 To p
lChar = 65536 + Val(Asc(bb(j)))
If lChar >= 45217 And lChar <= 552 Then
m = m + bb(j)
End If
Next
Cells(x, y).Value = m
选择此单元格，按alt+f8创建一个宏，把里面的东西全删了，复制代码进去，关闭后，回到excel再按alt+f8 点aa执行，试试吧
热心网友
时间：2023-10-27 16:14
编辑——替换，查找替换，在“查找内容”里输入 ^$（就是在高级——特殊字符里选择“任意字母”） ，“替换为”里面什么都不输，全部替换。
热心网友
时间：2023-10-27 16:15
日前看来没有特别的办法,如果格式固定,可以尝试用这个公式=if(len(a1)=12,MID(A1,8,2),mid(a1,8,3))
此处以A1单元格为例.
热心网友
时间：2023-10-27 16:16
没办法，只能逐个删除掉了
热心网友
时间：2023-10-27 16:13
选中这一列，点“数据”--分列--选分隔符号--选其他---输入“（”，完成分列后，再做一次按“）”分列，两次做完后，英文一列，中文一列，英文一列。再删除不需要的列。
热心网友
时间：2023-10-27 16:13
选中这一列，点“数据”--分列--选分隔符号--选其他---输入“（”，完成分列后，再做一次按“）”分列，两次做完后，英文一列，中文一列，英文一列。再删除不需要的列。
热心网友
时间：2023-10-27 16:14
Sub aa()
Dim x, y, lChar, i, bb(), p, j, m
x = ActiveCell.Row
y = ActiveCell.Column
p = Len(Cells(x, y).Value)
ReDim bb(1 To p)
For i = 1 To p
bb(i) = Mid(Cells(x, y).Value, i, 1)
Next
For j = 1 To p
lChar = 65536 + Val(Asc(bb(j)))
If lChar >= 45217 And lChar <= 552 Then
m = m + bb(j)
End If
Next
Cells(x, y).Value = m
选择此单元格，按alt+f8创建一个宏，把里面的东西全删了，复制代码进去，关闭后，回到excel再按alt+f8 点aa执行，试试吧
热心网友
时间：2023-10-27 16:14
编辑——替换，查找替换，在“查找内容”里输入 ^$（就是在高级——特殊字符里选择“任意字母”） ，“替换为”里面什么都不输，全部替换。
热心网友
时间：2023-10-27 16:15
日前看来没有特别的办法,如果格式固定,可以尝试用这个公式=if(len(a1)=12,MID(A1,8,2),mid(a1,8,3))
此处以A1单元格为例.
热心网友
时间：2023-10-27 16:16
没办法，只能逐个删除掉了
热心网友
时间：2023-10-27 16:13
选中这一列，点“数据”--分列--选分隔符号--选其他---输入“（”，完成分列后，再做一次按“）”分列，两次做完后，英文一列，中文一列，英文一列。再删除不需要的列。
热心网友
时间：2023-10-27 16:14
Sub aa()
Dim x, y, lChar, i, bb(), p, j, m
x = ActiveCell.Row
y = ActiveCell.Column
p = Len(Cells(x, y).Value)
ReDim bb(1 To p)
For i = 1 To p
bb(i) = Mid(Cells(x, y).Value, i, 1)
Next
For j = 1 To p
lChar = 65536 + Val(Asc(bb(j)))
If lChar >= 45217 And lChar <= 552 Then
m = m + bb(j)
End If
Next
Cells(x, y).Value = m
选择此单元格，按alt+f8创建一个宏，把里面的东西全删了，复制代码进去，关闭后，回到excel再按alt+f8 点aa执行，试试吧
热心网友
时间：2023-10-27 16:14
Sub aa()
Dim x, y, lChar, i, bb(), p, j, m
x = ActiveCell.Row
y = ActiveCell.Column
p = Len(Cells(x, y).Value)
ReDim bb(1 To p)
For i = 1 To p
bb(i) = Mid(Cells(x, y).Value, i, 1)
Next
For j = 1 To p
lChar = 65536 + Val(Asc(bb(j)))
If lChar >= 45217 And lChar <= 552 Then
m = m + bb(j)
End If
Next
Cells(x, y).Value = m
选择此单元格，按alt+f8创建一个宏，把里面的东西全删了，复制代码进去，关闭后，回到excel再按alt+f8 点aa执行，试试吧
热心网友
时间：2023-10-27 16:14
编辑——替换，查找替换，在“查找内容”里输入 ^$（就是在高级——特殊字符里选择“任意字母”） ，“替换为”里面什么都不输，全部替换。
热心网友
时间：2023-10-27 16:14
编辑——替换，查找替换，在“查找内容”里输入 ^$（就是在高级——特殊字符里选择“任意字母”） ，“替换为”里面什么都不输，全部替换。
热心网友
时间：2023-10-27 16:15
日前看来没有特别的办法,如果格式固定,可以尝试用这个公式=if(len(a1)=12,MID(A1,8,2),mid(a1,8,3))
此处以A1单元格为例.
热心网友
时间：2023-10-27 16:15
日前看来没有特别的办法,如果格式固定,可以尝试用这个公式=if(len(a1)=12,MID(A1,8,2),mid(a1,8,3))
此处以A1单元格为例.
热心网友
时间：2023-10-27 16:16
没办法，只能逐个删除掉了
热心网友
时间：2023-10-27 16:16
没办法，只能逐个删除掉了
