閱： 5633 | 回： 3
等級(jí):初學(xué)者
-
積分:3
-
財(cái)富值:2.00
-
身份:普通用戶
第一個(gè)sheet1為手機(jī)號(hào)前七位對(duì)應(yīng)的省份、城市，sheet2為手機(jī)號(hào)。 希望能夠利用一段VBA代碼，將sheet2里的手機(jī)號(hào)對(duì)應(yīng)sheet1匹配出省份與城市，因?yàn)槠饺仗幚淼臄?shù)據(jù)實(shí)在太多了，所以不想用普通公式，太慢了~~ 辛苦各位高手編輯一段代碼解決這個(gè)問(wèn)題。 感謝~
懸賞：2 財(cái)富值
下載Excel文件
下載Excel文件
我的個(gè)性簽名
等級(jí):高手-
積分:117
-
財(cái)富值:1
-
身份:普通用戶
等級(jí):高手-
積分:117
-
財(cái)富值:1
-
身份:普通用戶
Sub 按鈕1_Click()
Application.ScreenUpdating = False
arr = ActiveSheet.UsedRange
For j = 2 To UBound(arr)
If Len(arr(j, 1)) = 11 Then
Set Rng = Sheets(1).Columns(1).Find(Left(arr(j, 1), 7), lookat:=xlWhole)
If Not Rng Is Nothing Then
arr(j, 2) = Rng.Offset(0, 1)
arr(j, 3) = Rng.Offset(0, 2)
End If
End If
Next j
ActiveSheet.UsedRange = arr
Application.ScreenUpdating = True
End Sub
Application.ScreenUpdating = False
arr = ActiveSheet.UsedRange
For j = 2 To UBound(arr)
If Len(arr(j, 1)) = 11 Then
Set Rng = Sheets(1).Columns(1).Find(Left(arr(j, 1), 7), lookat:=xlWhole)
If Not Rng Is Nothing Then
arr(j, 2) = Rng.Offset(0, 1)
arr(j, 3) = Rng.Offset(0, 2)
End If
End If
Next j
ActiveSheet.UsedRange = arr
Application.ScreenUpdating = True
End Sub
我的個(gè)性簽名