今天分享隔列插入空白列和批量删除空白列的方法:
隔列插入空白列:
一、ctrl方法
先看一下動圖效果
步驟一:
按住ctrl然後鼠标左鍵依次點選所有列。(不連續的選中,列中間有白線)
步驟二:
都選中之後,按住ctrl (ctrl和 号)即可隔列插入列。
這個方法同樣可以應用于隔行插入空行,有興趣的親們可以回去試試。
二、輔助行排序法:
這個動圖太大了,傳不上來,就分步驟寫吧。
步驟一:
插入一個輔助行(黃色部分)在源數據位置分别填充1:列數,步長為1。
步驟二:
在空白列的輔助行處依次填充1.5-第一步驟的最後一個數 0.5.(1.5開始是在原列的後面插入空白列,如果是要在原列的前面插入空白列,起始從0.5填寫)步長同樣為1.
這個步驟中0.5可以是一個任意的數字,隻要是0-1之間的數即可。
步驟三:排序
選中區域,點擊自定義排序
選項中選擇【按行排序】,選擇主要關鍵字為【行1】,次數為【升序】
點擊确定即可。
結果如下:
最後删掉輔助行即可。
這個方法同樣适用于隔行插入空行。
三、代碼
Sub 隔列插入列()
Dim i As Integer
For i = 9 To 2 Step -1
Columns(i).Insert
Next i
End Sub
====================分割線====================
接下來是如何批量删除空白列。
今天用的是:定位
步驟一:
全選整個工作表,然後用tab鍵将光标移動到第一個空列處位置。
定位選擇:【行内容差異單元格】定位:F5 、CTRL g
步驟二:
【開始】選項卡下【格式】→【隐藏和取消隐藏】→【隐藏列】
快捷鍵:ctrl 0 (不是小鍵盤的0)
步驟三:
全選整個工作表,【定位】-【可見單元格】
【開始】選項卡下【删除】→删除列
【開始】選項卡下【格式】→【隐藏和取消隐藏】→【取消隐藏列】
如果您有任何關于excel的問題都可以留言或者私信我們,遇到系統開發,vba編程,建模、表格設計等問題,也可以點擊後方的廣告,找我們一對一定制哦!
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!