返回列表 上一主題 發帖

可否請各位先進幫我簡化代碼

lcc_seven

帖子
21 
主題
2 
精華
0 
積分
27 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
Tainan 
註冊時間
2012-1-3 
最後登錄
2013-2-28 
1# 跳轉到 »
發表於 2012-1-3 18:20 | 顯示全部帖子
本帖最後由 lcc_seven 於 2012-1-3 18:24 編輯

有沒有試過用Excel內建函數【VLOOKUP】，應該也蠻快的喔!

也可以把Excel內建函數寫在VBA裡，這樣程式只有短短幾行，不過語法我忘記了

缺點是工作表要有一個位置放對應表

晚上我再翻一下書把相關語法PO上來

TOP

lcc_seven

帖子
21 
主題
2 
精華
0 
積分
27 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
Tainan 
註冊時間
2012-1-3 
最後登錄
2013-2-28 
2#
發表於 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

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題