如何快速删除字母前后数据（在线等）

clq941119

如何快速删除字母前后数据（在线等）万分感谢

cjc209

用VBA的正则法则 就非常简单 [a-zA-Z]+ 方法为保留

祝洪忠-

步骤一  复制Excel中的内容 粘贴到Word 设置为绿色字体


步骤二 按Ctrl+H  查找内容为 ^$ 在主文档中查找，然后设置为红色字体


步骤三  单击文档任意空白位置，按Ctrl+H  查找内容和替换为均不输入内容，点击字体 设置查找字体为绿色


全部替换

步骤四 将替换后的内容 复制到Excel

cjc209

c3

1. =MID(A3,MIN(IF(IFERROR(FIND(CHAR(ROW($65:$90)),A3),1>1)+IFERROR(FIND(CHAR(ROW($97:$122)),A3),1>1),IFERROR(FIND(CHAR(ROW($65:$90)),A3),1>1)+IFERROR(FIND(CHAR(ROW($97:$122)),A3),1>1))),MAX(IF(IFERROR(FIND(CHAR(ROW($65:$90)),A3),1>1)+IFERROR(FIND(CHAR(ROW($97:$122)),A3),1>1),IFERROR(FIND(CHAR(ROW($65:$90)),A3),1>1)+IFERROR(FIND(CHAR(ROW($97:$122)),A3),1>1)))+1-MIN(IF(IFERROR(FIND(CHAR(ROW($65:$90)),A3),1>1)+IFERROR(FIND(CHAR(ROW($97:$122)),A3),1>1),IFERROR(FIND(CHAR(ROW($65:$90)),A3),1>1)+IFERROR(FIND(CHAR(ROW($97:$122)),A3),1>1))))

复制代码

数组公式 下拉

lnhjz

第二列输FRS，然后CTRL+E填充

cjc209

精简公式 数组

1. =MID(A3,MIN(IFERROR(FIND(CHAR(ROW($65:$90)),A3),1>1),IFERROR(FIND(CHAR(ROW($97:$122)),A3),1>1)),MAX(IFERROR(FIND(CHAR(ROW($65:$90)),A3),1>1),IFERROR(FIND(CHAR(ROW($97:$122)),A3),1>1))+1-MIN(IFERROR(FIND(CHAR(ROW($65:$90)),A3),1>1),IFERROR(FIND(CHAR(ROW($97:$122)),A3),1>1)))

复制代码

cjc209

期待高手的公式 更精短

cjc209

祝洪忠- 发表于 2018-7-15 11:34
步骤一  复制Excel中的内容 粘贴到Word 设置为绿色字体

要在两个软件中 反复切换 不方便

cjc209

发一个人机对话型 通用型的正则替换 或者保留的代码 自己学做写的 但很好用

1. Sub 正则替换()
   
2.     On Error Resume Next
   
3.     Set regx = CreateObject("vbscript.regexp")
   
4. 1:
   
5.     Set sjq = Application.InputBox(prompt:="请选择：查找区域", Type:=8)
   
6.     If sjq Is Nothing Then GoTo ff1
   
7.     sjqzhs = sjq.Rows.Count
   
8.     sjqqsl = sjq.Column
   
9.     sjqqsh = sjq.Row
   
10.     Set jgq = Application.InputBox(prompt:="请选择：结果摆放起始位", Type:=8)
    
11.     If jgq Is Nothing Then GoTo ff1
    
12.     Application.ScreenUpdating = False
    
13.     jgqqsh = jgq.Row
    
14.     jgql = jgq.Column
    
15.     arr = sjq
    
16.     With regx
    
17.         .Global = True '默认为 false  只查找第一个  True则全部查找
    
18.         bds = Application.InputBox(prompt:="请输入：正则表达式")
    
19.         .Pattern = bds 'Pattern 是属性 正则表达式的内容
    
20.         bb = MsgBox("是全部替换还是保留 是为替换 否为保留", vbYesNo)
    
21.         If bb = 7 Then GoTo 11
    
22.         th = Application.InputBox(prompt:="替换为：什么")
    
23.         zcljzf = Application.InputBox(prompt:="请输入最初连接字符：什么")
    
24.         jwljzf = Application.InputBox(prompt:="请输入最末连接字符：什么")
    
25.         If sjqzhs > 1 Then GoTo 2
    
26.         Cells(jgqqsh + n, jgql).NumberFormatLocal = "@"
    
27.         Cells(jgqqsh + n, jgql) = zcljzf & .Replace(arr, th)
    
28.         GoTo ff
    
29. 2:
    
30.         For Each Rng In arr
    
31.             Cells(jgqqsh + n, jgql).NumberFormatLocal = "@"
    
32.             Cells(jgqqsh + n, jgql) = zcljzf & .Replace(Rng, th) & jwljzf 'Replace为一种方法 此种方法为替换
    
33.             If Cells(jgqqsh + n, jgql) = zcljzf & jwljzf Then Cells(jgqqsh + n, jgql) = ""
    
