各位大神帮忙看看我这个代码是哪里错了？谢谢

huangxinyu1988

我是要取括号之前的数据，但是一直取不对，麻烦各位帮忙看看。
Sub test5()
Dim i As Integer
i = 1
Do
v = Split(Cells(i, 1), "()")
Cells(i, 2) = v(0)
i = i + 1
Loop Until Cells(i, 1) = ""
End Sub

jiaxinl

v = Split(Cells(i, 1), "()")
改成
v = Split(Replace(Cells(i, 1), "（", "("), "(")
将中文括号全部替换为英文括号再split

jiangxiaoyun

1. Sub test5()
   
2. Dim i As Integer
   
3. i = 1
   
4. Do
   
5. v = Split(Cells(i, 1), "（")
   
6. Cells(i, 2) = v(0)
   
7. i = i + 1
   
8. Loop Until Cells(i, 1) = ""
   
9. End Sub
   

复制代码

注意区分中文和英文括号

jiangxiaoyun

1. Sub test5()
   
2.     Dim i As Integer
   
3.     i = 1
   
4.     Do
   
5.         v = Split(Replace(Cells(i, 1), "（", "("), "(")
   
6.         Cells(i, 2) = v(0)
   
7.         i = i + 1
   
8.     Loop Until Cells(i, 1) = ""
   
9. End Sub
   

复制代码

将中文括号全部替换为英文括号再split

chxw68

1. Sub test5()
   
2.   Dim i As Integer
   
3.   i = 1
   
4.   Do
   
5.     Cells(i, 2) = Split(Replace(Cells(i, 1), "（", "("), "(")(0)
   
6.     i = i + 1
   
7.   Loop Until Cells(i, 1) = ""
   
8. End Sub
   

复制代码

chxw68

详见附件。

jiaxinl

发现附件中A列存在中文和英文括号都有，
建议先用查找替换，统一下括号先

smallgray

Sub test5()
Dim i As Integer
i = 1
Do
v = Split(Cells(i, 1), "（")
Cells(i, 2) = v(0)
i = i + 1
Loop Until Cells(i, 1) = ""
End Sub

huangxinyu1988

chxw68 发表于 2017-7-21 16:49
详见附件。

大哥，谢谢您，您帮我解决了2次问题了，而且你是一看就知道哪有问题，我刚想加上说明，说有括号有半角和全角的，但是您已经考虑了。

chxw68

huangxinyu1988 发表于 2017-7-21 17:06
大哥，谢谢您，您帮我解决了2次问题了，而且你是一看就知道哪有问题，我刚想加上说明，说有括号有半角和 ...

呵呵，我都记不清帮你解决几次问题了，你还记得这么清。这是个小问题，一眼就能看出来。