Note: The other languages of the website are Google-translated. Back to English

如何基於Excel中的單元格值自動插入行?

文檔插入行基於值 1
假設您具有一定範圍的數據,並且要在Excel中自動插入高於或低於某個特定值的空白行,例如,自動插入零值以下的行,如下面的屏幕快照所示。 在Excel中,沒有直接的方法可以解決此任務,但是我可以為您介紹一個宏代碼,以便您根據Excel中的某個值自動插入行。
使用VBA根據單元格值在下面插入行

使用Kutools for Excel根據單元格值在上方插入行 好主意3

要通過運行VBA根據單元格值插入行,請執行以下步驟:

1。 按 Alt + F11鍵 同時輸入一個鍵 Microsoft Visual Basic for Applications 窗口彈出。

2。 點擊 插入 > 模塊,然後將以下VBA代碼粘貼到彈出窗口 模塊 窗口。

VBA:根據單元格值在下面插入行。

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3。 點擊 F5 鍵或 按鈕,將彈出一個對話框,然後選擇包含零的列。 看截圖:
文檔插入行基於值 2

4。 點擊 OK。 然後將在零值以下插入空白行。
文檔插入行基於值 3

尖端:

1.如果要基於其他值插入行,則可以更改 0 到您在VBA中想要的任何值: 如果Rng.Value =“ 0”,則.

2.如果要插入大於零或其他值的行,則可以使用下面的vba代碼。

VBA:在零值上方插入行:

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

文檔插入行基於值 4


如果您不熟悉VBA,可以嘗試 Excel的Kutools's 選擇特定的單元格 實用程序,然後在上面插入行。

Excel的Kutools, 與以上 300 方便的功能,使您的工作更加輕鬆。 

安裝後 Kutools for Excel,請執行以下操作:(立即免費下載Kutools for Excel!)

1.選擇要從中查找特定單元格的列表,然後單擊 庫工具 > 選擇 > 選擇特定的單元格。 看截圖:
doc基於值9插入行

2.在彈出的對話框中,選中 整行 選項,然後選擇 等於 特定類型 列表,然後在右側的文本框中輸入要查找的值。 看截圖:
doc基於值6插入行

3。 點擊 Ok,然後會彈出一個對話框,提醒您選中的行數,只需將其關閉即可。

4.將光標放在選定的一行上,然後右鍵單擊以選擇 插入 從上下文菜單中。 看截圖:
doc基於值7插入行

現在,將基於特定值在上方插入行。
doc基於值8插入行


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (43)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
我想在下面的單元格下粘貼特定內容。 怎麼做? 我想在幾列中插入值,而不是空白行。
網站主持人對此評論進行了最小化
嗨,我想根據值插入多行 例如:我想在值為 1 的單元格下方插入 2 個空白行,在值為 2 的單元格下方插入 3 行,在值為 3 的單元格下方插入 4 行等等 你能請在這件事上給予我幫助?
網站主持人對此評論進行了最小化
你有沒有得到這個答案? 我正在嘗試做同樣的事情。

有一個員工名單,他們有 # 週的假期。 我想為每週插入一行。 這將是 1、2 或 3 行,具體取決於他們獲得了多少時間。 #s 1 2 3 已經在我的電子表格中。
網站主持人對此評論進行了最小化
我想使用一個電子表格中的單元格值根據計數插入行,並在另一個電子表格中插入行。
網站主持人對此評論進行了最小化
感謝您的留言。 但是你能更詳細地描述你的問題嗎? 您要插入哪些行? 空白的? 以及您要在工作表中插入的位置? 如果可以的話,給我一些截圖。 謝謝你。
網站主持人對此評論進行了最小化
我愛你。 謝謝你。
網站主持人對此評論進行了最小化
那真是太棒了! 謝啦。
網站主持人對此評論進行了最小化
如何插入多行?
網站主持人對此評論進行了最小化
你可以試試這個 VBA

