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
Chỉ cách xóa row trắng xen kẽ liên tục (1 người xem)
- Thread starter kevintoro
- Ngày gửi
Người dùng đang xem chủ đề này
feelingyes
Thành viên tiêu biểu
- Tham gia
- 24/9/07
- Bài viết
- 459
- Được thích
- 395
- Nghề nghiệp
- Economic
Bạn tham khảo đoạn code này nhé
PHP:
Sub del_row()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Dim rc As Long
rc = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Do
If Trim(Cells(rc, 1)) = "" Then
Cells(rc, 1).EntireRow.Delete Shift:=xlUp
End If
rc = rc - 1
Loop While rc > 1
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
[A1].Select
End Sub
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,960
- 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
Lần chỉnh sửa cuố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
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,960
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
Lần chỉnh sửa cuối:
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,960
Thì cứ điền công thức vào là sort thôi...
Xem file
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?
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?
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,960
Đươ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
- Tham gia
- 8/6/06
- Bài viết
- 14,611
- Được thích
- 22,931
- Nghề nghiệp
- U80
Thêm 1 tham khảo đây, xin mời
PHP:
Option Explicit
Sub 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
Loop
End SubBác này tài thật!!!
vừa hỏi cái đã làm xong ngay rồi. Quá tài!
Lần chỉnh sửa cuối:
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.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,960
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ào
Cuố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
Bạn ndu9608631 ơi đúng là vùng dữ liệu của tôi có công thức nhưng tôi đã copy-->paste special-->value sang một sheet khác rồi thì cũng coi như là dữ liệu nguồn đúng ko bạn? Tôi đã dùng thử AutoFilter theo gợi ý của bạn thì được rồi nhưng tôi vẫn còn ấm ức cái cách copy kia...
Cảm ơn bạn.
Cảm ơn bạn.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,960
Vậy bạn gửi file lên xem thử, nói rõ cách mà bạn đang làm nhưng chưa thành công ---> Biết đâu có sai sót gì đó ---> Chúng ta cùng nghiên cứu và học hỏi nhé
cop_kh
Hôm qua em đến trường...
- Tham gia
- 6/10/08
- Bài viết
- 816
- Được thích
- 985
- Nghề nghiệp
- Thợ hồ.
Các Cell của bạn không rỗng là đúng rồi, bạn thử hàm ISBLANK là sẽ rõ thôi, vì thế không Goto đến được đâu.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,960
Như tôi suy đoán, cell mà bạn nhìn thấy rổng thực chất là do công thức làm rổng, không phải tự thân nó rổng ---> 2 chuyện này hoàn toàn khác nhau --> Vì vậy bạn không thể dùng SpecialCells để xác định cell rổng được!
Với dừ liệu như thế, bạn có cách khác để lọc: dùng AutoFilter
- Quét chọn vùng dử liệu
- Vào menu Data\Filter\AutoFilter
- Bấm mũi tên xổ xuống ở cột B, chọn NonBlanks nếu muốn trích ra toàn bộ danh sách nữ
- Bấm mũi tên xổ xuống ở cột B, chọn Blanks nếu muốn trích ra toàn bộ danh sách Nam
===> Từ đây, muốn xóa dòng hay gì gì đó là việc của bạn
Xin cảm ơn hướng dẫn của 2 bạn cop_kh và bạn ndu96081631. Điều tôi băn khoăn ở đây là tại sao khi thử bằng hàm ISBLANK nó cho giá trị là FALSE (tức là cell không rỗng), còn khi dùng hàm COUNTBLANK thì nó lại tính những cell đó là rỗng, có vẻ mâu thuẫn quá! Ngoài ra có cách nào(không dùng hàm thử) để biết 1 cell rỗng bình thường hay rỗng do công thức làm rỗng không?
Chào thân ái.
Chào thân ái.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,960
Đó là quy định và định nghĩa của từng hàm (thuộc bác Bill)... bạn có thể xem lại phần trợ giúp về hàm:
Xem chổ Remark ấy!
Nói thêm: Điều bạn thắc mắc đã từng bàn luận tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=3378
Bài viết mới nhất
e cần hỗ trợ code vba từ các a chị trên đây ạ.
(1 người xem)
- Question
- Question
