- 帖子
- 21
- 主題
- 2
- 精華
- 0
- 積分
- 27
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2010
- 閱讀權限
- 10
- 性別
- 男
- 來自
- Tainan
- 註冊時間
- 2012-1-3
- 最後登錄
- 2013-2-28
|
27#
發表於 2012-1-3 23:28
| 只看該作者
回復 25# fyo00241
我先將你提供的資料建立在G1:H25【cells(1,7),cells(25,8)】
再用PasteData()貼10000筆資料
因為我覺得比對的過程蠻像 Select Case ，所以Sub取名為LikeSelectCase()
你參考看看，一下子就完成了
Sub PasteData()
j = 1
For i = 1 To 10000
Cells(i, 1) = Cells(j, 7)
j = j + 1
If j = 26 Then j = 1
Next i
End Sub
Sub LikeSelectCase()
For i = 1 To 10000
Cells(i, 2) = Application.WorksheetFunction.VLookup(Cells(i, 1), Range(Cells(1, 7), Cells(25, 8)), 2, False)
Next i
End Sub
|
|
發表於 2012-1-3 20:50
| 
