自動(dòng)計(jì)算位次的代碼

志愿職業(yè)規(guī)劃 2016-06-01

展開(kāi)全文

Sub 自動(dòng)查位次()
'
' 自動(dòng)查位次 Macro
'
Dim temp0
Dim temp1
Dim temp2
Dim i
For i = 1 To 280 Step 1
temp0 = Range("A" & i).Value
temp1 = Range("D:D").Find(temp0).Row
'MsgBox (temp1)
temp2 = Range("E" & temp1)
Range("B" & i).Value = temp2
Next
End Sub

嘗試成功。注意Ａ列為分?jǐn)?shù)，B列待寫(xiě)位次，C列空，D列為一分一檔表的分，E列對(duì)應(yīng)Ｄ列分的位次。

本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買(mǎi)等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊一鍵舉報(bào)。

轉(zhuǎn)藏 分享

QQ空間 QQ好友新浪微博微信

獻(xiàn)花（0） +1

來(lái)自：志愿職業(yè)規(guī)劃 > 《待分類(lèi)》

舉報(bào)/認(rèn)領(lǐng)