[已解决]请教：如何用宏由A列提取出B列的内容，谢谢！

bipl607

A	B
张三强出生年月日（12） 2012-01-26 应当：2 实:0	张三强出生年月日（12）
张四强出生年月日 2012-01-26 应当：2 实:0	张四强出生年月日
李三出生年月日（123） 2012-01-26 应当：2 实:1	李三出生年月日（123））
请教老师：如何用宏由A列提取出B列的内容，谢谢！

最佳答案

月排行榜 / 总排行榜

E路人

2013-1-26 22:19

1. Sub test()
   
2.     Dim i&, arr
   
3.     arr = Range("A1:B" & [A65536].End(3).Row)
   
4.     For i = 1 To UBound(arr)
   
5.         arr(i, 2) = Left(arr(i, 1), InStr(arr(i, 1), "2012") - 1)
   
6.     Next i
   
7. [A1].Resize(UBound(arr), 2) = arr
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

E路人

1. Sub test()
   
2.     Dim i&, arr
   
3.     arr = Range("A1:B" & [A65536].End(3).Row)
   
4.     For i = 1 To UBound(arr)
   
5.         arr(i, 2) = Left(arr(i, 1), InStr(arr(i, 1), "2012") - 1)
   
6.     Next i
   
7. [A1].Resize(UBound(arr), 2) = arr
   
8. End Sub
   

复制代码

bipl607

谢谢楼上的老师，谢谢！

bipl607

老师怎么提示下标越界？？？

E路人

bipl607 发表于 2013-1-26 22:23
老师怎么提示下标越界？？？

重新复制代码，不知道为什么你最后一行 （123） ）多半边括号

bipl607

行了，谢谢楼上老师的帮助，谢谢！