Giúp xóa dòng trắng trong cel (1 người xem)

[duck in dark]

Chào các anh chị,
Mình có vấn đề này nghĩ không ra, mong mọi người giúp đỡ.
Trong 1 Ô CELL có cấu trúc như sau, số dòng trắng là ngẫu nhiên, A, B, C, D là các chuỗi bất kỳ, số lượng không biết trước (E, F, G, H...).

A

B


C


D

Mình muốn rút gọn thành:

A
B
C
D

Cảm ơn mọi người.

 

[saobekhonglac]

Chào các anh chị,
Mình có vấn đề này nghĩ không ra, mong mọi người giúp đỡ.
Trong 1 ô merge cel có cấu trúc như sau, số dòng trắng là ngẫu nhiên, A, B, C, D là các chuỗi bất kỳ

A

B


C


D

Mình muốn rút gọn thành:

A
B
C
D

Cảm ơn mọi người.

Nếu là Merge thì tô đen cột đó rồi chọn merge thì sẽ hết chế độ merge, sau đó lọc dòng trống và xóa là xong.

 

[duck in dark]

Nếu là Merge thì tô đen cột đó rồi chọn merge thì sẽ hết chế độ merge, sau đó lọc dòng trống và xóa là xong.

Ah ý mình nó là 1 cel đơn nhưng do dữ liệu được merge lại. Chắc do mình diễn đạt chưa đúng.

 

[huonglien1901]

Chào các anh chị,
Mình có vấn đề này nghĩ không ra, mong mọi người giúp đỡ.
Trong 1 ô cel có cấu trúc như sau, số dòng trắng là ngẫu nhiên, A, B, C, D là các chuỗi bất kỳ, số lượng không biết trước (E, F, G, H...).

A

B


C


D

Mình muốn rút gọn thành:

A
B
C
D

Cảm ơn mọi người.

Nhấn ALt+F11 rồi chọn INSERT-MODULE rồi add code này vào

Sub Delete_Empty_Rows()
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim i As Long
    For Each ws In Application.ThisWorkbook.Worksheets
    With Application
            .Calculation = xlCalculationManual
            .ScreenUpdating = False
            For i = ws.UsedRange.Rows.Count To 1 Step -1
            If WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
            ws.Rows(i).EntireRow.Delete
            End If
            Next i
            .Calculation = xlCalculationAutomatic
            .ScreenUpdating = True
        End With
        Next ws
End Sub
- rồi nhấn F5 chạy code.

 

[saobekhonglac]

Ah ý mình nó là 1 cel đơn nhưng do dữ liệu được merge lại. Chắc do mình diễn đạt chưa đúng.

Thì cách đó là áp dụng cho Merge mà.

 

[duck in dark]

Nhấn ALt+F11 rồi chọn INSERT-MODULE rồi add code này vào

Sub Delete_Empty_Rows()
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim i As Long
    For Each ws In Application.ThisWorkbook.Worksheets
    With Application
            .Calculation = xlCalculationManual
            .ScreenUpdating = False
            For i = ws.UsedRange.Rows.Count To 1 Step -1
            If WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
            ws.Rows(i).EntireRow.Delete
            End If
            Next i
            .Calculation = xlCalculationAutomatic
            .ScreenUpdating = True
        End With
        Next ws
End Sub
- rồi nhấn F5 chạy code.

Cái này là xóa dòng trắng trong 1 ô excel chứ không phải là dòng trắng trong bảng excel bạn ạ

Bài đã được tự động gộp: 6/6/19

Thì cách đó là áp dụng cho Merge mà.

Ô này k phải là ô merge đâu bạn.

 

[saobekhonglac]

Cái này là xóa dòng trắng trong 1 ô excel chứ không phải là dòng trắng trong bảng excel bạn ạ

Bài đã được tự động gộp: 6/6/19

Ô này k phải là ô merge đâu bạn.

Vậy tự làm đi hen, không đưa file mà nói cũng chẳng rõ ràng
"h ý mình nó là 1 cel đơn nhưng do dữ liệu được merge lại. Chắc do mình diễn đạt chưa đúng. "

 

[thanhdo89]

Vậy tự làm đi hen, không đưa file mà nói cũng chẳng rõ ràng
"h ý mình nó là 1 cel đơn nhưng do dữ liệu được merge lại. Chắc do mình diễn đạt chưa đúng. "

hi, bạn ơi, bạn có thể giúp mình không, mình muốn xóa tất cả các dòng trắng ở dưới, bắt đầu từ dòng 16 (điều kiện là cột D nếu ko chứa dữ liệu thì sẽ xóa dòng đấy), bạn có thể cho mình xin đoạn code ấy được ko, mình có khoảng 70 sheet, mình muốn bấm 1 lần nó sẽ xóa toàn bộ các dòng trống ở các sheet ấy. mình cảm ơn bạn nhé.

 

[be_09]

hi, bạn ơi, bạn có thể giúp mình không, mình muốn xóa tất cả các dòng trắng ở dưới, bắt đầu từ dòng 16 (điều kiện là cột D nếu ko chứa dữ liệu thì sẽ xóa dòng đấy), bạn có thể cho mình xin đoạn code ấy được ko, mình có khoảng 70 sheet, mình muốn bấm 1 lần nó sẽ xóa toàn bộ các dòng trống ở các sheet ấy. mình cảm ơn bạn nhé.

Dùng thử code sau:

Sub XoaDong()
Dim DongCuoi, ws, i As Long
DongCuoi = Cells(Rows.Count, "D").End(xlUp).Row
For ws = 1 To Worksheets.Count
    For i = DongCuoi To 3 Step -1
        If Worksheets(ws).Cells(i, "D").Text = "" Then
            Worksheets(ws).Rows(i).EntireRow.Delete
        End If
    Next i
Next ws
End Sub

 

[SA_DQ]

Dùng thử code sau:

 Dòng cuối mỗi trang không giống nhau mà; Cho nên qua từng trang tính phải xác định lại dòng cuối mới là mĩ mãm!

 

[be_09]

Dòng cuối mỗi trang không giống nhau mà; Cho nên qua từng trang tính phải xác định lại dòng cuối mới là mĩ mãm!

Em sửa code lại, anh kiểm tra thử.

Sub DeleteDong()
Dim DongCuoi, ws, i As Long
DongCuoi = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
For ws = 1 To Worksheets.Count
    For i = DongCuoi To 3 Step -1
        If Worksheets(ws).Cells(i, "D").Text = "" Then
            Worksheets(ws).Rows(i).EntireRow.Delete
        End If
    Next i
Next ws
End Sub