Code Ungroup toàn bộ các cột/dòng cho tất cả các sheet (1 người xem)

[AnhThu-1976]

Em có record & dựa vào code mẫu để viết Code Ungroup toàn bộ các cột/dòng cho tất cả các sheet
Nhưng nó chạy báo lỗi, nhờ các anh chị chỉnh sửa

Sub Ungroup()
    Dim wks As Worksheet
    For Each wks In ActiveWorkbook.Worksheets
        wks.Columns.Ungroup
    Next
End Sub

Em cảm ơn!

 

[Hai Lúa Miền Tây]

Em có record & dựa vào code mẫu để viết Code Ungroup toàn bộ các cột/dòng cho tất cả các sheet
Nhưng nó chạy báo lỗi, nhờ các anh chị chỉnh sửa

Sub Ungroup()
    Dim wks As Worksheet
    For Each wks In ActiveWorkbook.Worksheets
        wks.Columns.Ungroup
    Next
End Sub

Em cảm ơn!

Có thể trong file của bạn có sheet không có group, khi duyệt qua sheet nào không có group code sẽ báo lỗi.

Sửa lại như sau:

Sub Ungroup()
    Dim wks As Worksheet
    For Each wks In ActiveWorkbook.Worksheets
        wks.Cells.ClearOutline
    Next
End Sub

 

[AnhThu-1976]

Có thể trong file của bạn có sheet không có group, khi duyệt qua sheet nào không có group code sẽ báo lỗi.

Sửa lại như sau:

Sub Ungroup()
    Dim wks As Worksheet
    For Each wks In ActiveWorkbook.Worksheets
        wks.Cells.ClearOutline
    Next
End Sub

Em đã thêm
On Error Resume Next thì OK, cảm ơn anh!

 

[Hai Lúa Miền Tây]

Em đã thêm
On Error Resume Next thì OK, cảm ơn anh!

Với trường hợp này nên dùng ClearOutline, không nên thêm dòng on error resume next, vì nó sẽ không làm gì với sheet có dòng group