CÁCH XÓA DÒNG XEN KẼ TRONG EXCEL

Mình muốn hỏi anh em co cách nào lệnh or marco dùng để xóa row trắng vì dữ liệu của mình nó nhiều nhưng nó không có liên tục vd:data ở A1 A2 trắng A3 data xen kẽ như vậy,mình muốn xóa row trắng để dữ liệu được liên tục.hi vọng anh em giúp đỡ nha

Bạn đang xem: Cách xóa dòng xen kẽ trong excel

*

feelingyesThành viên tiêu biểu
*

Sub del_row()With Application .DisplayAlerts = False .ScreenUpdating = FalseEnd WithDim rc As Longrc = Cells(Cells.Rows.Count, 1).End(xlUp).RowDo If Trim(Cells(rc, 1)) = "" Then Cells(rc, 1).EntireRow.Delete Shift:=xlUp End If rc = rc - 1Loop While rc > 1With Application .DisplayAlerts = True .ScreenUpdating = TrueEnd With.SelectEnd Sub
*

ndu96081631Huyền thoại GPE
*

Mình muốn hỏi anh em co cách nào lệnh or marco dùng để xóa row trắng vì dữ liệu của mình nó nhiều nhưng nó không có liên tục vd:data ở A1 A2 trắng A3 data xen kẽ như vậy,mình muốn xóa row trắng để dữ liệu được liên tục.hi vọng anh em giúp đỡ nha
- Quét chọn cột chứa dử liệu, từ cell đầu đến cell cuối (ví dụ A1:A100
chẳng han)- Bấm Ctrl + G, chọn Special, check vào mục Blanks- Bấm Ctrl + dấu trừ (hoặc click phải vào vùng dử liệu vừa chọn, chọn mục Delete)- Tiếp theo check vào mục Entire row --> OK là xong!Hoặc bạn cũng có thể dùng AutoFilter, lọc với điều kiện Blanks cho cột dử liệu rồi xóa dòng 1 lần
kevintoroThành viên mới
*

cảm ơn các bạn nhiều nhe,mình đã làm được rồi,àh tiện đây cho mình hỏi có cách nào tự động thêm 2 cột row trắng không vd:dữ liệu A1,A2,A3 .A4 A5 row trang A6 A7 A8 data A9 A10 trắng xen kẽ như vậy,hi vọng được anh em giúp đỡ 1 lần nữa
cảm ơn các bạn nhiều nhe,mình đã làm được rồi,àh tiện đây cho mình hỏi có cách nào tự động thêm 2 cột row trắng không vd:dữ liệu A1,A2,A3 .A4 A5 row trang A6 A7 A8 data A9 A10 trắng xen kẽ như vậy,hi vọng được anh em giúp đỡ 1 lần nữa
Bằng cách tạo thêm 1 cột số thứ tự, với quy luật biến đổi hợp lý, bạn có thể Sort theo cột phụ này thì các cell rổng sẽ tự động đan xen vào dử liệu của bạn!Bạn đưa dử liệu lên đi

Xem thêm: Tổng Hợp Mẫu Bảng Tổng Hợp Doanh Thu Bán Hàng, Mẫu Báo Cáo Tổng Hợp Bán Hàng ( Tiếng Anh)

hiz mình làm theo cách của bạn mà không được mình sẽ gởi file mẫu bạn coi chỉ dùm mình nha.mình muốn tạo khoảng trắng giữa các doanh nghiệp với nhau
hiz mình làm theo cách của bạn mà không được mình sẽ gởi file mẫu bạn coi chỉ dùm mình nha.mình muốn tạo khoảng trắng giữa các doanh nghiệp với nhau
Hay quá mình làm được rồi, cảm ơn bạn ndu chuyên gia GPE!Nhưng cái này chỉ hoạt động khi muốn xuống đúng 3 dòng và thêm 2 dòng trắng. Bạn có thể đặt ô C1 là số dòng cần di chuyển xuống, D1 là số dòng trắng cần chèn thêm, và đặt công thức ở cột B dựa trên sự thay đổi của ô C1 và D1 được ko?
Hay quá mình làm được rồi, cảm ơn bạn ndu chuyên gia GPE!Nhưng cái này chỉ hoạt động khi muốn xuống đúng 3 dòng và thêm 2 dòng trắng. Bạn có thể đặt ô C1 là số dòng cần di chuyển xuống, D1 là số dòng trắng cần chèn thêm, và đặt công thức ở cột B dựa trên sự thay đổi của ô C1 và D1 được ko?
Đương nhiên... không có vấn đề (theo lý, bạn chỉ cần để ý quy luật 1 chút là có thể suy ra ngay)???Xem file
Option ExplicitSub Add2Rows() Dim Zf As Long Const DgTh = 2: Const DgDL = 3 Do If Zf = 0 Then Zf = DgDL + 1 Else Zf = Zf + DgTh + DgDL If Cells(Zf, "A").Value = "" Then Exit Do Else Cells(Zf, "A").Resize(DgTh).EntireRow.Select Selection.Insert Shift:=xlDown End If LoopEnd Sub
Đương nhiên... không có vấn đề (theo lý, bạn chỉ cần để ý quy luật 1 chút là có thể suy ra ngay)???Xem file
- Quét chọn cột chứa dử liệu, từ cell đầu đến cell cuối (ví dụ A1:A100
chẳng han)- Bấm Ctrl + G, chọn Special, check vào mục Blanks- Bấm Ctrl + dấu trừ (hoặc click phải vào vùng dử liệu vừa chọn, chọn mục Delete)- Tiếp theo check vào mục Entire row --> OK là xong!Hoặc bạn cũng có thể dùng AutoFilter, lọc với điều kiện Blanks cho cột dử liệu rồi xóa dòng 1 lần
Tôi làm theo cách này nhưng ko được bạn à.Vấn đề của tôi là sau khi lọc được tên của những người nữ trong danh sách ra rồi thì có những khoảng trắng xen kẽ trong d/s nữ đó. Tôi đã bỏ chúng đi theo cách của bạn mà không được. Trước đó tôi đã copy-->paste special-->value rồi copy d/s sang 1 sheet khác rồi xóa mà vẫn ko được, nó cứ báo "no cells were found" dù tôi đã quét chọn rồi. Có cách gì khác không bạn? Cảm ơn bạn nhiều.
Tôi làm theo cách này nhưng ko được bạn à.Vấn đề của tôi là sau khi lọc được tên của những người nữ trong danh sách ra rồi thì có những khoảng trắng xen kẽ trong d/s nữ đó. Tôi đã bỏ chúng đi theo cách của bạn mà không được. Trước đó tôi đã copy-->paste special-->value rồi copy d/s sang 1 sheet khác rồi xóa mà vẫn ko được, nó cứ báo "no cells were found" dù tôi đã quét chọn rồi. Có cách gì khác không bạn? Cảm ơn bạn nhiều.
Tôi tình nghi vùng dử liệu của bạn không có cell nào là Blank cả, mặc dù trong chúng có vẽ là rổng ---> Biết đâu trong cell có chứa công thức và đang tạm thời rổng vì điều kiện nào đó ---> 2 cái rổng này hoàn toàn khác nhau à nha!Nếu bạn không thể dùng chức năng Special Cells thì thử AutoFilter xem nàoCuối cùng, nếu vẫn không làm được thì chỉ còn nước đưa file lên mới biết nguyên nhân từ đâu