Lỗi càng xoá dòng trắng thì dòng trắng càng nhiều

[Decepticon]

Nhờ anh em kiểm tra giúp cái file đính kèm bị lỗi gì mà không thể nào xoá bớt dòng trắng, mình thử mọi cách rồi vẫn không ăn thua T_T

 

[SA_DQ]

Bạn thử cho chạy macro sau:

Sub XoaDongTrang()
 Dim Rws As Long, J As Long, DongTrong As Long
 Dim dRng As Range
 
 Rws = Sheets("BBNT A-B").UsedRange.Rows.Count
 MsgBox Rws, , "Sô Donng Su Dung"
 For J = Rws To 7 Step -1
    If Cells(J, "B").Value = "" Then
        If dRng Is Nothing Then
            Set dRng = Rows(J & ":" & J)
        Else
            Set dRng = Union(dRng, Rows(J & ":" & J))
        End If
    End If
 Next J
 If Not dRng Is Nothing Then
    MsgBox dRng.Address, , dRng.Rows.Count
    dRng.Delete
 Else
    MsgBox "No"
 End If
 MsgBox Cells(Rws, "B").End(xlUp).Row
End Sub

 

[Decepticon]

em thử chạy mà không có tác dụng bác ạ (

p/s: em dùng Office 2010 cùi bắp

 

[lecongtoan86]

Bạn chọn cả trang tính rồi vào Home/Clear/Clear comments and note

 

[ptm0412]

em thử chạy mà không có tác dụng bác ạ (

Vì code đó chỉ xóa dòng trống bên trong dữ liệu.

Bạn chọn cả trang tính rồi vào Home/Clear/Clear comments and note

Tôi làm cách này nhưng clear all mà còn không được, delete tất cả row phía dưới cũng không được. Chú ý thanh trượt dọc nhỏ xíu, trượt đến dòng cuối dữ liệu rồi thanh trượt chỉ di chuyển có chút xíu.
Có lẽ chỉ còn cách copy dữ liệu qua sheet mới.

 

[vanle33]

@Decepticon : Xóa dòng hay xóa cột thế bạn? Ví dụ xóa những dòng số bao nhiêu, xóa những cột tên là gì?
Tôi bỏ Group / xóa tất cả các dòng đến dòng 8246 đều được hết. Trên Excel 2010 32bit.

 

[huuthang_bd]

Tôi làm cách này nhưng clear all mà còn không được, delete tất cả row phía dưới cũng không được. Chú ý thanh trượt dọc nhỏ xíu, trượt đến dòng cuối dữ liệu rồi thanh trượt chỉ di chuyển có chút xíu.
Có lẽ chỉ còn cách copy dữ liệu qua sheet mới.

Bài #4 hướng dẫn đúng rồi mà anh. Clear Comments (chứ không phải Contents).
Vùng cuộn của thanh cuộn bị kéo dài xuống dưới do comments (ở các ô B1428 và C1792) bị kéo xuống dưới.

 

[ptm0412]

Bài #4 hướng dẫn đúng rồi mà anh. Clear Comments (chứ không phải Contents).
Vùng cuộn của thanh cuộn bị kéo dài xuống dưới do comments (ở các ô B1428 và C1792) bị kéo xuống dưới.

Clear All bao gồm Clear comment mà nhỉ? À phải rồi, clear all hoặc delete chỉ uýnh các dòng trống chứ không đụng đến 2 ô đó

 

[tigertiger]

Th

Nhờ anh em kiểm tra giúp cái file đính kèm bị lỗi gì mà không thể nào xoá bớt dòng trắng, mình thử mọi cách rồi vẫn không ăn thua T_T

View attachment 304006

Thử lần lượt 5 cách sau, xem cách nào hiệu quả thì dùng

Resetting the scroll bar in Excel (5 solutions) - Excel Off The Grid

Have you ever experienced the issue where Excel's scroll bars become tiny? A small movement in the mouse can change the view by hundreds of rows or

exceloffthegrid.com

thấy cách này là hiệu quả:

In the Immediate Window, type the following and press Enter.
ActiveSheet.UsedRange

 

[befaint]

Quan điểm là không xoá.

Sub resetCommentPositions()
    Const offsetPos = 10
    Dim cmnt As Comment
    For Each cmnt In ActiveSheet.Comments
        cmnt.Shape.Top = cmnt.Parent.Top - offsetPos
        cmnt.Shape.Left = cmnt.Parent.Offset(0, 1).Left + offsetPos
    Next
End Sub

 

[Decepticon]

Bạn chọn cả trang tính rồi vào Home/Clear/Clear comments and note

Đội ơn bác rất nhiều ạ!!! trời ạ đơn giản thế mà mò mãi không ra, em bị cái sheet này hành cả tháng nay rồi )

 

[befaint]

Clear All bao gồm Clear comment mà nhỉ?

Comments nằm trong vùng có dữ liệu. Anh Clear All dòng trống phía dưới không liên quan (comment bị nhảy vị trí kéo tụt xuống dưới, còn cái gốc dễ nằm trong vùng dữ liệu)

 

[ptm0412]

Quan điểm là không xoá.

Tôi tìm thấy comment rồi (cám ơn @huuthang_bd ). Comment này đã nằm kề ô của nó, nhưng chiều cao bị giãn ra cả ngàn dòng. Nên code cần 1 câu lệnh về Width và Height nữa

 

[Decepticon]

Bạn chọn cả trang tính rồi vào Home/Clear/Clear comments and note

Bài #4 hướng dẫn đúng rồi mà anh. Clear Comments (chứ không phải Contents).
Vùng cuộn của thanh cuộn bị kéo dài xuống dưới do comments (ở các ô B1428 và C1792) bị kéo xuống dưới.

bác kiểm tra kiểu gì mà biết lỗi do Comment hay vậy ạ?

 

[huuthang_bd]

bác kiểm tra kiểu gì mà biết lỗi do Comment hay vậy ạ?

Cứ kiểm tra hết các khả năng có thể có thôi.

 

[vanle33]

Nếu là xóa Comments thì cả sheet BBNTA-B chỉ có 2 cell có comments là B1428 và C1792.
Tìm bằng cách: Mở file | nhấn F5 | nhấn Special... | chọn Comments | nhấn OK.
Để di chuyển giữa các cell đã làm bước trên thì nhấn Enter liên tục.
Xóa comments thì nhấn phải chuột vào cell | chọn Delete Comment.

 

[SA_DQ]

em thử chạy mà không có tác dụng bác ạ (
. . . .

Mình chạy trên file của bạn (O. 365) vẫn OK mà;
Thêm nửa, mình vô của sổ trung gian của VBA dùng lệnh xóa 1 dòng trống cụ thể trong vùng chứa dữ liệu vẫn OK
& nữa,là mình xài lệnh xóa toàn bộ các dòng trống dưới dòng cuối cùng có dữ liệu vẫn OK!
!!!

/(hi bạn chạy macro có thấy các MagBox cho những thông báo gí không?

 

[Decepticon]

Mình chạy trên file của bạn (O. 365) vẫn OK mà;
Thêm nửa, mình vô của sổ trung gian của VBA dùng lệnh xóa 1 dòng trống cụ thể trong vùng chứa dữ liệu vẫn OK
& nữa,là mình xài lệnh xóa toàn bộ các dòng trống dưới dòng cuối cùng có dữ liệu vẫn OK!
!!!

/(hi bạn chạy macro có thấy các MagBox cho những thông báo gí không?

lỗi do comment á bác, mình làm theo hướng dẫn của bác @lecongtoan86 ở #4 ngon lành rồi ợ