一道数组练习题

山菊花

weiyingde 发表于 2016-9-11 09:21
是不是不能用find函数呢？为什么？

不是不能用find函数。
VBA有相同功能的函数，为什么不用而要用工作表函数呢？好比在客厅切西瓜，明明茶几上有水果刀，你偏要去厨房取菜刀，让人看着感到别扭。
如果不用find函数，程序看着顺眼，不说速度等问题：

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

复制代码

山菊花

如果用split()，程序会更简单一点：

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

复制代码

lujkhua

分列函数是最好的方法！

weiyingde

得到山茶花版主的指教，荣幸之至，谢谢啦！！

840205910

版主授人以渔，且谆谆善诱，有师道！

d346836673

vba  学习中

hhjjpp

首先brr(i) = Left(xm(i), Application.WorksheetFunction.Find(xm(i), "(") - 1)
要改成brr(i) = Left(xm(i), Application.WorksheetFunction.Find( "(",xm(i)) - 1)
find与instr的参数顺序是不一样的！

hhjjpp

如果是我，就用3行代码、1个变量：

1. Sub 提取名字()
   
2. Dim xm$
   
3. xm = Split(Replace("朱清燕(女),林鑫,林秋静(女),林永鑫,林云艳(女),林嘉惠(女),曾文婷(女),林悦,陈诚,林伟健,赖紫岚(女),曾雁(女),赖文强,钟娟(女),张琪(女),林文彬,黄晓婷(女),李朕,林依婷(女),林佳利(女),曾德福", "(女)", ""), ",")
   
4. Sheet2.[a1].Resize(UBound(xm)) = Application.Transpose(xm)
   
5. End Sub
   

复制代码

vfp_new

hhjjpp 发表于 2016-9-11 15:57
如果是我，就用3行代码、1个变量：

老师的程序是精简，却疏忽大意了：应该写成 dim xm 或者 dim xm() as string 吧，另外Sheet2.[a1].Resize(UBound(xm)) 应该写 Sheet2.[a1].Resize(UBound(xm) + 1)  人员名单材齐全。

hhjjpp

vfp_new 发表于 2016-9-11 20:57
老师的程序是精简，却疏忽大意了：应该写成 dim xm 或者 dim xm() as string 吧，另外Sheet2.[a1].Resize ...

确实没有测试