VBA 同行只保留特殊字符及数字的单元格

On_fire · 发表于 2024-4-3 15:39

*

Sheet1是源资料, 每行是一组资料, 有空, 行列是变量

*

代码逻辑如下,

1. 每一行的9列是标题行

2. 代码要左到右, 顺序判断每一行的单元格内是否含有特殊字符及数字?

3. 每行去空, 只保留有特殊字符及数字的数据内容 ( 如: *, #, !, ?, 1~9 )

*

模拟结果在Sheet1(2)

*

恳请大神, 老师出手帮忙…谢谢!

baofa2 · 发表于 2024-4-3 17:03

Del.zip (19.35 KB, 下载次数: 6)

^星^ · 发表于 2024-4-3 17:19

Del.zip (14.88 KB, 下载次数: 3)

On_fire · 发表于 2024-4-4 07:06

baofa2 发表于 2024-4-3 17:03

早上好,
谢谢老师…

On_fire · 发表于 2024-4-4 07:10

^星^ 发表于 2024-4-3 17:19

早上好,
感谢老师…

limonet · 发表于 2024-4-4 14:57

[1-9\* # ! \?]

limonet · 发表于 2024-4-4 14:58

Sub limonet()
Dim i%, j%, Arr As Variant
With CreateObject("vbscript.regexp")
      .Pattern = "[1-9\* # ! \?]"
      For i = 1 To 5
         Arr = Application.Transpose(Application.Transpose(Range(Cells(i, "J"), Cells(i, "U"))))
         For j = 1 To UBound(Arr)
            If Not .test(Arr(j)) Then Arr(j) = ""
         Next j
         Arr = Split(Application.Trim(Join(Arr)))
         Range(Cells(i, "J"), Cells(i, "U")).Clear
         Cells(i, "J").Resize(1, UBound(Arr) + 1) = Arr
      Next i
End With
End Sub

limonet · 发表于 2024-4-4 15:18

去掉一个循环，[^1-9\* # ! \?]

limonet · 发表于 2024-4-4 15:19

Sub limonet()
Dim i%, Arr As Variant
With CreateObject("vbscript.regexp")
      .Pattern = "[^1-9\* # ! \?] ": .Global = True
      For i = 1 To 5
         Arr = Join(Application.Transpose(Application.Transpose(Range(Cells(i, "J"), Cells(i, "U"))))) & " "
         Arr = Split(Application.Trim(.Replace(Arr, "")))
         Range(Cells(i, "J"), Cells(i, "U")).Clear
         Cells(i, "J").Resize(1, UBound(Arr) + 1) = Arr
      Next i
End With
End Sub

		自动登录	找回密码
密码			免费注册

[求助] VBA 同行只保留特殊字符及数字的单元格

评分

评分

评分

评分

评分