1樓：匿名使用者
option base 1
sub sort()
dim r as integer
dim j as integer
dim k() as integer
dim tnum as string
r = [b65536].end(xlup).row
set d = createobject("scripting.dictionary")
j = 1
for i = 3 to r
cells(i, 2) = trim(cells(i, 2))
cells(i, 3) = trim(cells(i, 3))
if cells(i, 2) = cells(i - 1, 2) then
redim preserve k(j)
k(j) = i
j = j + 1
else
if j > 1 then
for a = k(1) - 1 to k(j - 1)
if not d.exists(cells(a, 3).text) then
d.add cells(a, 3).text, ""
tnum = tnum & "/" & cells(a, 3).text
end if
next
range("c" & k(1) - 1 & ":c" & k(j - 1)).clearcontents
range("c" & k(1) - 1 & ":c" & k(j - 1)).merge
range("c" & k(1) - 1 & ":c" & k(j - 1)) = right(tnum, len(tnum) - 1)
tnum = ""
d.removeall
end if
j = 1
end if
next
set d = nothing
end sub
2樓：小李無刀
先排序，最簡單的就是逐行判斷b列，如果本單元格內容和上一格相同，剛c列就等於上一格加上"/"再加上本列，如果不相同，就把b列內容和上面的內容寫入另一個地方，最後就ok
在excel中如何使用vba插入一個按鈕，使其點選按鈕實現在**中單元格輸入的功能
3樓：陽光上的橋
考點是靜態變數，**如下：
option explicit
sub x()
static x
x = x + 1
sheets("sheet2").range("c3") = sheets("sheet1").cells(x, 1)
end sub
在vb6.0中有個timer控制元件，但是在excel巨集中沒有此控制元件，我要想實現在excel巨集中每秒執行一次某一事件，應該怎
4樓：匿名使用者
在excel中插入一個按鈕，然後按alt+f11，插入一個模組，輸入以下**：
option explicit
public k as boolean
sub aa()
sheets("sheet1").[a65536].end(xlup).offset((len([a1]) = 0) + 1) = 100
end sub
sub ontimerun()
if k = false then
exit sub
else
call aa
end if
vba.doevents
end sub
如下圖（點選可放大）
然後雙擊sheet1，輸入以下**：
option explicit
private sub commandbutton1_click()if k = false then
k = true
commandbutton1.caption = "點選取消定時"
call ontimerun
else
k = false
commandbutton1.caption = "點選定時執行"
end if
end sub
如下圖（點選可放大）
求助高手，我想在excel2007中實現一個功能，具體如下：如點選一個人名就能彈出此人的個人資訊等情況。 100
5樓：香格里拉稻草人
這樣的要求只能用窗體來解決，上傳一個窗體示例文件，是沒有密碼的，希望能幫助你。如不太明白請扣二二五二八零九二三八
不知道這麼會事 **需要點選才能檢視
6樓：冰爽哈啤酒
1.人名及相關個人資訊錄入到一個表裡，如sheet1
2.在sheet2裡放人名列表
3.點選彈出資訊框要視你的sheet1而定。先完成sheet1後發上來再說吧
7樓：
vba，設計一個窗體，點選人名後彈出該窗體，在窗體裡可以修改資訊。
8樓：匿名使用者
將相關資料輸入在一個工作表中，在要顯示的工作表中利用vlookup函式
9樓：匿名使用者
設定一個控制元件！用觸發器可以實現！
請法律高手幫忙，請法律高手幫忙！
笑談古和今 1 abcd 縣國稅局 地稅局屬於省以下垂直管理的部門，人民銀行屬於全國範圍內實行垂直管理的機關，都應向上一級主管部門申請行政複議 局雖然實行雙重領導但複議機關職能是上一級 機關。2 b地稅局屬於省以下垂直管理的部門，應向上一級主管部門申請行政複議 題1答案 abcd 題2答案在你提供的...
請高手幫忙翻譯，請高手幫忙翻譯
靜脈曲張和毛細管擴張 蛛狀曲張靜脈是幾乎普遍.自然歷史可以在長時間地位以後從無症狀的不悅目的外表,向疼痛和重到在肢中腫塊和癢不等.表面血栓靜脈炎可以發生但是被很少因深靜脈的血栓形成或者肺的栓塞使複雜化.大靜脈曲張能造成躺在潰瘍形成,特別在年長或者使耗損致虛弱人們身上皮的和 很少 流血的上面.post...
請高手幫幫忙，請高手來幫忙
這種情況只能說明你的女朋友不好了，三年幹嘛早點向家裡人說呢？你就要主動了，又時間和你女友回家一次，讓他們看看你，這樣的話家裡人也就不會再提親了。她還是不夠愛你，她家裡的決定就是給她說的，她的表現完全決定你們的將來是不是在一起。她還有點自私了。你傻，和我一樣。不過你還是要和她站在一起，不能叫她回去，回...