[已解决]数字后面添加分号

心灵有约 · 发表于 2022-7-27 20:53

本帖最后由心灵有约于 2022-7-27 21:08 编辑

数字后面添加分号.rar (7.58 KB, 下载次数: 6)

hasyh2008 · 发表于 2022-7-27 21:54

试试看！！！！

hasyh2008 · 发表于 2022-7-27 22:06

这个最佳答案由 hasyh2008 给出，感谢 hasyh2008 的回答。

单击隐藏图章

本帖最后由 hasyh2008 于 2022-7-27 22:08 编辑

.Pattern = ".+\d+;?"改为:
.Pattern = "\D+\d+;?"

心灵有约 · 发表于 2022-7-28 07:15

hasyh2008 发表于 2022-7-27 22:06
.Pattern = ".+\d+;?"改为:
.Pattern = "\D+\d+;?"

再补充下问题：如果文本中没有数字，则不做修改，但需保留原状。谢谢

hasyh2008 · 发表于 2022-7-28 08:25

再试试！！！！

心灵有约 · 发表于 2022-7-28 22:09

hasyh2008 发表于 2022-7-28 08:25
再试试！！！！

数字后面添加分号(正则20220727)(1) (1).rar (515.28 KB, 下载次数: 8)

hasyh2008 · 发表于 2022-7-29 09:05

本帖最后由 hasyh2008 于 2022-7-29 09:21 编辑

再试试吧！！

心灵有约 · 发表于 2022-7-29 16:44

hasyh2008 发表于 2022-7-29 09:05
再试试吧！！

OK了，谢谢。

hasyh2008 · 发表于 2022-7-30 14:17

又修改了下

rlz680926 · 发表于 2022-7-30 18:13

Sub test()
Dim i As Integer
Dim j As Integer
Dim arr
Dim str, str1
arr = Range("a1", Range("a65536").End(xlUp))
For i = 2 To UBound(arr)
str = ""
str1 = arr(i, 1)
For j = 1 To Len(arr(i, 1))

      If VBA.IsNumeric(Mid(arr(i, 1), j, 1)) Then
         n = j
         m = --Mid(arr(i, 1), j, 1)
            If n = Len(arr(i, 1)) Then
                  str = VBA.Replace(str1, str1, str1 & "；")
                  Cells(i, 2) = str
                  Exit For
            End If


            If "；" = Mid(str1, Len(str1), 1) Then
                  Cells(i, 2) = str1
                  Exit For
            End If


         Do
            j = j + 1
         Loop Until Not VBA.IsNumeric(Mid(arr(i, 1), j, 1))
               y = y + 1
            str = str & Application.WorksheetFunction.Replace(str1, j - 2 + y, 1, Mid(arr(i, 1), j - 1, 1) & "；")
               str1 = str
               str = ""

      End If
Next
Next
End Sub

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