一道数组练习题

weiyingde

今天接触数组，自己做了山茶花版主的一道题，代码如下，不知错在那里，请大侠指正
Sub 提取名字()
Dim wz$, brr()
wz = "朱清燕(女),林鑫,林秋静(女),林永鑫,林云艳(女),林嘉惠(女),曾文婷(女),林悦,陈诚,林伟健,赖紫岚(女),曾雁(女),赖文强,钟娟(女),张琪(女),林文彬,黄晓婷(女),李朕,林依婷(女),林佳利(女),曾德福"
xm = Split(wz, ",")
For i = LBound(xm) To UBound(xm)
ReDim brr(LBound(xm) To UBound(xm))
If InStr(xm(i), "(") <> 0 Then
   brr(i) = Left(xm(i), Application.WorksheetFunction.Find(xm(i), "(") - 1)
Else
brr(i) = xm(i)
End If
Next
Sheet2.[a1].Resize(UBound(xm), 1) = Application.WorksheetFunction.Transpose(brr)
End Sub

错在哪里

weiyingde

请大侠援手解答，我在等待……

weiyingde

再求大侠解答，不会石沉大海吧！？

蓝桥玄霜

1. Sub 提取名字()
   
2. Dim wz$, brr(), xm, i&
   
3. wz = "朱清燕(女),林鑫,林秋静(女),林永鑫,林云艳(女),林嘉惠(女),曾文婷(女),林悦,陈诚,林伟健,赖紫岚(女),曾雁(女),赖文强,钟娟(女),张琪(女),林文彬,黄晓婷(女),李朕,林依婷(女),林佳利(女),曾德福"
   
4. xm = Split(wz, ",")
   
5. ReDim brr(LBound(xm) To UBound(xm))
   
6. For i = LBound(xm) To UBound(xm)
   
7.     If InStr(xm(i), "(") <> 0 Then
   
8.         brr(i) = Left(xm(i), InStr(xm(i), "(") - 1)
   
9.     Else
   
10.         brr(i) = xm(i)
    
11.     End If
    
12. Next
    
13. Sheet2.[a1].Resize(UBound(xm), 1) = Application.WorksheetFunction.Transpose(brr)
    
14. End Sub
    

复制代码

yjh_27

2、3行代码位置对换

wzsy2_mrf

Sub 提取名字()
Dim wz$, brr()
wz = "朱清燕(女),林鑫,林秋静(女),林永鑫,林云艳(女),林嘉惠(女),曾文婷(女),林悦,陈诚,林伟健,赖紫岚(女),曾雁(女),赖文强,钟娟(女),张琪(女),林文彬,黄晓婷(女),李朕,林依婷(女),林佳利(女),曾德福"
xm = Split(wz, ",")
For i = LBound(xm) To UBound(xm)
ReDim brr(LBound(xm) To UBound(xm)) '不应该放在这里，每次循环均将brr中的数据清洗掉了
If InStr(xm(i), "(") <> 0 Then
   brr(i) = Left(xm(i), Application.WorksheetFunction.Find(xm(i), "(") - 1) '工作表函数不适用，应该用Instr
Else
brr(i) = xm(i)
End If
Next
Sheet2.[a1].Resize(UBound(xm), 1) = Application.WorksheetFunction.Transpose(brr)
End Sub

yjh_27

yjh_27 发表于 2016-9-11 09:07
2、3行代码位置对换

手机看不全，是Redim放在循环开始前

小花鹿

在循环里重新定义数组是不行的

weiyingde

蓝桥玄霜 发表于 2016-9-11 09:04

是不是不能用find函数呢？为什么？

山菊花

1、有问题不要急着发帖，先按F8。
还是得先说句，代码的排版格式很重要，论坛在这方面的讨论很多，不多说。
按F8逐行运行程序，运行到下图所示这一句时，发生错误：

错误就在这一句，是什么错误？你应该可以想到，是参数错位了，把Find()的两个参数调个位置。
心情好了一点。
2、点击“视图—本地窗口”，打开本地窗口，这里可以告诉你许多信息，比论坛来的消息要快，要准。
解决了前一问题后，发现程序还是不行。
继续按F8，循环第一遍结束，正常。接着就是这一句，运行之后，原来保存到数组的值不见了。
问题出在哪里找到了，如果多运行二三遍循环，可能你就想到解决办法了，如楼上各位的建议一样，把这一句移出循环。

3、程序中函数、方法的运用还有需要改进的地方。这不是错，经验需要积累，能力是慢慢提高的，首先保证的是程序正确运行。