设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 学艺不精，又有问题了；）

数据透视表40+个常用小技巧，让你一次学会！

发新帖

查看: 1900|回复: 2

[已解决]学艺不精，又有问题了；）

发表于 2014-3-18 11:26 | 显示全部楼层 |阅读模式

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

本帖最后由 sixnu 于 2014-3-18 13:13 编辑

地址里没有省的就空着

最佳答案

月排行榜 / 总排行榜

风林火山

2014-3-18 11:51

Sub 提取省()
Dim arr, brr, k%, m%
Row = Cells(Rows.Count, 1).End(3).Row
arr = Sheets("sheet1").Range("a1:a" & Row)
brr = Sheets("省").Range("a1").CurrentRegion
For k = 2 To UBound(arr)
For m = 2 To UBound(brr)
If InStr(Left(arr(k, 1), 7), brr(m, 1)) > 0 Then
arr(k, 1) = brr(m, 1)
Exit For
End If
Next m
If m = UBound(brr) + 1 Then arr(k, 1) = ""
Next k
Sheets("sheet1").Range("e1").Resize(UBound(arr)) = arr
End Sub

复制代码

跳转到最佳答案楼层

如果地址没有省，就空着.zip

15.83 KB, 下载次数: 15

excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2014-3-18 11:42 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

本帖最后由 Zipall 于 2014-3-18 11:43 编辑

E2
=IF(ISNA(MATCH(LEFT(A2,2)&"*",省!A:A,)),"",INDEX(省!A:A,MATCH(LEFT(A2,2)&"*",省!A:A,)))
向下填充

vba的话可以用range.find

Sub 提取省()
Dim arr, brr, k%, m%
Row = Cells(Rows.Count, 1).End(3).Row
arr = Sheets("sheet1").Range("a1:a" & Row)
For k = 2 To UBound(arr)
Set t = Nothing
Set t = Sheets("省").Range("a:a").Find(Left(arr(k, 1), 2))
If t Is Nothing Then arr(k, 1) = "" Else arr(k, 1) = t.Value
Next k
Sheets("sheet1").Range("e1").Resize(UBound(arr)) = arr
End Sub

复制代码

回复

使用道具举报

发表于 2014-3-18 11:51 | 显示全部楼层本楼为最佳答案

工作中最常用的Excel函数公式，全印在一张鼠标垫上

这个最佳答案由风林火山给出，感谢风林火山的回答。

单击隐藏图章

Sub 提取省()
Dim arr, brr, k%, m%
Row = Cells(Rows.Count, 1).End(3).Row
arr = Sheets("sheet1").Range("a1:a" & Row)
brr = Sheets("省").Range("a1").CurrentRegion
For k = 2 To UBound(arr)
For m = 2 To UBound(brr)
If InStr(Left(arr(k, 1), 7), brr(m, 1)) > 0 Then
arr(k, 1) = brr(m, 1)
Exit For
End If
Next m
If m = UBound(brr) + 1 Then arr(k, 1) = ""
Next k
Sheets("sheet1").Range("e1").Resize(UBound(arr)) = arr
End Sub

复制代码

回复

使用道具举报

发新帖

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

GMT+8, 2024-5-19 23:07 , Processed in 0.232094 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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