批量插入多行,鼠標(biāo)操作更快?但可以受到格式影響!vba操作麻煩,但更加靈活點(diǎn)擊上方“Excel和VBA”,選擇“置頂公眾號” 致力于原創(chuàng)分享Excel的相關(guān)知識,源碼,源文件打包提供 一起學(xué)習(xí),一起進(jìn)步~~ 昨天我們學(xué)習(xí)了批量插入多列的方法,那么今天我們就來學(xué)習(xí)下如何批量插入多行的方法,其實(shí)在之后,有很多的小伙伴都在爭議,相對于鼠標(biāo)操作,VBA來執(zhí)行是否會更加的快,我在這里說下我自己的想法,如果是僅僅輸入幾行的話,鼠標(biāo)操作確實(shí)是更加的方便,那么什么情況下使用VBA執(zhí)行插入會更加的方便呢?我認(rèn)為在下面這兩個(gè)場景中VBA會方便一點(diǎn) 需要一次性插入的行數(shù)比較的多,這樣就不用去數(shù)已經(jīng)選擇了多少行或者已經(jīng)插入了多少行 在其他的VBA程序中,需要執(zhí)行插入命令,比方說添加輔助列,或者插入空行填入運(yùn)算結(jié)果的時(shí)候 上面是我自己在平時(shí)工作中一些場景的總結(jié),不知道小伙伴們是否認(rèn)同呢? 不管怎么樣,我們還是繼續(xù)來學(xué)習(xí)下今天的內(nèi)容,昨天學(xué)習(xí)了多行的插入,今天來學(xué)習(xí)下多列的插入 場景說明這個(gè)就是我們今天的簡單的數(shù)據(jù)區(qū),我們來是是實(shí)現(xiàn)下批量插入多行的效果,同樣的,我們還是結(jié)合鼠標(biāo)操作和VBA操作兩種方法一切來看看效果,畢竟方法沒有絕對,自己能夠理解,并且熟練運(yùn)用,才是最好的方法。 鼠標(biāo)操作的方式其實(shí)和批量插入多列一樣,非常的簡單,我感覺唯一的瑕疵就是插入行數(shù)多了不太方便 代碼區(qū)Sub kongh()Dim rng As Range, TargetCol$, num$Set rng = Application.InputBox("請選擇參照行", "參照行的選擇", , , , , , 8)TargetRow = rng.Rownum = Application.InputBox("請輸入要插入的行數(shù)", "行數(shù)的確定", , , , , , 3)For i = 1 To num 'Sheet1.Rows(TargetRow).Insert Sheet1.Rows(TargetRow).Insert CopyOrigin:=xlFormatFromRightOrBelowNext iEnd Sub我們來看看效果 代碼解析其實(shí)方法和昨天我們學(xué)習(xí)的利用VBA插入多列的方法是一樣的 唯一不同之處就是今天我們要插入的是多行,并且新增了一個(gè)功能,就是避免受到上面一行的格式的影響 Sheet1.Rows(TargetRow).Insert這句代碼就成功的執(zhí)行了在某一行插入一個(gè)空行的效果,不過我們今天增加了一點(diǎn)效果,要避免新增的空行被上面一行的格式所影響 所以這里我們需要增加一點(diǎn)內(nèi)容 CopyOrigin:=xlFormatFromRightOrBelow這兩段代碼合起來就可以保證我們插入的空行不會受到上面一行的格式的影響了,上面的動(dòng)圖也成功的證明了我們的效果是可以實(shí)現(xiàn)的。 ========================== |
|
|