34.             If zcljzf & Cells(sjqqsh + n, sjqqsl) & jwljzf = Cells(jgqqsh + n, jgql) Then Cells(jgqqsh + n, jgql).NumberFormatLocal = "@": Cells(jgqqsh + n, jgql) = Cells(sjqqsh + n, sjqqsl)
    
35.             n = n + 1
    
36.         Next
    
37.         GoTo ff
    
38. 11:
    
39.         bbb = MsgBox("是保留全部还是一个 是为全部 否为一个", vbYesNo)
    
40.         If bbb = 7 Then GoTo 12
    
41.         If sjqzhs > 1 Then GoTo 3
    
42.         fgf = Application.InputBox(prompt:="请输入：分隔符")
    
43.         Set matc = .Execute(arr)
    
44.         sl = matc.Count
    
45.         For Each mm In matc
    
46.             kk = kk + 1
    
47.             If kk = sl Then GoTo 15
    
48.             Cells(jgqqsh + n, jgql).NumberFormatLocal = "@"
    
49.             Cells(jgqqsh + n, jgql) = mm2 & mm & fgf
    
50.             mm2 = mm2 & mm & fgf
    
51.             GoTo 17
    
52. 15:
    
53.             Cells(jgqqsh + n, jgql).NumberFormatLocal = "@"
    
54.             Cells(jgqqsh + n, jgql) = mm2 & mm
    
55. 17:
    
56.         Next mm
    
57.         GoTo ff
    
58. 3:
    
59.         fgf = Application.InputBox(prompt:="请输入：分隔符")
    
60.         For Each m1 In arr
    
61.             Set k = regx.Execute(m1) 'Execute方法：返回匹配成功的结果，是一个对象
    
62.             js = k.Count
    
63.             For Each m In k
    
64.                 xhcs = xhcs + 1
    
65.                 If js = 1 Then GoTo 33
    
66.                 If js > 1 And xhcs = 1 Then GoTo 33
    
67.                 If xhcs = js Then GoTo 35
    
68.                 Cells(jgqqsh + n, jgql).NumberFormatLocal = "@"
    
69.                 Cells(jgqqsh + n, jgql) = m2 & m & fgf
    
70.                 m2 = m2 & m & fgf
    
71.                 GoTo 34
    
72. 33:
    
73.                 Cells(jgqqsh + n, jgql).NumberFormatLocal = "@"
    
74.                 Cells(jgqqsh + n, jgql) = m
    
75.                 m2 = m & fgf
    
76.                 GoTo 34
    
77. 35:
    
78.                 Cells(jgqqsh + n, jgql).NumberFormatLocal = "@"
    
79.                 Cells(jgqqsh + n, jgql) = m2 & m
    
80. 34:
    
81.             Next
    
82.             m2 = ""
    
83.             xhcs = 0
    
84.             n = n + 1
    
85.         Next
    
86.         GoTo ff
    
87. 12:
    
88.         If sjqzhs > 1 Then GoTo 4
    
89.         fgf = Application.InputBox(prompt:="请输入：分隔符")
    
90.         Set matc = .Execute(arr)
    
91.         sl = matc.Count
    
92.         For Each mm In matc
    
93.             kk = kk + 1
    
94.             If kk = sl Then GoTo 5
    
95.             Cells(jgqqsh + n, jgql).NumberFormatLocal = "@"
    
96.             Cells(jgqqsh + n, jgql) = mm2 & mm & fgf
    
97.             mm2 = mm2 & mm & fgf
    
98.             GoTo 7
    
99. 5:
    
100.            Cells(jgqqsh + n, jgql).NumberFormatLocal = "@"
     
101.             Cells(jgqqsh + n, jgql) = mm2 & mm
     
102. 7:
     
103.         Next mm
     
104.     End With
     
105.     GoTo ff
     
106. 4:
     
107.     For Each m1 In arr
     
108.         Set k = regx.Execute(m1)
     
109.         For Each m In k
     
110.             ii = ii + 1
     
111.             If ii > 1 Then GoTo 36
     
112.             Cells(jgqqsh + n, jgql).NumberFormatLocal = "@"
     
113.             Cells(jgqqsh + n, jgql) = m
     
114.         Next
     
115. 36:
     
116.         ii = 0
     
117.         n = n + 1
     
118.     Next
     
119.    
     
120. ff:
     
121.     n = 0
     
122.      Application.ScreenUpdating = True
     
123.     aa = MsgBox("是否还需继续处理", vbYesNo)
     
124.     If aa = 6 Then GoTo 1
     
125. ff1:
     
126.   Application.ScreenUpdating = True
     
127. End Sub
     

复制代码

mrzhang007988

我偷个懒，用WPS
D3输入：
=TEXTJOIN(,1,IF((MID(A3,ROW($1:$10),1)>="A")*(MID(A3,ROW($1:$10),1)<="z"),MID(A3,ROW($1:$10),1),""))
数组键入，下拉
或者:=CONCAT(IF((MID(A3,ROW($1:$10),1)>="A")*(MID(A3,ROW($1:$10),1)<="z"),MID(A3,ROW($1:$10),1),""))
数组键入，下拉