如何用VBA清除列包含双引号的数据列

wdw102

下列表数据从系统导出，其中列数据是和否，直观看不到双引号，复制到记事本，会显示 “     是”        或者 “    否”，请问如何用VBA,清空前后字符串双引号。本人会用公式CLEAN()函数处理，也会用手工分列处理，但想用VBA直接清除较果比较理想。


最后这三列数据复制到记事本是这个样子

shiruiqiang

正则式搞一下

shiruiqiang

Sub test()
Dim rng As Range, ss, sj
Set reg = CreateObject("vbscript.regexp")
For Each rng In Range("f2:h30")
With reg
.Global = True
.Pattern = "[一-龢]"
   Set ss = .Execute(rng)
   For Each sj In ss
   rng = sj
   Next
End With
Next
End Sub

perfect131

vbtab 一行代码替换即可

wdw102

perfect131 发表于 2024-2-4 17:40
vbtab 一行代码替换即可

太历害了，大神级别。

ykcbf1100

这是表中含有不可见字符，不仅后三列，B列也是。只要清除不可见字符即可，常规的trim函数在这里不起作用。
附件供参考。。。

ykcbf1100

清除不可见字符代码。

1. Sub ykcbf()   '//2024.2.4
   
2.     Sheets("数据源").Cells.Copy Sheets("结果").[a1]
   
3.     Call 去除不可见字符(Sheets("结果").UsedRange)
   
4. End Sub
   
5. 
   
6. Function 去除不可见字符(rng As Range)
   
7.     Dim ar, i
   
8.     ar = Array(9, 10, 13, 28, 29, 30, 31, 32, 127)
   
9.     For i = 0 To UBound(ar)
   
10.         rng.Replace ChrW(ar(i)), ""
    
11.     Next
    
12.     For i = 129 To 254
    
13.         rng.Replace ChrW(i), ""
    
14.     Next
    
15.     rng.Replace " ", ""
    
16. End Function
    

复制代码

ykcbf1100

练手，用正则做一个。

ykcbf1100

练手。。。

1. Sub ykcbf()   '//2024.2.5
   
2.     Set reg = CreateObject("VBScript.Regexp")
   
3.     Sheets("数据源").Cells.Copy Sheets("结果").[a1]
   
4.     With Sheets("结果")
   
5.         Set rng = .UsedRange.Offset(1)
   
6.         With reg
   
7.             .Pattern = "\s+"
   
8.             For Each rn In rng
   
9.                 rn.Value = .Replace(rn.Value, "")
   
10.             Next
    
11.         End With
    
12.     End With
    
13. End Sub
    
14. 
    

复制代码