Làm cách nào để chèn hàng trống phía trên văn bản cụ thể trong Excel?
Khi bạn làm việc trên một trang tính, bạn đã bao giờ cố gắng chèn hàng trống phía trên một văn bản cụ thể trong một cột chưa? Ví dụ: có một số tên trong cột A, bây giờ, tôi muốn chèn các hàng trống phía trên các ô chứa tên “Mike” như ảnh chụp màn hình bên trái được hiển thị, có thể, không có cách nào trực tiếp để bạn giải quyết công việc này trong Excel . Bài viết này, tôi sẽ nói về một số thủ thuật hay để giải quyết công việc này trong Excel.
Chèn hàng trống phía trên văn bản cụ thể bằng mã VBA
Chèn hàng trống phía trên văn bản cụ thể với Kutools cho Excel
Chèn hàng trống phía trên văn bản cụ thể bằng mã VBA
Để chèn từng hàng trống phía trên văn bản cụ thể theo cách thủ công sẽ lãng phí rất nhiều thời gian, ở đây, tôi sẽ tạo mã VBA để bạn chèn hàng trống phía trên giá trị ô cụ thể cùng một lúc.
1. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đun, rồi dán macro sau vào Mô-đun Cửa sổ.
Mã VBA: Chèn hàng trống phía trên văn bản cụ thể một cách nhanh chóng
Sub test1()
'updateby Extendoffice
Dim i As Long
Dim xLast As Long
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count > 1) Then
MsgBox "the selected range must be one column", , "Kutools for Excel"
Exit Sub
End If
xLast = xRng.Rows.Count
For i = xLast To 1 Step -1
If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
End If
Next
End Sub
3. Sau đó nhấn F5 để chạy mã này và một hộp thoại sẽ bật ra để nhắc bạn chọn dữ liệu cột chứa văn bản cụ thể mà bạn muốn chèn hàng ở trên, xem ảnh chụp màn hình:
4. Và sau đó nhấp vào OK , các hàng trống đã được chèn bên trên văn bản cụ thể “Mike”.
Chú thích: Trong đoạn mã trên, bạn có thể thay đổi giá trị văn bản “làm biếng”Sang bất kỳ giá trị nào khác mà bạn mong muốn từ tập lệnh Nếu InStr (1, xRng.Cells (i, 1) .Value, "Mike")> 0 Sau đó.
Chèn hàng trống phía trên văn bản cụ thể với Kutools cho Excel
Nếu bạn có Kutools cho Excel, Với khả Chọn các ô cụ thể tính năng, bạn có thể chọn các giá trị ô đã chỉ định trước, sau đó áp dụng tiện ích Chèn hàng trang của Excel để chèn các hàng trống cùng một lúc.
Kutools cho Excel : với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. |
Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:
1. Chọn phạm vi dữ liệu mà bạn muốn sử dụng.
2. Sau đó nhấn vào Kutools > Chọn > Chọn các ô cụ thể, xem ảnh chụp màn hình:
3. Trong Chọn các ô cụ thể hộp thoại, chọn Pin theo Loại lựa chọn, và sau đó chỉ định các tiêu chí mà bạn cần theo Loại cụ thể , trong trường hợp này, tôi sẽ chọn equals từ Loại cụ thểvà nhập tên mà tôi muốn chọn, xem ảnh chụp màn hình:
4. Sau đó nhấn vào Ok , tất cả các ô có giá trị là Mike được chọn cùng một lúc, xem ảnh chụp màn hình:
5. Sau khi chọn các ô văn bản cụ thể, vui lòng nhấp vào Trang Chủ > Chèn > Chèn hàng trang tínhvà các hàng trống sẽ được chèn phía trên văn bản đã chọn, hãy xem ảnh chụp màn hình:
Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!
Demo: Chèn hàng trống phía trên văn bản cụ thể với Kutools cho Excel
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!