Excel精英培训网

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

[已解决]提取数字并替换的问题

[复制链接]
发表于 2016-5-12 13:17 | 显示全部楼层 |阅读模式
本帖最后由 fggf 于 2016-5-12 13:57 编辑

批量提起数字.rar (1.93 KB, 下载次数: 14)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-5-12 13:57 | 显示全部楼层
公式;

批量提起数字.zip

4.34 KB, 下载次数: 4

回复

使用道具 举报

发表于 2016-5-13 11:18 | 显示全部楼层    本楼为最佳答案   
结果显示在C列,以便和B列比较。
  1. Sub tt()
  2.     arr = [a1].CurrentRegion
  3.     ReDim brr(1 To UBound(arr), 1 To 1)
  4.     For i = 2 To UBound(arr)
  5.         x = arr(i, 1)
  6.         x = Split(x, "X:")(1)
  7.         x = Val(Trim(x))
  8.         brr(i, 1) = IIf(x > 0, x, arr(i, 2))
  9.     Next
  10.     [c1].Resize(UBound(arr)) = brr
  11. End Sub
复制代码

批量提起数字.rar

9.02 KB, 下载次数: 6

回复

使用道具 举报

发表于 2016-5-13 11:44 | 显示全部楼层
  1. Sub Macro1()
  2. Dim arr, i&
  3. arr = [a2:b9]
  4. With CreateObject("vbscript.regexp")
  5.     .Pattern = "X:\d+\.?\d+"
  6.     .Global = True
  7.     For i = 1 To UBound(arr)
  8.         Set ms = .Execute(arr(i, 1))
  9.         If ms.Count > 0 Then arr(i, 1) = Replace(arr(i, 1), ms(0), "X:" & arr(i, 2))
  10.     Next
  11. End With
  12. [a2:b9] = arr
  13. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2016-5-13 15:11 | 显示全部楼层
grf1973 发表于 2016-5-13 11:18
结果显示在C列,以便和B列比较。

[em17][em23]谢谢老师
回复

使用道具 举报

 楼主| 发表于 2016-5-13 15:14 | 显示全部楼层
dsmch 发表于 2016-5-13 11:44

非常感谢,学习了
回复

使用道具 举报

 楼主| 发表于 2016-5-13 21:36 | 显示全部楼层
grf1973 发表于 2016-5-13 11:18
结果显示在C列,以便和B列比较。

老师,你好!如果我只想A2单元格才作判断,并把结果提起到D2单元格,要怎么修改呢。
回复

使用道具 举报

发表于 2016-5-16 09:54 | 显示全部楼层
只想A2单元格才作判断,并把结果提起到D2单元格
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     If Target.Address <> "$A$2" Then Exit Sub
  3.     x = Target
  4.     If InStr(x, "X:") = 0 Then Exit Sub
  5.     x = Split(x, "X:")(1)
  6.     x = Val(Trim(x))
  7.     [d2] = IIf(x > 0, x, [b2])
  8. End Sub
复制代码

批量提起数字.rar

8.18 KB, 下载次数: 4

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 22:14 , Processed in 0.403171 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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