VBA对2列数据按条件整理和替换

雪之花

如附件所示，将表3数据转成表2的格式要求：

1、C列：只删除单元格前后空格  & 删除“*”前后的空格

2、G列：只删除单元格前后空格  & 删除“,”后的空格   &  最后位0-9数值后的所有符号

拼凑的代码运行有问题，正则代码还不理解正在学习，求老师帮忙解答，万分感谢！

雪之花

哪位老师帮忙解答下，非常感谢！！！

准提部林

Sub TEST_A1()
Dim Arr, T, TT, i&, j%
Arr = Sheet3.UsedRange
For i = 2 To UBound(Arr)
    For Each T In Split(Arr(i, 3), "*")
        TT = TT & "*" & Trim(T)
    Next
    Arr(i, 3) = Mid(TT, 2): TT = ""
    '-------------------------
    For Each T In Split(Arr(i, 7), ",")
        TT = TT & "," & Trim(T)
    Next
    For j = Len(TT) To 1 Step -1
        If Mid(TT, j, 1) Like "#" Then Exit For
    Next
    Arr(i, 7) = Mid(TT, 2, j - 1): TT = ""
Next i
Sheet2.[a1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub

雪之花

准提部林 发表于 2023-3-18 16:12
Sub TEST_A1()
Dim Arr, T, TT, i&, j%
Arr = Sheet3.UsedRange

非常感谢准提部林老师帮助
若程序只在sheet3内运行，又如何更改，谢谢回复。

准提部林

雪之花 发表于 2023-3-18 19:47
非常感谢准提部林老师帮助
若程序只在sheet3内运行，又如何更改，谢谢回复。

若是要直接覆蓋原表,
將最後一行Sheet2, 改成Sheet3即可!!!

雪之花

准提部林 发表于 2023-3-18 21:50
若是要直接覆蓋原表,
將最後一行Sheet2, 改成Sheet3即可!!!

突然发现自己问了个好傻的问题，原来自己搞错表名了

雪之花

准提部林 发表于 2023-3-18 21:50
若是要直接覆蓋原表,
將最後一行Sheet2, 改成Sheet3即可!!!

老师，为什么我把sheet3改为sheet2，在sheet2内运行报错误5呢?
把sheet2改为sheet3，只有在sheet3内就正常运行不报错

准提部林

Sheet2 的 usedrange 應不只資料區, 含有空白行//
改成下二行試試
If Len(TT) > 1 Then Arr(i, 3) = Mid(TT, 2): TT = ""

If j > 0 Then Arr(i, 7) = Mid(TT, 2, j - 1): TT = ""

雪之花

准提部林 发表于 2023-3-19 21:27
Sheet2 的 usedrange 應不只資料區, 含有空白行//
改成下二行試試
If Len(TT) > 1 Then Arr(i, 3) = Mid( ...

老师帮忙看下附件，为什么C列开头的有些空格运行后删不掉，谢谢帮忙

准提部林

雪之花 发表于 2023-4-25 12:55
老师帮忙看下附件，为什么C列开头的有些空格运行后删不掉，谢谢帮忙

不可見字符
程序最後加這一行
Sheet2.Range("c:c").Replace ChrW(160), "", Lookat:=xlPart