Code xóa toàn bộ các dòng và cột ẩn (ẩn = Filter) của tất cả các sheet trong 1 file (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
A

AnhThu-1976

Thành viên tích cực
Tham gia
17/10/14
Bài viết
1,065
Được thích
175
Thầy/cô, anh/chị cho em hỏi có Code nào xóa toàn bộ các dòng và cột ẩn của tất cả các sheet trong 1 file?
Em cảm ơn!
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
AnhThu-1976 đã viết:
Thầy/cô, anh/chị cho em hỏi có Code nào xóa toàn bộ các dòng và cột ẩn của tất cả các sheet trong 1 file?
Em cảm ơn!
Nhấp chuột vào đây để mở rộng...
Bạn thử code này xem.
Mã: 
Sub GPE()
    Dim Rng As Range, Ws As Worksheet
    
    For Each Ws In ThisWorkbook.Sheets
        For Each Rng In Ws.UsedRange
            If Rng.EntireRow.Hidden Then
                Rng.EntireRow.Delete
            ElseIf Rng.EntireColumn.Hidden Then
                Rng.EntireColumn.Delete
            End If
        Next Rng
    Next Ws
    MsgBox "Done", vbInformation, "GPE"
End Sub
 
Upvote 0
vanthinh3101 đã viết:
Bạn thử code này xem.
Mã: 
Sub GPE()
    Dim Rng As Range, Ws As Worksheet
   
    For Each Ws In ThisWorkbook.Sheets
        For Each Rng In Ws.UsedRange
            If Rng.EntireRow.Hidden Then
                Rng.EntireRow.Delete
            ElseIf Rng.EntireColumn.Hidden Then
                Rng.EntireColumn.Delete
            End If
        Next Rng
    Next Ws
    MsgBox "Done", vbInformation, "GPE"
End Sub
Nhấp chuột vào đây để mở rộng...
For Each Rng In Ws.UsedRange như vậy là vòng lập phải duyệt quá nhiều. Ví dụ vùng UsedRange có 5 cột 10 dòng, vị chi tổng số ô là 50 ===> Bạn phải duyệt 50 lần trong vòng lập
Giải pháp: Duyệt theo số cột, cột nào bị ẩn thì xóa. Tiếp theo duyệt theo số dòng, dòng nào bị ẩn thì xóa. Theo như ví dụ nêu ở trên, với vùng UsedRange có 5 cột 10 dòng thì ta chỉ cần 5 lần lập theo cột + 10 lần lập theo dòng = tổng cổng 15 lần lập
(Lưu ý: duyệt ngược từ tổng số cột hoặc dòng đến 1 Step -1)
 
Upvote 0
Ứng dụng code ở bài # 2 cho file có khoảng 30 sheet thì thấy code chạy hoài không ra kết quả!
Để giới hạn lại số dòng hay cột ẩn khi chạy code thì số dòng trong các sheet không quá 5.000 dòng và số cột thì không quá cột CZ
 
Upvote 0
AnhThu-1976 đã viết:
Ứng dụng code ở bài # 2 cho file có khoảng 30 sheet thì thấy code chạy hoài không ra kết quả!
Để giới hạn lại số dòng hay cột ẩn khi chạy code thì số dòng trong các sheet không quá 5.000 dòng và số cột thì không quá cột CZ
Nhấp chuột vào đây để mở rộng...
Dùng UsedRange thì tự Excel nó biết đâu là giới hạn rồi đó bạn
 
Upvote 0
AnhThu-1976 đã viết:
Thầy/cô, anh/chị cho em hỏi có Code nào xóa toàn bộ các dòng và cột ẩn của tất cả các sheet trong 1 file?
Em cảm ơn!
Nhấp chuột vào đây để mở rộng...
Không bàn đến code, tôi có 1 thắc mắc rằng: Lý do gì bạn phải xóa những cells ẩn thay vì cho hiện nó ra? Việc xóa dòng, cột trong bảng tính đôi khi ảnh hướng nghiêm trọng đến các liên kết công thức nên bạn phải thật cẩn thận. Bởi macro đã chạy là không có chuyện Undo được đâu
 
Upvote 0
AnhThu-1976 đã viết:
Ứng dụng code ở bài # 2 cho file có khoảng 30 sheet thì thấy code chạy hoài không ra kết quả!
Để giới hạn lại số dòng hay cột ẩn khi chạy code thì số dòng trong các sheet không quá 5.000 dòng và số cột thì không quá cột CZ
Nhấp chuột vào đây để mở rộng...
Viết theo ý bài #3, bạn chạy thử xem:
PHP: 
Public Sub GPE()
Dim Ws As Worksheet, Col As Long, Rws As Long, I As Long
For Each Ws In ThisWorkbook.Worksheets
    With Ws
        Col = .UsedRange.Columns.Count
        Rws = .UsedRange.Rows.Count
        For I = Col To 1 Step -1
            If .Cells(1, I).EntireColumn.Hidden = True Then .Cells(1, I).EntireColumn.Delete
        Next I
        For I = Rws To 1 Step -1
            If .Cells(I, 1).EntireRow.Hidden = True Then .Cells(I, 1).EntireRow.Delete
        Next I
    End With
Next Ws
End Sub
 
Upvote 0
ndu96081631 đã viết:
Lý do gì bạn phải xóa những cells ẩn thay vì cho hiện nó ra?
Nhấp chuột vào đây để mở rộng...
Em hay kết xuất 1 số sheet gởi cho khách hàng, các sheet này em ẩn đi những gì không cần thiết (tính toán phụ), nhưng khi họ mở file ra và unhide thì họ thắc mắc!
Và cũng có nhiều người thắc mắc tại sao không xóa nó đi mà che lại!...
ndu96081631 đã viết:
Việc xóa dòng, cột trong bảng tính đôi khi ảnh hưởng nghiêm trọng đến các liên kết công thức nên bạn phải thật cẩn thận.
Nhấp chuột vào đây để mở rộng...
Vì các dòng và cột ẩn là tính toán phụ trợ (ví dụ kiểm tra số liệu trên bản chính có đúng không) nên nó sẽ không ảnh hưởng gì hết ạ.
 
Upvote 0
AnhThu-1976 đã viết:
Em hay kết xuất 1 số sheet gởi cho khách hàng, các sheet này em ẩn đi những gì không cần thiết (tính toán phụ), nhưng khi họ mở file ra và unhide thì họ thắc mắc!
Và cũng có nhiều người thắc mắc tại sao không xóa nó đi mà che lại!...

Vì các dòng và cột ẩn là tính toán phụ trợ (ví dụ kiểm tra số liệu trên bản chính có đúng không) nên nó sẽ không ảnh hưởng gì hết ạ.
Nhấp chuột vào đây để mở rộng...
Người ta phải giữ bản gốc lại làm chứng. Chỉ copy phần không ẩn sang file khác thôi.
 
Upvote 0
AnhThu-1976 đã viết:
Em gởi file đính kèm
Nhấp chuột vào đây để mở rộng...
Bạn đảo thứ tự xóa dòng trước xem sao, không biết trong mấy cái "ẩn" của bạn có gì.
PHP: 
        For I = Rws To 1 Step -1
            If .Cells(I, 1).EntireRow.Hidden = True Then .Cells(I, 1).EntireRow.Delete
        Next I
        For I = Col To 1 Step -1
            If .Cells(1, I).EntireColumn.Hidden = True Then .Cells(1, I).EntireColumn.Delete
        Next I
 
Lần chỉnh sửa cuối:
Upvote 0
AnhThu-1976 đã viết:
Em gởi file đính kèm
Nhấp chuột vào đây để mở rộng...
File đang ở chế độ filter chứ đâu phải ẩn gì chứ. Thêm cái ShowAllData vào:
Mã: 
Public Sub GPE()
Dim Ws As Worksheet, Col As Long, Rws As Long, I As Long
For Each Ws In ThisWorkbook.Worksheets
    With Ws
      If .FilterMode = True Then .ShowAllData
        Col = .UsedRange.Columns.Count
        Rws = .UsedRange.Rows.Count
        For I = Col To 1 Step -1
            If .Cells(1, I).EntireColumn.Hidden = True Then .Cells(1, I).EntireColumn.Delete
        Next I
        For I = Rws To 1 Step -1
            If .Cells(I, 1).EntireRow.Hidden = True Then .Cells(I, 1).EntireRow.Delete
        Next I
    End With
Next Ws
End Sub
 
Upvote 0
ndu96081631 đã viết:
File đang ở chế độ filter chứ đâu phải ẩn gì chứ. Thêm cái ShowAllData vào:
Mã: 
Public Sub GPE()
Dim Ws As Worksheet, Col As Long, Rws As Long, I As Long
For Each Ws In ThisWorkbook.Worksheets
    With Ws
      If .FilterMode = True Then .ShowAllData
        Col = .UsedRange.Columns.Count
        Rws = .UsedRange.Rows.Count
        For I = Col To 1 Step -1
            If .Cells(1, I).EntireColumn.Hidden = True Then .Cells(1, I).EntireColumn.Delete
        Next I
        For I = Rws To 1 Step -1
            If .Cells(I, 1).EntireRow.Hidden = True Then .Cells(I, 1).EntireRow.Delete
        Next I
    End With
Next Ws
End Sub
Nhấp chuột vào đây để mở rộng...
Híc! Cắm đầu vào code mà không xem file.
Yêu cầu xóa dòng ẩn "phá sản", chẳng có dòng nào bị Hide.
 
Upvote 0
ndu96081631 đã viết:
Nếu là yêu cầu "XÓA NHỮNG DÒNG ẨN DO FILTER" thì đó lại là bài toán hoàn toàn khác + code khác
Nhấp chuột vào đây để mở rộng...
Vì em nghỉ Filter để ẩn dòng thì nó # ẩn dòng, nên em mới hỏi
Xin lỗi vì đã làm mất thời gian của các thầy & anh
Vậy cho em hỏi có cách nào xóa các dòng hoặc cột mà đã ẩn = Filter không ạ!
 
Upvote 0
AnhThu-1976 đã viết:
Vì em nghỉ Filter để ẩn dòng thì nó # ẩn dòng, nên em mới hỏi
Nhấp chuột vào đây để mở rộng...
thì đúng là nó khác mà
AnhThu-1976 đã viết:
Vậy cho em hỏi có cách nào xóa các dòng hoặc cột mà đã ẩn = Filter không ạ!
Nhấp chuột vào đây để mở rộng...
Code theo nguyên tắc:
- Xét xem sheet có ở chế độ filter không, nếu không có thì thoát
- Set vùng đang hiện vào 1 biến (rngFilter chẳng hạn)
- ShowAll data
- Ẩn vùng rngFilter
- Xóa phần còn lại trên bảng tính
- Cho hiện tất cả
Xong
(Tức là đảo ngược quá trình: vùng đang hiện thì ta cho ẩn và vùng đang ẩn thì cho hiện ra. Xong xóa thằng đang hiện)
 
Upvote 0
AnhThu-1976 đã viết:
Vì em nghỉ Filter để ẩn dòng thì nó # ẩn dòng, nên em mới hỏi
Xin lỗi vì đã làm mất thời gian của các thầy & anh
Vậy cho em hỏi có cách nào xóa các dòng hoặc cột mà đã ẩn = Filter không ạ!
Nhấp chuột vào đây để mở rộng...
Chạy code
Mã: 
Sub GPE()
  Dim Ws As Worksheet, i As Long
  Dim cRng As Range, rRng As Range
  For Each Ws In ThisWorkbook.Worksheets
    With Ws.UsedRange
      For i = 1 To .Columns.Count
        If .Cells(1, i).EntireColumn.Hidden = True Then
          If cRng Is Nothing Then Set cRng = .Cells(1, i) Else Set cRng = Union(cRng, .Cells(1, i))
        End If
      Next i
      For i = 1 To .Rows.Count
        If .Cells(i, 1).EntireRow.Hidden = True Then
          If rRng Is Nothing Then Set rRng = .Cells(i, 1) Else Set rRng = Union(rRng, .Cells(i, 1))
        End If
      Next i
      If Ws.FilterMode = True Then Ws.ShowAllData
      If Not cRng Is Nothing Then cRng.EntireColumn.Delete: Set cRng = Nothing
      If Not rRng Is Nothing Then rRng.EntireRow.Delete: Set rRng = Nothing
    End With
  Next Ws
End Sub
 
Upvote 0
HieuCD đã viết:
Chạy code
Mã: 
Sub GPE()
  Dim Ws As Worksheet, i As Long
  Dim cRng As Range, rRng As Range
  For Each Ws In ThisWorkbook.Worksheets
    With Ws.UsedRange
      For i = 1 To .Columns.Count
        If .Cells(1, i).EntireColumn.Hidden = True Then
          If cRng Is Nothing Then Set cRng = .Cells(1, i) Else Set cRng = Union(cRng, .Cells(1, i))
        End If
      Next i
      For i = 1 To .Rows.Count
        If .Cells(i, 1).EntireRow.Hidden = True Then
          If rRng Is Nothing Then Set rRng = .Cells(i, 1) Else Set rRng = Union(rRng, .Cells(i, 1))
        End If
      Next i
      If Ws.FilterMode = True Then Ws.ShowAllData
      If Not cRng Is Nothing Then cRng.EntireColumn.Delete: Set cRng = Nothing
      If Not rRng Is Nothing Then rRng.EntireRow.Delete: Set rRng = Nothing
    End With
  Next Ws
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn cho hỏi thêm có cách nào xóa luôn các dòng hay cột đang Group (đang Group, nghĩa là đang ở chế độ hide )không?
 
Upvote 0
AnhThu-1976 đã viết:
Bạn cho hỏi thêm có cách nào xóa luôn các dòng hay cột đang Group (đang Group, nghĩa là đang ở chế độ hide )không?
Nhấp chuột vào đây để mở rộng...
Bạn thử:
PHP: 
Sub Del_Rows()
    Dim i, LR, Rng
    Set Rng = ActiveSheet.UsedRange
    LR = Rng.Rows.Count
    For i = 1 To LR
        If Rng.Rows(i).OutlineLevel > 1 Then
            Rng.Rows(i).EntireRow.Delete
            i = i - 1
        End If
    Next
End Sub
Sub Del_Colums()
    Dim i, LC, Rng
    Set Rng = ActiveSheet.UsedRange
    LC = Rng.Columns.Count
    For i = 1 To LC
        If Rng.Columns(i).OutlineLevel > 1 Then
            Rng.Columns(i).EntireColumn.Delete
            i = i - 1
        End If
    Next
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
HieuCD đã viết:
Chạy code
Mã: 
Sub GPE()
  Dim Ws As Worksheet, i As Long
  Dim cRng As Range, rRng As Range
  For Each Ws In ThisWorkbook.Worksheets
    With Ws.UsedRange
      For i = 1 To .Columns.Count
        If .Cells(1, i).EntireColumn.Hidden = True Then
          If cRng Is Nothing Then Set cRng = .Cells(1, i) Else Set cRng = Union(cRng, .Cells(1, i))
        End If
      Next i
      For i = 1 To .Rows.Count
        If .Cells(i, 1).EntireRow.Hidden = True Then
          If rRng Is Nothing Then Set rRng = .Cells(i, 1) Else Set rRng = Union(rRng, .Cells(i, 1))
        End If
      Next i
      If Ws.FilterMode = True Then Ws.ShowAllData
      If Not cRng Is Nothing Then cRng.EntireColumn.Delete: Set cRng = Nothing
      If Not rRng Is Nothing Then rRng.EntireRow.Delete: Set rRng = Nothing
    End With
  Next Ws
End Sub
Nhấp chuột vào đây để mở rộng...
Thật ra với gợi ý ở bài trên của mình thì không cần phải for next gì cả
 
Upvote 0
ndu96081631 đã viết:
Thật ra với gợi ý ở bài trên của mình thì không cần phải for next gì cả
Nhấp chuột vào đây để mở rộng...
Cách nầy rất hay, tính để cho bạn ra tay cho trọn vẹn :) . Bạn gợi ý nên mình viết luôn
Mã: 
Sub GPE()
  Dim Ws As Worksheet, i As Long
  Dim Rng As Range, tmpRng As Range
  On Error Resume Next
  For Each Ws In ThisWorkbook.Worksheets
    With Ws.UsedRange
      Set Rng = .SpecialCells(xlCellTypeVisible)
      If Ws.FilterMode = True Then Ws.ShowAllData
      .EntireColumn.Hidden = False
      Rng.EntireRow.Hidden = False
      
      Rng.EntireColumn.Hidden = True
      .SpecialCells(xlCellTypeVisible).EntireColumn.Delete
      Rng.EntireColumn.Hidden = False
      
      Rng.EntireRow.Hidden = True
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      Rng.EntireRow.Hidden = False
    End With
  Next Ws
  On Error GoTo 0
