Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 12878|回复: 4

[已解决]提取字符串前两位的VBA代码怎么写

[复制链接]
发表于 2014-4-15 16:31 | 显示全部楼层 |阅读模式
想提取D列单元格中字符串前两位放在A列对应单元格的VBA代码怎么写,请指教,谢谢!.
最佳答案
2014-4-15 18:58
  1. Sub Macro1()
  2. Dim arr, i&
  3. arr = Range("d2:d" & Range("d65536").End(xlUp).Row)
  4. For i = 1 To UBound(arr)
  5.     If InStr(arr(i, 1), "镇") Then arr(i, 1) = Split(arr(i, 1), "镇")(0) Else arr(i, 1) = ""
  6. Next
  7. Range("a2").Resize(UBound(arr)) = arr
  8. End Sub
复制代码

Book1.rar

3.64 KB, 下载次数: 66

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-4-15 16:39 | 显示全部楼层
不用代码,用公式。 A3=LEFT(D3,2),下拉
回复

使用道具 举报

 楼主| 发表于 2014-4-15 17:09 | 显示全部楼层
本帖最后由 KDZ 于 2014-4-15 17:11 编辑
grf1973 发表于 2014-4-15 16:39
不用代码,用公式。 A3=LEFT(D3,2),下拉


因为数据列有几千行,要的就是代码,不是函数哟
回复

使用道具 举报

发表于 2014-4-15 18:54 | 显示全部楼层
  1. Sub A()
  2.     Dim ARR, BRR(), I As Long
  3.     ARR = Range("D3:D" & Cells(Rows.Count, 4).End(3).Row)
  4.     ReDim BRR(1 To UBound(ARR), 1 To 1)
  5.     For I = 1 To UBound(ARR)
  6.         BRR(I, 1) = Left(ARR(I, 1), 2)
  7.     Next
  8.     Range("A3").Resize(UBound(ARR)).ClearContents
  9.     Range("A3").Resize(UBound(ARR)) = BRR

  10. End Sub
复制代码

Book1.rar

8.28 KB, 下载次数: 65

回复

使用道具 举报

发表于 2014-4-15 18:58 | 显示全部楼层    本楼为最佳答案   
  1. Sub Macro1()
  2. Dim arr, i&
  3. arr = Range("d2:d" & Range("d65536").End(xlUp).Row)
  4. For i = 1 To UBound(arr)
  5.     If InStr(arr(i, 1), "镇") Then arr(i, 1) = Split(arr(i, 1), "镇")(0) Else arr(i, 1) = ""
  6. Next
  7. Range("a2").Resize(UBound(arr)) = arr
  8. End Sub
复制代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 18:04 , Processed in 0.466673 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表