excel怎么删掉英文只保留中文

Excel删除英文只保留中文的几种方法、使用公式和函数、利用VBA宏代码、通过查找和替换功能、结合Power Query。使用公式和函数是最常见的方法之一，通过正则表达式或字符替换函数可以有效地删除英文字符。以下详细介绍这种方法：

使用公式和函数

在Excel中，利用公式和函数可以实现删除英文字符只保留中文的方法。常用的方法包括使用正则表达式、SUBSTITUTE和TEXTJOIN等函数。以下是具体的操作步骤：

1. 使用SUBSTITUTE函数

SUBSTITUTE函数可以用来替换文本中的特定字符。通过多次嵌套SUBSTITUTE函数，可以逐一替换掉所有英文字符。

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1, "a", ""), "b", ""), "c", "")  '依此类推，逐个替换掉所有英文字母

2. 使用TEXTJOIN函数

TEXTJOIN函数可以将多个文本值合并为一个文本值，并可以指定分隔符。通过结合其他函数，可以实现只保留中文字符的目的。

=TEXTJOIN("", TRUE, IF(ISNUMBER(FIND(MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1), "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")), "", MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)))

以上公式使用了MID、ROW、INDIRECT、FIND等函数，逐个检测并保留中文字符。

利用VBA宏代码

VBA宏代码可以实现更为复杂的操作，适合处理大量数据或需要复杂逻辑的场景。以下是一个示例代码，用于删除单元格中的英文字符只保留中文字符：

Sub RemoveEnglishKeepChinese()
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Dim str As String
    Set rng = Selection
    For Each cell In rng
        str = ""
        For i = 1 To Len(cell.Value)
            If Asc(Mid(cell.Value, i, 1)) < 128 Then
                ' do nothing (skip English characters)
            Else
                str = str & Mid(cell.Value, i, 1)
            End If
        Next i
        cell.Value = str
    Next cell
End Sub

将上述代码复制到VBA编辑器中，并运行该宏，即可删除所选单元格中的英文字符。

通过查找和替换功能

Excel的查找和替换功能也可以用来删除英文字符。虽然这种方法比较繁琐，但对于少量数据处理还是很有用的。

1. 打开查找和替换对话框

按下Ctrl+H键，打开查找和替换对话框。

2. 输入查找内容

在“查找内容”框中输入一个英文字符（如a），然后点击“替换为”框并留空。点击“全部替换”，将所有的a字符替换为空。

3. 重复操作

重复上述步骤，逐个替换掉所有的英文字符。

结合Power Query

Power Query是Excel中的一个强大数据处理工具，通过编写M语言代码，可以实现复杂的数据清洗和转换操作。以下是使用Power Query删除英文字符的步骤：

1. 加载数据到Power Query

选择数据区域，点击“数据”选项卡，选择“从表/范围”，将数据加载到Power Query编辑器中。

2. 编写M语言代码

在Power Query编辑器中，点击“高级编辑器”，输入以下M语言代码：

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    RemoveEnglish = Table.TransformColumns(Source, {{"Column1", each Text.Select(_, {"0".."9", "一".."龥"}), type text}})
in
    RemoveEnglish

上述代码中，Text.Select函数用于选择特定字符，将英文字符排除在外，只保留中文字符和数字。

小结

Excel删除英文只保留中文的方法多种多样，主要包括使用公式和函数、VBA宏代码、查找和替换功能以及Power Query。根据不同的数据处理需求和场景，可以选择最适合的方法进行操作。通过灵活运用这些工具和技巧，可以大大提高数据处理的效率和准确性。

详细描述：使用公式和函数

使用公式和函数的方法在处理简单的数据时非常高效。尤其是对于不熟悉编程的用户来说，这种方法更加直观和易操作。以下是更详细的操作步骤和解释：

1.1 使用SUBSTITUTE函数

SUBSTITUTE函数用于替换文本中的特定字符。通过嵌套多个SUBSTITUTE函数，可以逐一替换掉所有的英文字符。

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1, "a", ""), "b", ""), "c", "")  '依此类推，逐个替换掉所有英文字母

以上公式虽然有效，但手动输入所有的英文字母比较繁琐。可以借助其他函数进行优化。

1.2 使用TEXTJOIN函数

TEXTJOIN函数可以将多个文本值合并为一个文本值，并指定分隔符。结合MID、ROW、INDIRECT、FIND等函数，可以实现逐个检测字符并保留中文字符的功能。

=TEXTJOIN("", TRUE, IF(ISNUMBER(FIND(MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1), "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")), "", MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)))

上述公式的具体解释如下：

MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1)：逐个提取A1单元格中的每个字符。
FIND(MID(A1, ROW(INDIRECT("1:"&LEN(A1))), 1), "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")：检查提取的字符是否为英文字母。
IF(ISNUMBER(…), "", MID(…))：如果字符为英文字母，则用空字符串替换；否则，保留该字符。
TEXTJOIN("", TRUE, …)：将所有保留的字符合并为一个字符串。

详细描述：利用VBA宏代码

VBA宏代码适合处理复杂数据或需要批量操作的场景。以下是更详细的VBA宏代码和解释：

Sub RemoveEnglishKeepChinese()
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Dim str As String
    Set rng = Selection
    For Each cell In rng
        str = ""
        For i = 1 To Len(cell.Value)
            If Asc(Mid(cell.Value, i, 1)) < 128 Then
                ' do nothing (skip English characters)
            Else
                str = str & Mid(cell.Value, i, 1)
            End If
        Next i
        cell.Value = str
    Next cell
End Sub

具体解释如下：

Dim rng As Range：声明一个Range类型的变量rng，用于存储选定的单元格范围。
Dim cell As Range：声明一个Range类型的变量cell，用于遍历每个单元格。
Dim i As Integer：声明一个整数类型的变量i，用于循环计数。
Dim str As String：声明一个字符串类型的变量str，用于存储保留的中文字符。
Set rng = Selection：将当前选定的单元格范围赋值给rng。
For Each cell In rng：遍历选定的每个单元格。
For i = 1 To Len(cell.Value)：遍历单元格中的每个字符。
If Asc(Mid(cell.Value, i, 1)) < 128：检查字符的ASCII码，如果小于128，则为英文字符。
str = str & Mid(cell.Value, i, 1)：将中文字符拼接到字符串str中。
cell.Value = str：将处理后的字符串赋值回单元格。

详细描述：通过查找和替换功能

查找和替换功能适合处理少量数据，操作简单直观。以下是更详细的步骤：

3.1 打开查找和替换对话框