End Sub
 
Upvote 0
phulien1902 đã viết:
Bạn thử:
PHP: 
Sub Del_Rows()
    Dim i, LC, Rng
    Set Rng = ActiveSheet.UsedRange
    LR = Rng.Rows.Count
    For i = 1 To LR
        If Rng.Rows(i).OutlineLevel > 1 Then
            Rng.Rows(i).EntireRow.Delete
            i = i - 1
        End If
    Next
End Sub
Sub Del_Colums()
    Dim i, LC, Rng
    Set Rng = ActiveSheet.UsedRange
    LC = Rng.Columns.Count
    For i = 1 To LC
        If Rng.Columns(i).OutlineLevel > 1 Then
            Rng.Colums(i).EntireColumn.Delete
            i = i - 1
        End If
    Next
End Sub
Nhấp chuột vào đây để mở rộng...
Khi chạy code thì báo lỗi "Run time error 438" "Object doesn't support this property or method "
tại dòng
PHP: 
Rng.Colums(i).EntireColumn.Delete
Tôi đã google để khắc phục nhưng không được, nhờ bạn hướng dẫn thêm!
 
Upvote 0
AnhThu-1976 đã viết:
Khi chạy code thì báo lỗi "Run time error 438" "Object doesn't support this property or method "
tại dòng
PHP: 
Rng.Colums(i).EntireColumn.Delete
Tôi đã google để khắc phục nhưng không được, nhờ bạn hướng dẫn thêm!
Nhấp chuột vào đây để mở rộng...
Bạn để ý hình dưới đóng khung màu đỏ thiếu chữ n.
1.jpg
Vậy bây giờ bạn sửa Colums ----> Columns, vậy thôi.
 