子空白行()
'Updateby20150203
昏暗範圍
將 WorkRng 調暗為範圍
將 xInsertNum 變暗
' On Error Resume Next
xTitleId = "Kutools for Excel"
設置 WorkRng = Application.Selection
設置 WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
如果 WorkRng 什麼都不是,則退出 Sub
xInsertNum = Application.InputBox("要插入的空白行數", xTitleId, Type:=1)
如果 xInsertNum = False 那麼
MsgBox "要插入的空白行數", vbInformation, xTitleId
退出小組
如果結束
設置 WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
對於 xRowIndex = xLastRow 到 1 步 -1
設置 Rng = WorkRng.Range("A" & xRowIndex)
如果Rng.Value =“ 0”,則
Rng.Resize(xInsertNum).EntireRow.Insert Shift:=xlDown
如果結束
下一頁
Application.ScreenUpdating = True
END SUB
網站主持人對此評論進行了最小化
如果你想在下面插入空白行,試試這個

子空白行()
'Updateby20150203
昏暗範圍
將 WorkRng 調暗為範圍
將 xInsertNum 變暗
' On Error Resume Next
xTitleId = "Kutools for Excel"
設置 WorkRng = Application.Selection
設置 WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
如果 WorkRng 什麼都不是,則退出 Sub
xInsertNum = Application.InputBox("要插入的空白行數", xTitleId, Type:=1)
如果 xInsertNum = False 那麼
MsgBox "要插入的空白行數", vbInformation, xTitleId
退出小組
如果結束
設置 WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
對於 xRowIndex = xLastRow 到 1 步 -1
設置 Rng = WorkRng.Range("A" & xRowIndex)
如果Rng.Value =“ 0”,則
Rng.Offset(1, 0).Resize(xInsertNum).EntireRow.Insert 移位:=xlDown
如果結束
下一頁
Application.ScreenUpdating = True
END SUB

下面是在上面插入行。
網站主持人對此評論進行了最小化
嗨 Sunny,這個宏非常適合我; 我只需要將行數更改為 30 並將 0 更改為文本:“期末餘額”。 但是現在我想將選擇的 30 行高的單元格複製粘貼到該宏剛剛插入的 30 個空白行中。 你能建議一個新的宏(或對這個宏的修改)來複製並粘貼一個範圍到每 30 個空白行中。 我已將要復制和粘貼的範圍命名為“模板”。
網站主持人對此評論進行了最小化
在這個問題上我需要很大的幫助。 我有 2 列,第 1 列我的數據時間為 01/01/2016 05:00:00,天/月/年時/分/秒,在第 2 列中是與時間相關聯的相應數據。

我的問題是我想在行之間添加數據時間,因為我有天的差距。 第一行是 1/01/01,第二行是例如 2016/2/10,所以我有 01 天。 並且該代碼對我不起作用。

期待得到一些反饋,拜託! 謝謝
網站主持人對此評論進行了最小化
你可以試試這個 VBA

子 InsertValueBetween()
'更新 20130825
將 WorkRng 調暗為範圍
昏暗範圍
Dim outArr 作為變體
Dim dic 作為變體
設置 dic = CreateObject("Scripting.Dictionary")
'錯誤繼續下一步
xTitleId = "KutoolsforExcel"
設置 WorkRng = Application.Selection
設置 WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
間隔 = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
對於 WorkRng 中的每個 Rng
dic(Rng.Value) = Rng.Offset(0, 1).Value
下一頁
For i = 0 To 區間
outArr(i + 1, 1) = i + num1
如果 dic.Exists(i + num1) 那麼
輸出數組 (i + 1, 2) = dic(i + num1)
其他
outArr(i + 1, 2) = ""
如果結束
下一頁
使用 WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
。選擇
結束
END SUB


或者如果你有 Kutools for Excel,你可以試試這個功能:
查看附件 (2 / 5)
網站主持人對此評論進行了最小化
非常感謝,我都試過了,第一個,因為我有 1 行數據,我對所有 500 行都這樣做並且什麼都不做,我認為它可能對使用的行有限制,並且例如,當我只選擇前 500 行時,它不會創建缺失的行,而是替換缺失數據的行。

