1樓：匿名使用者
alt+f11，複製進去
sub 要變成()
dim i, j, h as integer
h = sheet2.range("b65536").end(xlup).row
j = sheet2.range("a65536").end(xlup).row
sheet2.range("c2:c10000").clear
sheet2.range("a2:a" & j).copy range("c2")
for i = j to 3 step -1
if cells(i, 3) <> cells(i - 1, 3).value then
range("c" & i).insert shift:=xldown
cells(i, 3) = cells(h, 2).value
h = h - 1
end if
next
end sub
按下f5 執行
2樓：匿名使用者
在工作表插入一個activex命令按鈕，並程式設計如下：
private sub commandbutton1_click()
dim ia as integer, ib as integer, ic as integer
range("c2:c65536").clearcontents
ib = 2
range("c2").value = range("a2").value
ic = 3
for ia = 3 to range("a65536").end(xlup).row
if range("a" & ia).value = range("a" & ia - 1).value then
range("c" & ic).value = range("a" & ia).value
else
range("c" & ic).value = range("b" & ib).value
ic = ic + 1
ib = ib + 1
range("c" & ic).value = range("a" & ia).value
end if
ic = ic + 1
next ia
end sub
3樓：匿名使用者
這個不用函式的，應是用vba**。
求教各位高手尋歌一首
1 王菲 掙脫 結束吧 別留戀 心已倦 路越走越遠 你的心已不見 曾愛的分不清對錯 我以為流的淚會值得 以為我會快樂 不想再為愛失眠 讓黑夜包圍我每一天 解開心頭的怨 情己滅 說什麼都太晚 夢難圓 路已到了終點 揮手告別昨天 我放棄對你的思念 愛已像風箏斷了線 飛不回我身邊 現在才學會掙脫 掙脫對愛...
緊急！！真心向各位資料結構高手求教
這段 是用來求一個簡單數學表示式的值，node組成一個自定義的堆疊，通過比較運算子的優先順序決定計算順序，將較低優先順序的運算壓入堆疊中 你想問什麼問題?只見一篇 這樣該是你打得一個演算法吧。夠辛苦了。求教資料結構 c語言版 高手兩道題，很急！第一個 include include include ...
求教各位網路高手，思科交換機出現故障，可能是哪方面的原因
1 簡單硬體故障 會有橘色或紅色led燈，如風扇故障 電源故障 某塊板子故障等，單個埠有問題可能不會報警 2 配置問題需要看看你的配置資訊和故障描述 從iso七層模型最底層開始一層一層的排錯吧。這問題問的大了，沒有症狀，讀不知道怎麼回答你 配置思科2960 s交換機出現故障問題 10 1 先確定交換...