1樓：匿名使用者
右鍵點工作表標籤名稱位置，選檢視**開啟vba視窗，再複製以下**到代**視窗中：
private sub worksheet_selectionchange(byval target as range)
dim arr()
if me.range("a4") <> empty and me.range("b4") <> empty and me.range("c4") <> empty then
arr() = me.range("a2:c4").value
range("a1:c3") = arr()
range("a4:c4") = empty
end if
end sub
注意；以上**是根據你的例子編寫的，如果你實際使用的單元格區域不一樣，請在**中做相應修改。
2樓：匿名使用者
三列三行範圍
求和
如果要自動刪除第一行的話，只能用vba了。
3樓：匿名使用者
sub macro1()
range("a2:c4").selectselection.copy
range("a1").select
activesheet.paste
range("a4").select
end sub
走過路過的請都來幫忙我一下謝了，走過路過的人，都進來看看幫幫忙，大家要幫我湊齊521句我愛你 我謝謝各位了
1.跑業務,雖然業務員要吃很多苦,而且開始的錢也不多,但業務員鍛鍊的是人的意志,一般從這條路走過來的人在社會上很能吃的開，而且工資都相當的高,到後期動動口,指揮指揮就能把錢賺.入門也比較容易,開始你就不要太注重工資和獎金之類的.能混口飯吃就行,後來根據自己積累的經驗,絕對可以搞定.2.做網管,也許說...
走過路過千萬不要錯過，上聯 走過路過千萬不要錯過求下聯
聽說現在計畫生育聽說有種制度 就是兩個獨生子女結婚可以有兩個孩子！上聯 走過路過千萬不要錯過求下聯 下聯 摸了，捏了，切記勿忘買了。橫批 新鮮的蘋果哦。下聯 想事做事務必行索失去 走過路過千萬不要錯過 想到看到更重要是做到 走過路過千萬不要錯過 翻過看過萬萬不可漏過 走過路過千萬不要錯過？廣場上人多...
高速公路過路費，高速公路過路費是怎樣計算的？
安徽省高速公路即將執行交通部全國統一的收費公路車型分類行業新辦法，調整不同車型的車輛通行費收費標準。從7月1日上午8點起，省高速公路總公司所轄高速公路江北網線上合寧 合徐 連霍高速公路安徽段 合安 高界等近830公里高速公路各個收費站，將統一按照新標準收費。高速公路江南網線預計將於7月下旬執行新標準...