Excel VBA编程，通配符，批量替换、筛选所有数字、字母、常见标点符号、中文字符
代码如下：(样本文件见附件)Sub test() Dim regX As Object, s As String, i, j Set regX = CreateObject("vbscript.regeXP") For i = 1 To Cells(Rows.Count, 1).End(3).Row With regX .Global = True For j = 2 To 5 Select Case j Case 2 s = "[^\u4e00-\u9fa5]" '取汉字 Case 3 s = "\D" '取数字 Case 4 s = "[^a-zA-Z]" '取字母 Case 5 s = "[\u4e00-\u9fa50-9a-zA-Z]" '取符号 End Select .Pattern = s Cells(i, j) = .Replace(Cells(i, 1), "") Next j End With NextEnd Sub
excel vba提取单元格里符号后面的数据
将需要分离的文字或数据放到表格的列或者行中。选中需要分离的字符或者文字表格。选择顶部菜单的“数据”选项卡。选择“数据”选项卡下面的“分列”菜单。好了，重点来了，选择第一个选项“分隔符号”在分隔符号中，选择“其他”并在旁边个输入框中输入隔离符号。如果符号是多个同样的话，需要勾选上“连续符号视为单个处理”的选项。注意：此步骤很重要。点击进入下一步----再点击完成。完成 如下图：
