關於EXCEL的問題大家研究一下

1樓：匿名使用者

呵呵，按照一樓的絕對是不行的，因為它忽略了一樣東西，就是每插入一行，其實總得行數已經多了一行了，所以只能執行到一半

--------

不知道你說的第10行插入一空行是不是必須從頭開始，如果不是特別要求以下**可以：

sub insertblank()

dim counter as long

dim rowcount as long

rowcount = range("a65536").end(xlup).row

rowcount = rowcount - 9

for counter = rowcount to 10 step -10

rows(counter & ":" & counter).insert xldown

end sub

-----如果非要從頭開始---

sub insertblank2()

dim counter as long

dim rowcount as long

rowcount = range("a65536").end(xlup).row

for counter = 11 to rowcount + rowcount \ 10 step 10

rows(counter & ":" & counter).insert xldown

counter = counter + 1

end sub

2樓：

**************

謝謝樓上提醒,大意了.改了一下.

按下alt+f11,插入-模組,複製下面**.然後按f5執行.

sub insert()

a = range("a1").currentregion.rows.count

n = 11

for x = 1 to int(a / 10)rows(n & ":" & n).selectselection.insert shift:=xldownn = n + 11

end sub

3樓：匿名使用者

這樣操作試試：

設你的**b列為空列，選中b1，填入1，重新點一下b1單元格，點編輯，填充，序列，序列產生在列，等差序列，步長值1，終止值填入41680，確定。這樣就把乙個步長為1的數字序列完整的填入到了你的**中。注意，這個過程可能會有點慢。

因為你的資料確定很多。緊接著在b41681單元格輸入1，回車，再重新選中b41681單元格，點編輯，填充，序列，序列產生在列，等差序列，步長值還是1，終止值是4168，確定。隨便找乙個空單元格，填入數字10.

選中b41681至b45848，也就是你後填入序列的這些單元格，選中以後，點編輯，選擇性貼上，乘，確定。剛才的選區內的資料都被乘上了10.緊接著複製這部分成了10的區域，點編輯，選擇性貼上，數值。

刪除剛才那個填入10的單元格。

這樣操作以後，就簡單了，對b列進行排序，無論公升序還是降序，兩個10肯定會排在一起，當然也就可以實現在第十行後加一行的目的，最後，你還可以把這個有序列的b列整列刪除就可以恢復你原來**的樣子了。

4樓：匿名使用者

先確定一空列,如k列,在名稱框中輸入"k1:k41680",確定,k1:k41680被選中了,輸入"=if(mod(row(),10),"",1)",按住ctrl鍵,再按回車鍵,這時k10,k20,k30.....

就會被填上"1",再按"ctrl+g"鍵,點選"定位條件",選擇"公式",再選"數字",其它的都不要選,確定,所有的1都被選中了,在其中乙個上點選右鍵,選擇"插入",再選擇"整行",確定後就可以在第10,20,30....1000,1010.....41680行前各插入一行了,插入過程可能需要點時間,衝一杯咖啡慢慢喝吧,呵呵.

關於EXCEL的問題大家研究一下

關於excel的問題

關於excel函式的問題高手進，關於Excel乙個函式的問題高手進

關於隨禮的問題，請教一下大家，關於隨禮問題，

關於EXCEL的問題大家研究一下

關於excel的問題

關於excel函式的問題高手進，關於Excel乙個函式的問題 高手進

關於隨禮的問題，請教一下大家，關於隨禮問題，

相關推薦

關於excel函式的問題高手進，關於Excel乙個函式的問題高手進