Upvote 0
HieuCD đã viết:
Cách nầy rất hay, tính để cho bạn ra tay cho trọn vẹn :) . Bạn gợi ý nên mình viết luôn
Mã: 
Sub GPE()
  Dim Ws As Worksheet, i As Long
  Dim Rng As Range, tmpRng As Range
  On Error Resume Next
  For Each Ws In ThisWorkbook.Worksheets
    With Ws.UsedRange
      Set Rng = .SpecialCells(xlCellTypeVisible)
      If Ws.FilterMode = True Then Ws.ShowAllData
      .EntireColumn.Hidden = False
      Rng.EntireRow.Hidden = False
    
      Rng.EntireColumn.Hidden = True
      .SpecialCells(xlCellTypeVisible).EntireColumn.Delete
      Rng.EntireColumn.Hidden = False
    
      Rng.EntireRow.Hidden = True
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      Rng.EntireRow.Hidden = False
    End With
  Next Ws
  On Error GoTo 0
End Sub
Nhấp chuột vào đây để mở rộng...
Có vài vấn đề cần bàn:
1> Vấn đề 1:
SpecialCells khá tốn năng lượng nên phải tính toán tối ưu. Ví dụ ta có 1000 dòng x 10 cột, trong đó có 100 ẩn, vậy ta còn lại 900 dòng hiện. Khi ấy SpecialCells(xlCellTypeVisible) sẽ tính toán trên 900 x 10 = 9000 cells
Mà như ta đã biết thì 1 dòng bị ẩn thì tất cả các cells trên dòng đó cũng ẩn. Vậy có phải ta xét cell đầu tiên thôi sẽ tiết kiệm hơn không? Tức thay vì:
Mã: 
 .SpecialCells(xlCellTypeVisible)
