就是excel里面有英文中文数字而且位置不一致，我需要筛选出来其中汉字

非常抱歉，我之前给出的代码有误。以下是一个修正后的宏，用于筛选Excel工作表中的汉字：

Sub FilterChineseCharacters()
    Dim cell As Range
    Dim rng As Range
    
    ' 创建空白区域用于存储筛选结果
    Set rng = Sheets.Add().Range("A1")
    
    ' 循环遍历每个单元格，筛选出汉字
    For Each cell In ActiveSheet.UsedRange
        If ContainsChineseCharacters(cell.Value) Then
            rng.Value = cell.Value
            Set rng = rng.Offset(1) ' 移动到下一行
        End If
    Next cell
    
    rng.EntireColumn.AutoFit ' 自动调整列宽
End Sub

Function ContainsChineseCharacters(str As String) As Boolean
    Dim i As Integer
    
    ' 遍历字符串的每个字符
    For i = 1 To Len(str)
        If Not IsChineseCharacter(Mid(str, i, 1)) Then
            ContainsChineseCharacters = False
            Exit Function
        End If
    Next i
    
    ContainsChineseCharacters = True
End Function

Function IsChineseCharacter(char As String) As Boolean
    IsChineseCharacter = (AscW(char) >= &H4E00 And AscW(char) <= &H9FFF)
End Function

请按照以下步骤执行该宏：

1. 打开Excel文件，并确保要筛选的数据位于活动工作表中。
2. 按下`Alt + F11`打开VBA编辑器。
3. 在VBA编辑器中，插入一个新的模块（如果没有已存在的模块）。
4. 将上述修正后的代码复制粘贴到新模块中。
5. 关闭VBA编辑器。
6. 运行宏：按下`Alt + F8`打开宏对话框，选择`FilterChineseCharacters`宏，然后点击“运行”。

该宏将遍历活动工作表中的所有单元格，筛选出只包含汉字的单元格，并将结果放置在新的工作表中。新的工作表将在原有工作表的右侧创建，并自动调整列宽以适应数据。希望这能帮到您！