Làm cách nào để chèn hàng trống dựa trên giá trị ô ở trên trong Excel?

Trong Excel, chèn các hàng trống là một trong những hàm thường được sử dụng nhất trong công việc hàng ngày của chúng ta. Tuy nhiên, có cách nào để chèn nhanh các hàng trống dựa trên giá trị ô ở trên như ảnh chụp màn hình bên dưới không? Bây giờ, bài viết này nói về phương pháp để nhanh chóng chèn hàng trống dựa trên các giá trị ô ở trên trong Excel.

Chèn hàng dựa trên giá trị ở trên

Chèn hàng dựa trên giá trị ở trên

Nếu bạn muốn chèn hàng trống dựa trên số ở trên, bạn có thể sử dụng mã macro.

1. Bật trang tính bạn sử dụng và nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. nhấp chuột Chèn > Mô-đunvà dán mã bên dưới vào tập lệnh.

VBA: Chèn mã trống dựa trên ô ở trên

Sub Insert() 'UpdatebyExtendoffice20170926 Dim xRg As Range Dim xAddress As String Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Chọn một phạm vi để sử dụng (một cột):", "KuTools For Excel", xAddress, , , , 8) Nếu xRg Không Có Gì Thì Thoát Sub Application.ScreenUpdating = False xLastRow = xRg(1).End(xlDown).Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count Set xRg = xRg(1) For I = xLastRow To xFstRow Step -1 xNum = Cells(I, xCol) If IsNumeric(xNum) Và xNum > 0 Sau đó là Rows(I + 1).Resize(xNum).Insert xCount = xCount + xNum Kết thúc Nếu Tiếp theo xRg.Resize(xCount, 1).Select Application.ScreenUpdating = True Kết thúc Sub

3. nhấn F5 để chạy mã và một hộp thoại bật ra để nhắc bạn chọn một danh sách để làm việc. Xem ảnh chụp màn hình:

4. nhấp chuột OK, các hàng trống đã được chèn.