Ta sửa thành:
Mã: 
.resize(,1).SpecialCells(xlCellTypeVisible)
thì theo ví dụ trên SpecialCells chỉ tính toán trên 900 cells mà thôi (thay vì 9000 cells)
2> Vấn đề 2:
Dòng trên bảng tính bị ẩn bởi nhiều nguyên nhân. Nếu muốn giải quyết tất cả thì ta nên viết Function/Sub làm từng công việc cụ thể chứ không nên "ôm đồm" mọi thứ
-------------------------------
Từ những ý trên tôi sẽ viết 1 Sub có tham số truyền để giải quyết riêng cho chuyện xóa dòng ẩn khi filter như sau:
Mã: 
Private Sub DelInvisibleFilter(ByVal SourceRange As Range)
  Dim rngFilter As Range
  On Error Resume Next
  With SourceRange
    If .Parent.FilterMode = False Then Exit Sub
    If .Rows.Count < 3 Then Exit Sub
    Application.ScreenUpdating = False
    Set rngFilter = .Resize(, 1).SpecialCells(xlCellTypeVisible)
    .Parent.ShowAllData
    rngFilter.EntireRow.Hidden = True
    .Resize(, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .EntireRow.Hidden = False
  End With
  Application.ScreenUpdating = True
End Sub
Mã: 
Sub Main()
  Dim wks As Worksheet
  For Each wks In ThisWorkbook.Worksheets
    DelInvisibleFilter wks.UsedRange
  Next
End Sub
Với bài toán xóa cột ẩn cũng sẽ làm gần tương tự
 
Upvote 0
ndu96081631 đã viết:
Có vài vấn đề cần bàn:
1> Vấn đề 1:
SpecialCells khá tốn năng lượng nên phải tính toán tối ưu. Ví dụ ta có 1000 dòng x 10 cột, trong đó có 100 ẩn, vậy ta còn lại 900 dòng hiện. Khi ấy SpecialCells(xlCellTypeVisible) sẽ tính toán trên 900 x 10 = 9000 cells
Mà như ta đã biết thì 1 dòng bị ẩn thì tất cả các cells trên dòng đó cũng ẩn. Vậy có phải ta xét cell đầu tiên thôi sẽ tiết kiệm hơn không? Tức thay vì:
Mã: 
 .SpecialCells(xlCellTypeVisible)
Ta sửa thành:
Mã: 
.resize(,1).SpecialCells(xlCellTypeVisible)
thì theo ví dụ trên SpecialCells chỉ tính toán trên 900 cells mà thôi (thay vì 9000 cells)
2> Vấn đề 2:
Dòng trên bảng tính bị ẩn bởi nhiều nguyên nhân. Nếu muốn giải quyết tất cả thì ta nên viết Function/Sub làm từng công việc cụ thể chứ không nên "ôm đồm" mọi thứ
-------------------------------
Từ những ý trên tôi sẽ viết 1 Sub có tham số truyền để giải quyết riêng cho chuyện xóa dòng ẩn khi filter như sau:
Mã: 
Private Sub DelInvisibleFilter(ByVal SourceRange As Range)
  Dim rngFilter As Range
  On Error Resume Next
  With SourceRange
    If .Parent.FilterMode = False Then Exit Sub
    If .Rows.Count < 3 Then Exit Sub
    Application.ScreenUpdating = False
    Set rngFilter = .Resize(, 1).SpecialCells(xlCellTypeVisible)
    .Parent.ShowAllData
    rngFilter.EntireRow.Hidden = True
    .Resize(, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .EntireRow.Hidden = False
  End With
  Application.ScreenUpdating = True
End Sub
Mã: 
Sub Main()
  Dim wks As Worksheet
  For Each wks In ThisWorkbook.Worksheets
    DelInvisibleFilter wks.UsedRange
  Next
End Sub
Với bài toán xóa cột ẩn cũng sẽ làm gần tương tự
Nhấp chuột vào đây để mở rộng...
Nếu chỉ xét 1 cột thì anh phải đảm bảo cột đó đang không ẩn.
Ngoài ra, SpecialCells rất tiện nhưng nếu dữ liệu lớn sẽ không dùng được.
 
Upvote 0
ndu96081631 đã viết:
Có vài vấn đề cần bàn:
1> Vấn đề 1:
SpecialCells khá tốn năng lượng nên phải tính toán tối ưu. Ví dụ ta có 1000 dòng x 10 cột, trong đó có 100 ẩn, vậy ta còn lại 900 dòng hiện. Khi ấy SpecialCells(xlCellTypeVisible) sẽ tính toán trên 900 x 10 = 9000 cells
Mà như ta đã biết thì 1 dòng bị ẩn thì tất cả các cells trên dòng đó cũng ẩn. Vậy có phải ta xét cell đầu tiên thôi sẽ tiết kiệm hơn không? Tức thay vì:
Mã: 
 .SpecialCells(xlCellTypeVisible)
Ta sửa thành:
Mã: 
.resize(,1).SpecialCells(xlCellTypeVisible)
thì theo ví dụ trên SpecialCells chỉ tính toán trên 900 cells mà thôi (thay vì 9000 cells)
2> Vấn đề 2:
Dòng trên bảng tính bị ẩn bởi nhiều nguyên nhân. Nếu muốn giải quyết tất cả thì ta nên viết Function/Sub làm từng công việc cụ thể chứ không nên "ôm đồm" mọi thứ
-------------------------------
Từ những ý trên tôi sẽ viết 1 Sub có tham số truyền để giải quyết riêng cho chuyện xóa dòng ẩn khi filter như sau:
Mã: 
Private Sub DelInvisibleFilter(ByVal SourceRange As Range)
  Dim rngFilter As Range
  On Error Resume Next
  With SourceRange
    If .Parent.FilterMode = False Then Exit Sub
    If .Rows.Count < 3 Then Exit Sub
    Application.ScreenUpdating = False
    Set rngFilter = .Resize(, 1).SpecialCells(xlCellTypeVisible)
    .Parent.ShowAllData
    rngFilter.EntireRow.Hidden = True
    .Resize(, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .EntireRow.Hidden = False
  End With
  Application.ScreenUpdating = True
End Sub
Mã: 
Sub Main()
  Dim wks As Worksheet
  For Each wks In ThisWorkbook.Worksheets
    DelInvisibleFilter wks.UsedRange
  Next
End Sub
Với bài toán xóa cột ẩn cũng sẽ làm gần tương tự
Nhấp chuột vào đây để mở rộng...
Mình nghỉ nên bỏ dòng lệnh
If .Rows.Count < 3 Then Exit Sub
Vì có khả năng như trong file
 

File đính kèm

Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb (4 người xem)
Trả lời
6
Đọc
235
YêuCN
Y
V
  • Question Question
Tạo dữ liệu random cho từng sheet dựa theo dữ liệu có sẵn (1 người xem)
Trả lời
0
Đọc
32
victoriabmt
V
S
Mở 2 cửa sổ riêng biệt
Trả lời
31
Đọc
24K
ThanhNgan240723
T
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết (1 người xem)
Trả lời
23
Đọc
25K
SA_DQ
SA_DQ
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
7
Đọc
408
ongke0711
ongke0711
vn81206
TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL
    • Buồn
Trả lời
57
Đọc
20K
vovietdung261016
V
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Thích
    • Cảm ơn
Trả lời
7
Đọc
1K
PhanTuHuong
PhanTuHuong
huuthang_bd
Add in SwitchSheet: Quay lại các sheet đã xem trước đó bằng phím tắt (1 người xem)
    • Thích
    • Yêu thích
2
Trả lời
146
Đọc
42K
phong_codon
P
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
393
Đọc
46K
vpktchaua
V
N
  • Question Question
Hỗ trợ tiếng việt trong macro
Trả lời
14
Đọc
587
Quang_Hải
Quang_Hải
N
Cài phần mềm đọc số ra chữ (1 người xem)
Trả lời
2
Đọc
109
Nguyễn Duy Tuân
Nguyễn Duy Tuân
T
Em cần hỗ trợ tách nhiều file và đặt tên theo quy ước chung từ bảng 01 excel có sẳng
Trả lời
1
Đọc
88
HUONGHCKT
H
N
hàm đếm theo dòng
Trả lời
1
Đọc
80
dungpham01
D
H
LỖI KHOẢNG TRỐNG EXCEL DƯỚI THANH CÔNG CỤ
Trả lời
1
Đọc
54
ptm0412
ptm0412
A
  • Question Question
Share file copy dữ liệu từ tờ khai hải quan.
    • Thích
Trả lời
10
Đọc
978
anhdepjai
A
dungluyen2119
  • Question Question
Code VBA để tính tổng theo chiều ngang mà số cột không cố định
Trả lời
6
Đọc
316
le_vis
L
Q
Không chỉnh sửa, copy được hình ảnh trong file excel.
Trả lời
6
Đọc
4K
thaivanthao
T
L
Nhờ giúp file word
Trả lời
1
Đọc
116
minhminh27
minhminh27
GPE-Trợ Lý
[GPE] TASKSHOW 14: TỪ BẢNG TÍNH ĐẾN BÁO CÁO ĐỘNG - BẮT ĐẦU VỚI LOOKER STUDIO
    • Thích
Trả lời
1
Đọc
12K
GPE-Trợ Lý
GPE-Trợ Lý
8
Theo dõi bán hàng
Trả lời
10
Đọc
387
84huong
8
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

  • Không tìm thấy.

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom