求助，要求把表中的数据都去掉隐藏的双引号

chbb6666

用查找功能可以看到单元格中有双引号，要求把表中的数据都去掉"   ",以上代码调用了函数，但数据多时较慢，VBA是否有更好的办法

shiruiqiang

https://club.excelhome.net/forum ... 351&_dsign=eb8da38b

yynrzwh

前面是tab空格
Sub test()

arr = Range("a1").CurrentRegion
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        arr(i, j) = "'" & Mid(arr(i, j), 2)
    Next
Next
Range("e1").Resize(UBound(arr), UBound(arr, 2)) = arr

End Sub

ykcbf1100

用正则方法

附件供参考。。。

ykcbf1100

用删除不可见字符法。

ykcbf1100

参与一下。。。

1. Sub 提取数字()   '//2024.2.8
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Set rng = Range("a1:c" & r)
   
4.     Dim ar, i
   
5.     ar = Array(9, 10, 13, 28, 29, 30, 31, 32, 127)
   
6.     Range("A:C").NumberFormatLocal = "@"
   
7.     For i = 0 To UBound(ar)
   
8.         rng.Replace ChrW(ar(i)), "'"
   
9.     Next
   
10.     For i = 129 To 254
    
11.         rng.Replace ChrW(i), "'"
    
12.     Next
    
13.     rng.Replace " ", "'"
    
14. End Sub
    
15. 
    

复制代码

chbb6666

ykcbf1100 发表于 2024-2-8 22:20
参与一下。。。

谢谢各位老师

阿卡夏

用分列

1. Sub test()
   
2. 
   
3. For i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
   
4.     Columns(i).TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
   
5.        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, FieldInfo _
   
6.        :=Array(Array(1, 9), Array(2, 2)), TrailingMinusNumbers:=True
   
7. Next
   
8. 
   
9. End Sub
   

复制代码