1樓：匿名使用者
1.新增一個模組,貼上下面**
2.在工作表上新增一個窗體按鈕(即active x 按鈕)指定巨集 選這個巨集的名字即可.
sub macro1()
dim l1 as range, h1 as range
sheet1.usedrange.copy
sheet2.range("a1").pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=false
for each l1 in sheet2.range("v6:aq28").columns
if worksheetfunction.countblank(l1) = l1.rows.
count then l1.entirecolumn.hidden = true
next
for each h1 in sheet2.range("b6:b28").rows
if h1 = "" then h1.entirerow.hidden = true
next
sheet2.range("f:f,i:i,j:j,k:k").entirecolumn.hidden = true
end sub
2樓：
進哪？沒看到你要求做什麼效果。。。
英譯中（80分）80分求翻譯一長段
我沒有喝醉，但我。你去 看你，在吐了。很噁心啊。ann,在我也吐之前，你去清洗一下。ann,去清洗，我會帶。快點。快點。夠了。這氣味。我知道這氣味。michelle,讓我去。michelle,不要。我想走。等一下。不，不。michelle,看，現在全溼了。然後去開瓶水給我，ok?好的。笨，但很帥。我...
用vb編一段小程式，有追加分100分
private sub command1 click dim i as integer for i 0 to 10 presskey i next end sub private sub presskey index as integer dim t as single t timer do unt...
一段委屈的心理描寫，一段委屈的心理描寫 80字
不言也不語丶及 我默默地低下了頭，什麼也不想說，強忍著淚水 不讓它留了下來，心中的委屈真的是無人 能懂。他從來不聽我的辯解，不分青紅皁白就冤枉我 大男主主義似的，認為他做的什麼都對，而我做的什麼都是錯 就說我像一隻依附他的小鳥一樣，卻不是小鳥依人 而是給了他太多的麻煩，我對他來說似乎就像一個附屬品，...