我遇到的另一個問題是我的時間數據也有日/月/年 HH: MM: SS
網站主持人對此評論進行了最小化
從 2 到 3,它創建了我想要的缺失數據
查看附件 (3 / 5)
網站主持人對此評論進行了最小化
抱歉 VBA 代碼沒有幫助你,我找不到適用於日期和時間格式的方法。 如果你最終找到解決方案,你能告訴我嗎? 謝謝你。
網站主持人對此評論進行了最小化
你好,Sunny,我在編輯代碼方面取得了一些成功(我將 num1 行更改為 A2 並使用 WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2) ):


子 InsertValueBetween()
'更新 20130825
將 WorkRng 調暗為範圍
昏暗範圍
Dim outArr 作為變體
Dim dic 作為變體
設置 dic = CreateObject("Scripting.Dictionary")
'錯誤繼續下一步
xTitleId = "KutoolsforExcel"
設置 WorkRng = Application.Selection
設置 WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A2").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
間隔 = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
對於 WorkRng 中的每個 Rng
dic(Rng.Value) = Rng.Offset(0, 1).Value
下一頁
For i = 0 To 區間
outArr(i + 1, 1) = i + num1
如果 dic.Exists(i + num1) 那麼
輸出數組 (i + 1, 2) = dic(i + num1)
其他
outArr(i + 1, 2) = ""
如果結束
下一頁
使用 WorkRng.Range("A2:A100000").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
。選擇
結束
END SUB



我給你看圖表,它不能 100% 工作,因為它沒有創建從 A1 到 A2 的時間
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
這是我的問題,我猜這是一個非常困難的問題..是否有一個 vba 代碼在過濾列下方添加一個新行並將前三個單元格複製到添加的新行中並繼續這樣做直到用戶停止點擊“進入”並取消過濾過濾的單元格?
網站主持人對此評論進行了最小化
您的問題有點難和復雜,您可以將問題放在我們的論壇中,也許有人可以回答您。 https://www.extendoffice.com/forum.html
網站主持人對此評論進行了最小化
嗨,我只是想問一下如何添加行,如果代碼是當單元格已經有數據時應該添加行(這是一個有很多工作表的 excel 工作簿:) 謝謝!
網站主持人對此評論進行了最小化
也許這個 vba 代碼可以幫助你。 如果上面的行不為空,它將添加行

子幫助()
暗算只要
對於 count = ActiveSheet.UsedRange.Rows.count 到 1 步 -1
如果 Information.IsEmpty(Cells(count, 1)) = False Then Rows(count + 1).Insert
下一個計數
END SUB
網站主持人對此評論進行了最小化
嗨,當單元格中的前 4 位數字發生變化時,我正在嘗試使用此代碼輸入一行(如果可能的話)

例如,
2222A
2222B
2223K


該行將在 2222B 之後插入,因為第三個數字是 3 而不是 3

謝謝你們!
網站主持人對此評論進行了最小化
嗨,謝謝你,但是我有另一種情況,我需要在不為零的值下插入一個 cingle 單元格。 感謝任何建議。
網站主持人對此評論進行了最小化
嗨,吉娜,我只是找到在非空白單元格上方插入空白行的代碼,也許有人可以調整它以滿足您的需要。

子插入_行()
將 LR 調暗,r 只要

Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
對於 r = LR 到 1 步 -1
如果 Len(Range("A" & r).Value) > 0 那麼
行(r).插入
如果結束
下一頁ŗ的
Application.ScreenUpdating = True
END SUB

來自 https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
網站主持人對此評論進行了最小化
你好,這個很有幫助。 如果我想在下面添加兩行並且想要更多值怎麼辦。 例如,我想在值 26/04/2019 之後添加兩行,然後在 03/04/2019 之後添加兩行,然後列表繼續。 如何繼續添加到 vba? 對不起,我還是個初學者。 提前致謝。
網站主持人對此評論進行了最小化
嗨,Safa,也許你可以試試 Kutools 的插入空白行/列實用程序。
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
子空白行()
'Updateby20150203
昏暗範圍
將 WorkRng 調暗為範圍
在錯誤恢復下一頁
xTitleId = "KutoolsforExcel"
設置 WorkRng = Application.Selection
設置 WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
設置 WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
對於 xRowIndex = xLastRow 到 1 步 - 1
設置 Rng = WorkRng.Range("A" & xRowIndex)
如果Rng.Value =“ 0”,則
Rng.EntireRow.Insert 移位:= xlDown
如果結束
下一頁
Application.ScreenUpdating = True
END SUB


每次我在單元格中放入一些東西時,我都需要它來工作,並且還有更多變量。 我的意思是,如果我將 2 放入單元格中,我需要它插入 2 行而不僅僅是 1。
網站主持人對此評論進行了最小化
我需要宏根據數量列添加行,如果數量大於1,則插入行數-1。 如果數量為 5,則在其下方插入 4 行並填寫數據並將調用的數量從每行 5 更改為 1。 跳過所有數量 1。
網站主持人對此評論進行了最小化
告訴我我想根據單元格值添加特定行數的代碼。 例如,如果單元格包含數字 18,則應在我想要的位置自動添加 18 行,並且表格/單元格的其餘部分應向下移動。
網站主持人對此評論進行了最小化
非常感謝這一點,真的是一個巨大的節省時間。 是否可以添加一些代碼,允許我在新行中插入一些文本。 例如,我根據目標值“x”插入新行,然後我想在目標值“x”下方的單元格中添加文本值“y”。 這可能嗎?
網站主持人對此評論進行了最小化
你好。 該宏對我有用,但是有沒有辦法始終將範圍/參數設置為始終設置為 J 列,而輸入框根本不出現? 我希望它跳過輸入框出現的步驟。 此外,我已確保在此宏之前,我之前的宏的最後一行是 Range("J:J").Select 以確保已選擇整個 J 列。
這是我迄今為止一直在使用的。

昏暗範圍
將 WorkRng 調暗為範圍
在錯誤恢復下一頁
xTitleId = "點擊確定繼續"
設置 WorkRng = Application.Selection
設置 WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
設置 WorkRng = WorkRng.Columns(1)
發送鍵“~”
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
對於 xRowIndex = xLastRow 到 1 步 -1
設置 Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "New GMS Line" Then
Rng.EntireRow.Insert Shift:=xlDown
如果結束
下一頁


我嘗試在某些步驟之間使用 SendKeys“~”命令嘗試讓它在輸入框出現時自動按 Enter,但這也沒有奏效。 我不確定在宏中究竟在哪裡使用 SendKeys 命令,或者它是否甚至可以與輸入框一起使用!
網站主持人對此評論進行了最小化
請幫小美有一個數據。我有一個月的時間數據,因為我必鬚根據轉義時間插入一個空行
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
嗨,hr.babu08,抱歉回复晚了。 我猜您想插入空白行或為丟失的序列數據做一個標記,如果是這樣,您可以嘗試 Kutools for Excel 的 Find Missing Sequence Number 功能。這是有關該功能的教程: https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf 您需要其他方法為缺失序列插入空白行,請訪問:https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
網站主持人對此評論進行了最小化
嗨,
這個marco可以用於/改變有色細胞嗎?
我需要在每個彩色系列的末尾插入至少 10 行。
THX!
網站主持人對此評論進行了最小化
我需要為特定的單元格內容添加帶有值的特定行,但不確定如何執行此操作而無需手動執行超過 3800 行以上的操作

例如:A1 = 節點 1
我需要插入一行並輸入值 Scanner
輸入另一行並輸入值打印機
另一行具有價值 CD。
等等
網站主持人對此評論進行了最小化
嗨,克里斯,這是一個 VBA 可以幫助您在值等於 Node1 時自動插入三行(掃描儀、打印機、CD)。
Sub BlankLine()
'ByExtendoffice
Dim Rng As Range

Dim WorkRng As Range

Dim xRngI As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Select a range", xTitleId, WorkRng.Address, Type:=8)

Set WorkRng = WorkRng.Columns(1)

xLastRow = WorkRng.Rows.Count

Application.ScreenUpdating = False

For xRowIndex = xLastRow To 1 Step -1

  Set Rng = WorkRng.Range("A" & xRowIndex)

  If Rng.Value = "Node1" Then

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).Value = "Scanner"

    Rng.Offset(2, 0).Value = "Printer"

    Rng.Offset(3, 0).Value = "CD"

  End If

Next

Application.ScreenUpdating = True

End Sub

請讓我知道是否適合您。
這裡還沒有評論
載入更多
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護