|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 公x鸡 于 2017-4-27 21:58 编辑
Sub 地方匹配()
Range("BM1").Select
ActiveCell.FormulaR1C1 = "地区识别"
Dim Wb As Workbook
Dim Temp As String
Dim d As Object
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
Temp = "C:\地区.xls"————————【B工作簿sheet1表】
Set Wb = GetObject(Temp)
With Wb.Sheets("sheet1")
Arr = .Range("A1").CurrentRegion
For I = 1 To UBound(Arr)
d(Arr(I, 1)) = Arr(I, 2)
Next
End With
Wb.Close False
Set Wb = Nothing
With Sheets("详细地址")———————【A工作簿sheet1表】
lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
Brr = .Range("a3:Z" & lastrow) '范围
For I = 1 To UBound(Brr)
Brr(I, 1) = d(Brr(I, 1))
Next
.[BM3].Resize(UBound(Brr), 1) = Application.Index(Brr, , 63)
End With
Application.ScreenUpdating = True
End Sub
举例,把【A工作簿sheet1表】中符合【B工作簿sheet1表】广州市的,在【A工作簿sheet1表】第1行第2列写上1
【A工作簿sheet1表】第1行第1列:广东省广州市天河区华南师范大学
【B工作簿sheet1表】第1行第1列:广州市;第1行第2列:数字1
学生工作太多,领导要我重新匹配统计各省市的学生人数,希望各位大大能帮帮忙谢谢,数据比较多,还包括往几届学生,学会这个我就可以重复,谢谢!
|
|