Làm cách nào để tự động chèn hàng dựa trên giá trị ô trong Excel?
Chèn hàng bên dưới dựa trên giá trị ô với VBA
Chèn hàng ở trên dựa trên giá trị ô với Kutools cho Excel
Chèn hàng bên dưới dựa trên giá trị ô với VBA
Để chèn hàng dựa trên giá trị ô bằng cách chạy VBA, vui lòng thực hiện theo các bước sau:
1. nhấn Alt + F11 các phím đồng thời và Microsoft Visual Basic cho các ứng dụng cửa sổ bật ra.
2. nhấp chuột Chèn > Mô-đun, sau đó dán mã VBA bên dưới vào cửa sổ bật lên Mô-đun cửa sổ.
VBA: Chèn hàng bên dưới dựa trên giá trị ô.
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. nhấp chuột F5 chìa khóa hoặc chạy , một hộp thoại bật ra và chọn cột chứa số không. Xem ảnh chụp màn hình:
4. nhấp chuột OK. Sau đó, các hàng trống sẽ được chèn dưới giá trị XNUMX.
Mẹo:
1. Nếu bạn muốn chèn các hàng dựa trên giá trị khác, bạn có thể thay đổi 0 thành bất kỳ giá trị nào bạn muốn trong VBA: Nếu Rng.Value = "0" Thì.
2. Nếu bạn muốn chèn các hàng trên XNUMX hoặc giá trị khác, bạn có thể sử dụng mã vba bên dưới.
VBA: Chèn hàng trên giá trị XNUMX:
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
Chèn hàng ở trên dựa trên giá trị ô với Kutools cho Excel
Nếu bạn không quen với VBA, bạn có thể thử Kutools cho Excel's Chọn các ô cụ thể tiện ích, và sau đó chèn các hàng ở trên.
| Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. | ||
Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:（Tải xuống miễn phí Kutools cho Excel ngay!)
1. Chọn danh sách bạn muốn tìm các ô cụ thể từ đó và nhấp vào Kutools > Chọn > Chọn các ô cụ thể. Xem ảnh chụp màn hình:
2. Trong hộp thoại bật lên, hãy kiểm tra Toàn bộ hàng tùy chọn, và sau đó đi đến chọn equals từ Loại cụ thể danh sách, rồi nhập giá trị bạn muốn tìm vào hộp văn bản bên phải. Xem ảnh chụp màn hình:
3. nhấp chuột Okvà một hộp thoại bật ra để nhắc bạn số lượng hàng đã chọn, chỉ cần đóng nó lại.
4. Đặt con trỏ tại một hàng đã chọn và nhấp chuột phải để chọn Chèn từ menu ngữ cảnh. Xem ảnh chụp màn hình:
Bây giờ các hàng được chèn ở trên dựa trên một giá trị cụ thể.
Chèn hàng lên trên dựa trên giá trị ô
Các bài báo tương đối:
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
