亚洲视频二区_亚洲欧洲日本天天堂在线观看_日韩一区二区在线观看_中文字幕不卡一区

公告:魔扣目錄網為廣大站長提供免費收錄網站服務,提交前請做好本站友鏈:【 網站目錄:http://www.430618.com 】, 免友鏈快審服務(50元/站),

點擊這里在線咨詢客服
新站提交
  • 網站:51998
  • 待審:31
  • 小程序:12
  • 文章:1030137
  • 會員:747

有時我們需要在Excel工作表中隔行插入一個空行,假如行數較多的話,手工逐一插入空行太繁瑣。用下面的方法就可以快速隔行插入一個空行:

方法一:用輔助列

例如數據在A1:D23區域中,現在要從第2行開始隔行插入一空行。

1.在工作表的左邊插入一列,如果有現成的空列就使用該空列。

2.在A1和A2單元格分別輸入數字“1”、“2”,然后選擇A1:A2,將光標放到該區域右下角的填充柄上,當鼠標指針變成細十字形時,雙擊填充柄向下填充序列。

3.這時序列“1-23”已填充到A1:A23區域,復制該區域。

4.在A列的第一個空單元格中粘貼該序列,此處將數字“1-23”粘貼到A24:A46區域中。

5.選擇A1:A46區域中的任一單元格,單擊工具欄中升序排序按鈕“A→Z”進行排序,完成空行的插入。

6.刪除A列。

如果要隔行插入多個空行,可以將上述序列在A列中重復粘貼幾次再進行排序。

方法二 用VBA代碼

用下面的VBA代碼也可以實現隔行插入一個空行。按Alt+F11,打開VBA編輯器,在右側的代碼窗口中輸入下面的代碼:

Sub 隔行插入一行()
p = [a65536].End(xlUp).Row
For i = 2 To p * 2 Step 2
Rows(i & ":" & i).Insert Shift:=xlDown
Next i
Range("A1").Select
End Sub
Sub 恢復()
p = [a65536].End(xlUp).Row
For i = 2 To p
Rows(i & ":" & i).Delete Shift:=xlUp
Next i
Range("A1").Select
End Sub

然后關閉VBA編輯器,回到Excel窗口中,按Alt+F8,打開“宏”對話框,選擇“隔行插入一行”,單擊“執行”按鈕即可插入空行。如果要恢復插入空行前的狀態,執行“恢復”宏命令即可。

說明:運行上述VBA代碼前要確保A列中存在數據,否則不能實現隔行插入空行的目的。

分享到:
標簽:區域 插入 空行 隔行 Excel2003教程
用戶無頭像

網友整理

注冊時間:

網站:5 個   小程序:0 個  文章:12 篇

  • 51998

    網站

  • 12

    小程序

  • 1030137

    文章

  • 747

    會員

趕快注冊賬號,推廣您的網站吧!
最新入駐小程序

數獨大挑戰2018-06-03

數獨一種數學游戲,玩家需要根據9

答題星2018-06-03

您可以通過答題星輕松地創建試卷

全階人生考試2018-06-03

各種考試題,題庫,初中,高中,大學四六

運動步數有氧達人2018-06-03

記錄運動步數,積累氧氣值。還可偷

每日養生app2018-06-03

每日養生,天天健康

體育訓練成績評定2018-06-03

通用課目體育訓練成績評定