1樓：歸萱
'很簡單，給你寫個測試例自己修改一下：
sub test()
dim i, j, rng
with sheet1
'-------------------下面一段給你生成的隨機數，測試用的
.[a1] = 3
.[a1].interior.colorindex = 3
.[a2] = 4
.[a2].interior.colorindex = 4
.[a3] = 6
.[a3].interior.colorindex = 6
for each rng in .range("b1:e10")
randomize
rng.value = int(rnd * 10) + 1
next
'---------------------
.range("b1:e10").interior.colorindex = xlnone
for i = 1 to .[a65536].end(xlup).row
for each rng in .range("b1:e10")
if rng.value = .cells(i, 1) and len(.
cells(i, 1)) > 0 then rng.interior.colorindex = .
cells(i, 1).interior.colorindex
next
next
end with
end sub
2樓：匿名使用者
sub 標記()
dim anum as range, bcdnum as range
dim atop, aend, colorbh as long
dim arr()
atop = range("a1").end(xldown).row
aend = range("a65536").end(xlup).row
colorbh = 2
for each anum in range("a" & atop & ":" & "a" & aend)
colorbh = colorbh + 1
anum.interior.colorindex = colorbh
for each bcdnum in range("b1:d" & atop - 1)
if anum = bcdnum then bcdnum.interior.colorindex = colorbh
next
next
end sub
專家你好，請教服從分配問題， 高考 專家你好，請教服從分配問題
我怎麼覺得會被退檔呢 如果像你說的這種錄取方式，即a,b段錄取，那麼你的分數夠了北大的提檔線，你的檔案就會被提走。而你沒有服從調劑，那麼你的檔案將會被退回。而同時吉林大學也已經結束了提檔，所以你的檔案就沒人收了，你的檔案就落到b段了也就是遼師大錄取。當然，如果吉林大學看到你的分數覺得比較高，落榜很可...
你好，請教戀愛方面的問題，你好，請教一個戀愛方面的問題
身邊應該有比較熟悉的未婚男士吧，找一個不討厭，對自己有一些好感的人，更進一步瞭解一下對方，也許會有更多感覺。還有，我覺得這些事情，不用太著急，就算是家裡著急了，也不要妥協吧，好好商量一下，並不一定這麼早。還有，說沒有喜歡過人，這可能不是真的吧。總是，慢慢來，感情的事急不得。那就多給她創造一點和別人約...
你好，請教下 批處理移動整個資料夾到對應字首的資料夾
指令碼放在需要來歸類的那些資料夾一起源後執行。echo off title 移動資料夾到對應目錄 by 依夢琴瑤 for f delims a in dir ad b do for f tokens 1 delims b in a do if not exist b md b move a b pa...