[已解决]如何用VBA代码查询固定电话的归属地

liangnan1986

如何用VBA代码查固定电话归属地.rar (6.59 KB, 下载次数: 19)

2012-9-21 15:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-9-21 15:59

1. Sub test()
   
2.     Dim arr, brr, i As Long, j As Long
   
3.     arr = Sheets("区号").Range("a1").CurrentRegion
   
4.     With Sheets(1)
   
5.         brr = .Range("a1").CurrentRegion
   
6.         For i = 2 To UBound(brr)
   
7.             If brr(i, 2) = "" Then
   
8.                 For j = 2 To UBound(arr)
   
9.                     If InStr(brr(i, 1), arr(j, 1)) = 1 Then
   
10.                         brr(i, 2) = arr(j, 2)
    
11.                         brr(i, 3) = arr(j, 3)
    
12.                         Exit For
    
13.                     End If
    
14.                 Next
    
15.             End If
    
16.         Next
    
17.         .Range("a1").Resize(UBound(brr), UBound(brr, 2)).ClearContents
    
18.         .Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
19.     End With
    
20. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Sub test()
   
2.     Dim arr, brr, i As Long, j As Long
   
3.     arr = Sheets("区号").Range("a1").CurrentRegion
   
4.     With Sheets(1)
   
5.         brr = .Range("a1").CurrentRegion
   
6.         For i = 2 To UBound(brr)
   
7.             If brr(i, 2) = "" Then
   
8.                 For j = 2 To UBound(arr)
   
9.                     If InStr(brr(i, 1), arr(j, 1)) = 1 Then
   
10.                         brr(i, 2) = arr(j, 2)
    
11.                         brr(i, 3) = arr(j, 3)
    
12.                         Exit For
    
13.                     End If
    
14.                 Next
    
15.             End If
    
16.         Next
    
17.         .Range("a1").Resize(UBound(brr), UBound(brr, 2)).ClearContents
    
18.         .Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
19.     End With
    
20. End Sub

复制代码