Chương trình Excel VBA tìm kiếm bất kỳ sự xuất hiện nào của chuỗi "Jefferson" trong cột "F" cụ thể và sao chép toàn bộ hàng đó xuống hàng bên dưới. Giữ nguyên tất cả dữ liệu.
Chào mọi người, > Tôi khá mới làm quen với VBA và đã cố gắng trong một tuần để viết chương trình tìm kiếm bất kỳ sự xuất hiện nào của chuỗi "Jefferson" trong cột cụ thể "F" và sao chép toàn bộ hàng đó xuống hàng bên dưới, giữ nguyên tất cả dữ liệu. Nhưng chương trình chỉ sao chép lần xuất hiện đầu tiên và sao chép đè lên dữ liệu ở hàng bên dưới thay vì chèn thêm hàng và sao chép vào hàng đó. Rất mong nhận được sự giúp đỡ. Cảm ơn trước. Trả lời: Hãy thử cách này. Đảm bảo bạn đang ở trên trang tính đang hoạt động khi thực hiện thao tác này. Tùy chọn rõ ràng Sub FindJeffersonAndFillDown() Dim myWS As Excel.Worksheet Dim i As Long Dim myRange As Excel.Range Dim myCell As Excel.Range Dim lRow As Long Đặt myWS = ActiveSheet lRow = myWS.Cells(myWS.Rows.Count, 6).End(xlUp).Row Đối với i = lRow đến 1 Bước -1 Đặt myCell = myWS.Cells(i, 6) Nếu LCase(myCell.Text) = "jefferson" thì Đặt myRange = myCell.Offset(1, 0).EntireRow my...