Xoá các dòng ẩn (1 người xem)

[AnhThu-1976]

Các anh/chị cho em hỏi cách xoá các dòng đang ẩn, chính xác và nhanh nhất
(Dùng cách nào cũng được)
Em cảm ơn nhiều!

 

[HUONGHCKT]

Các anh/chị cho em hỏi cách xoá các dòng đang ẩn, chính xác và nhanh nhất
(Dùng cách nào cũng được)
Em cảm ơn nhiều!

Tham khảo đoạn code sau:

Option Explicit

Sub XoaAnDong()
Dim i&, Lr&
Dim Rng As Range
Lr = Range("A10000").End(xlUp).Row
For i = 11 To Lr
 If Rows(i & ":" & i).EntireRow.Hidden = True Then
    If Rng Is Nothing Then
        Set Rng = Range("A" & i)
    Else
        Set Rng = Union(Rng, Range("A" & i))
    End If
End If
Next i
If Not Rng Is Nothing Then Rng.Delete Shift:=xlUp
MsgBox "Done"
End Sub

 

[AnhThu-1976]

Tham khảo đoạn code sau:

Option Explicit

Sub XoaAnDong()
Dim i&, Lr&
Dim Rng As Range
Lr = Range("A10000").End(xlUp).Row
For i = 11 To Lr
 If Rows(i & ":" & i).EntireRow.Hidden = True Then
    If Rng Is Nothing Then
        Set Rng = Range("A" & i)
    Else
        Set Rng = Union(Rng, Range("A" & i))
    End If
End If
Next i
If Not Rng Is Nothing Then Rng.Delete Shift:=xlUp
MsgBox "Done"
End Sub

Cảm ơn bạn rất nhiều!

 

[HeSanbi]

Xóa xong không undo được, lỡ may 1 trường hợp nào đó sai sót muốn phục hồi lại thì sao
Lập trình mã xử lý với XML mới có thể Undo, nhớ không lầm là tôi có chia sẻ đoạn mã này ở đâu đó.

Bài viết

Đăng bài trong chủ đề 'Paste dữ liệu, bỏ qua các cell ẩn'

8/1/25

@A HOANG 620
Bạn có thể thử phiên bản sao chép mảng bằng cách xử lý XML này

Gán vào một nút nhấn:

'CopyDataTable [A1:N51],[R53]'

Gán đối số, có xác định cột:

'CopyDataTable [A1:N51],[R53], ListColumns(1,3,4,5,7, 8)'

Gán đối số tùy chọn, các đối số sau mặc định đều là xóa bỏ, muốn giữ lại thì nhập vào sau:

keepFormulas - Giữ lại biểu thức​

keepRowHidden - Giữ lại dòng ẩn​

keepColumnHidden - Giữ lại cột ẩn​

keepRowMerge - Giữ lại ô đã gộp theo dòng​

keepColumnMerge - Giữ lại ô đã gộp theo cột​

keepRowBlank - Giữ lại dòng...​

• HeSanbi

• 

 

[Mr.hieudoanxd]

Xóa xong không undo được, lỡ may 1 trường hợp nào đó sai sót muốn phục hồi lại thì sao
Lập trình mã xử lý với XML mới có thể Undo, nhớ không lầm là tôi có chia sẻ đoạn mã này ở đâu đó.

Bài viết

Đăng bài trong chủ đề 'Paste dữ liệu, bỏ qua các cell ẩn'

8/1/25

@A HOANG 620
Bạn có thể thử phiên bản sao chép mảng bằng cách xử lý XML này

Gán vào một nút nhấn:

'CopyDataTable [A1:N51],[R53]'

Gán đối số, có xác định cột:

'CopyDataTable [A1:N51],[R53], ListColumns(1,3,4,5,7, 8)'

Gán đối số tùy chọn, các đối số sau mặc định đều là xóa bỏ, muốn giữ lại thì nhập vào sau:

keepFormulas - Giữ lại biểu thức​

keepRowHidden - Giữ lại dòng ẩn​

keepColumnHidden - Giữ lại cột ẩn​

keepRowMerge - Giữ lại ô đã gộp theo dòng​

keepColumnMerge - Giữ lại ô đã gộp theo cột​

keepRowBlank - Giữ lại dòng...​

• HeSanbi

• 

Bác có thể chia sẻ lại được không. Trên GPE em tìm chưa thấy ai hướng dẫn việc Undo code

 

[HeSanbi]

Có 2 cách Undo khi xử lý dữ liệu ghi vào Excel trong VBA
1. Xử lý dữ liệu và dán với phím tắt. Dữ liệu Excel trả về có 4 dạng, 1 là giá trị thô thường thấy trong trang tính Excel, 2 là biểu thức trong ô Excel, 3 là XML định dạng, 4 là XML database. Xử lý được 4 kiểu này, thì làm được rất nhiều thứ trong Excel.
Để xử lý được dữ liệu này phải biết nhiều hơn về cách Clipboard lưu trữ định dạng cấu trúc dữ liệu (gồm có xml, html, text, unicode text, rich text, ...). Biết xử lý dữ liệu Text, unicode text, XML, HTML là căn bản. Nếu không biết về Win32 API cũng khó khăn trong vấn đề xử lý dữ liệu theo cách này.

2. Lưu giữ dữ liệu vào bất kỳ đâu có thể, và tận dụng Application.OnUndo để gán một phương thức gọi lại. Cách này chỉ dành cho dữ liệu đơn giản.