有没有Excel大神？VBA玩的666的大神求指教啊。
& & & & 工作需要经常用到Excel，最近在知乎看到一篇文章教怎么弄数据地图的觉得非常有用，文章链接是这个，，就赶紧用手边的数据试了一下。& & & & 但不试不要紧，一试出问题了，地图最后填充颜色只有一部分色块成功，不知道VBA代码还是哪里出了问题，请大神指教啊，专门整理了一篇文章叙述我遇到的问题，，也在同步问原文章的作者，希望有大神知道是怎么回事的帮我看一下，问题解决了之后也好造福广大工作上有同样需要的JRS。& & & & 我的文件上传在了百度云和新浪微盘，链接如下：& & & & & & & &&
自己顶一下，发现秒沉，难道没人理这种学术贴吗T^T
不是没人理，毕竟称得上大神的人并不多，我只是vba入门水平，然而在大多数同事眼里已经是大神了
发自手机虎扑 m.hupu.com
引用2楼 @ 发表的:
不是没人理，毕竟称得上大神的人并不多，我只是vba入门水平，然而在大多数同事眼里已经是大神了
我也是周围同事遇到excel问题都找我，可是真的越懂越觉得只会皮毛。。
真的没人吗。。。。
应该没这么难吧，我下班后帮你看看
发自手机虎扑 m.hupu.com
引用5楼 @ 发表的:
应该没这么难吧，我下班后帮你看看
太感谢了！
引用6楼 @ 发表的:
太感谢了！
客气了。自己独立做可能不会，参考着来可以试试
发自手机虎扑 m.hupu.com
引用6楼 @ 发表的:
太感谢了！
你地图上国家的名字和DATA表中国家的名字好像不是一一对应的。
Map里有格陵兰，但DATA里却没有。
知乎那个教程的第五步那张图里有提到这个
我的建议是你先将那个教程的实现一下，没有问题再根据自己的需求去添加。
引用8楼 @ 发表的:
你地图上国家的名字和DATA表中国家的名字好像不是一一对应的。
Map里有格陵兰，但DATA里却没有。
知乎那个教程的第五步那张图里有提到这个
我发现了，找到原因了，谢谢哥们儿！
引用10楼 @ 发表的:
我发现了，找到原因了，谢谢哥们儿！
就是不对应的原因？
发自手机虎扑 m.hupu.com
引用11楼 @ 发表的:
就是不对应的原因？
对，所有名字统一之后就OK了，代码没问题
您需要登录后才可以回复，请或者
2233人参加团购78.00元&199.00元
910人参加团购79.00元&269.00元
944人参加团购549.00元&899.00元
1271人参加团购499.00元&1099.00元
451人参加团购318.00元&849.00元
131人参加团购529.00元&850.00元
1073人参加团购459.00元&799.00元
238人参加团购149.00元&269.00元
131人参加团购358.00元&1099.00元
74人参加团购219.00元&699.00元
406人参加团购458.00元&790.00元
443人参加团购129.00元&469.00元Access denied | share.freesion.com used Cloudflare to restrict access
Please enable cookies.
What happened?
The owner of this website (share.freesion.com) has banned your access based on your browser's signature (b7c2e-ua98).Excel 求教vba中一个正则表达式的写法_百度知道
Excel 求教vba中一个正则表达式的写法
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
Sub test()
Dim arr() As String
Dim oRegExp As Object
Dim oMatches As Object
Dim iNum As Integer'定义正则对象'
Set oRegExp = CreateObject(&vbscript.regexp&)
Dim iRow As Integer
iRow = Sheets(1).UsedRange.Rows.Count
For ind = 1 To iRow
arr = Split(Sheets(1).Cells(ind, 1).Value, &*&)
iNum = UBound(arr) - LBound(arr)
For i = 0 To iNum
With oRegExp
.Global = True
.IgnoreCase = True
.Pattern = &[0-9]+&
Set oMatches = .Execute(arr(i))
Sheets(1).Cells(ind, i + 2).Value = oMatches(0)
Sheets(1).Cells(ind, 8).Value = Sheets(1).Cells(ind, 8).Value + CInt(oMatches(0))
Set oMatches = Nothing
NextEnd Sub
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。(我什么也不知道)
(独钓寒江雪)
第三方登录：70248 条评论分享收藏感谢收起5iyk.me ，其中有这个教程。赞同 21835 条评论分享收藏感谢收起}