Làm cách nào để di chuyển toàn bộ hàng xuống cuối trang tính hiện hoạt dựa trên giá trị ô trong Excel?
Để di chuyển toàn bộ hàng xuống cuối trang tính hiện hoạt dựa trên giá trị ô trong Excel, vui lòng thử mã VBA trong bài viết này.
Di chuyển toàn bộ hàng xuống cuối trang tính hiện hoạt dựa trên giá trị ô có mã VBA
Di chuyển toàn bộ hàng xuống cuối trang tính hiện hoạt dựa trên giá trị ô có mã VBA
Ví dụ: như ảnh chụp màn hình bên dưới được hiển thị, nếu một ô trong cột C chứa một giá trị nhất định “Xong”, thì hãy di chuyển toàn bộ hàng xuống cuối trang tính hiện tại. Hãy làm như sau.
1. nhấn Khác+ F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ.
Mã VBA: Di chuyển toàn bộ hàng xuống cuối trang tính hiện hoạt dựa trên giá trị ô
Sub MoveToEnd()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xEndRow As Long
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
xEndRow = xRg.Rows.Count + xRg.Row
Application.ScreenUpdating = False
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) = "Done" Then
xRg.Cells(I).EntireRow.Cut
Rows(xEndRow).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Chú thích: Trong mã VBA, “Thực hiện”Là giá trị ô mà bạn sẽ di chuyển toàn bộ hàng dựa trên. Bạn có thể thay đổi nó khi bạn cần.
3. Nhấn nút F5 phím để chạy mã, sau đó trong cửa sổ bật lên Kutools cho Excel hộp thoại, chọn phạm vi cột có giá trị nhất định, sau đó nhấp vào OK .
Sau khi nhấp vào OK , toàn bộ hàng có chứa giá trị “Xong” trong cột được chỉ định sẽ tự động được chuyển xuống cuối dải dữ liệu.
Các bài liên quan:
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!