求分割A列后 删除带“： ”的字段 并输出到B列

jerry3770

longwin 发表于 2024-5-24 14:32
是都满足了删除的条件了吧？

对了  是我看错了。满足删除是正确的。不用改了 谢谢

jerry3770

ykcbf1100 发表于 2024-5-24 14:20
请教一下：.Pattern = "【\d+\w[一-龥]+：\s+】"改成.Pattern = "【\w+[一-龥]+：\s+】"也行吧。

实际工作中字段复杂 不考虑用正则，谢谢您侠圣

limonet

ykcbf1100 发表于 2024-5-24 14:20
请教一下：.Pattern = "【\d+\w[一-龥]+：\s+】"改成.Pattern = "【\w+[一-龥]+：\s+】"也行吧。

要测试一下，现在外面。

longwin

有个小BUG，改动了一下：

jerry3770

longwin 发表于 2024-5-24 14:44
有个小BUG，改动了一下：

好的  老师  谢谢您修改

680926

Sub t()
arr = Split(Range("a2"), "】")
For i = 0 To UBound(arr) - 1
   k = InStr(arr(i), "：")
   If " " <> VBA.Mid(arr(i), k + 1, 1) Then
    str1 = str1 & arr(i) & "】"
   End If
Next
End Sub

usedrange

Sub t()
    Dim arr, m%, i%, k, s, b
    m = Application.WorksheetFunction.CountA([a:a])
    arr = [a2].Resize(m)
    [b2].Resize(m) = arr
    For h = 1 To m
        If m = 1 Then
            b = Mid(arr, 2, Len(arr) - 2)
        Else
            b = Mid(arr(h, 1), 2, Len(arr(h, 1)) - 2)
        End If
        p = Split(b, "】【")
        For i = 0 To UBound(p)
            If InStr(p(i), "：      ") Then
                k = "【" & p(i) & "】"
                s = Range("b" & h + 1).Replace(k, "")
            End If
        Next i
    Next h
End Sub

ykcbf1100

不用正则就用split函数吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.24
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a2].Resize(r - 1, 2)
   
4.     st = "】"
   
5.     For i = 1 To UBound(arr)
   
6.         s = Split(arr(i, 1), st)
   
7.         stt = ""
   
8.         For x = 0 To UBound(s) - 1
   
9.             b = Split(s(x), "：")
   
10.             If Len(WorksheetFunction.Trim(b(1))) > 1 Then
    
11.                 stt = stt & s(x) & st
    
12.             End If
    
13.         Next
    
14.         arr(i, 2) = stt
    
15.     Next
    
16.     [a2].Resize(r - 1, 2) = arr
    
17. End Sub
    

复制代码

LIUZHU

是这个效果吗？