Thắc mắc: File có bao nhiêu sheet và tìm đến những sheet rỗng

[saobekhonglac]

Nó bị vầy: (trước khi hiện thông báo này thì nó quay quay hơi lâu lâu)
View attachment 248157

hiện là mừng rồi, bên mình k thấy gì hết trơn.

 

[hungtin1997]

nó báo ở đâu vậy bạn.

Trả về Sheet thứ nhất đấy bác bắt đầu từ ô A1

Bài đã được tự động gộp: 28/10/20

Nó bị vầy: (trước khi hiện thông báo này thì nó quay quay hơi lâu lâu)
View attachment 248157

Sub CheckSheetEmpty()
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To Sheets.Count
     Sheets(i).Select
    If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
    Sheets(1).Cells(i, 1).Value = Sheets(i).Name
    End If
Next
Sheets(1).Select
    Application.ScreenUpdating = True
End Sub

 

[saobekhonglac]

Trả về Sheet thứ nhất đấy bác bắt đầu từ ô A1

Bài đã được tự động gộp: 28/10/20

Sub CheckSheetEmpty()
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To Sheets.Count
     Sheets(i).Select
    If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
    Sheets(1).Cells(i, 1).Value = Sheets(i).Name
    End If
Next
Sheets(1).Select
    Application.ScreenUpdating = True
End Sub

thấy rồi, cám ơn bạn.

 

[Kiều Mạnh]

thử xài hàm Excel
IFERROR(LOOKUP...) mà tìm Sheet Rỗng xem sao he

 

[xuongrongdat]

thử xài hàm Excel
IFERROR(LOOKUP...) mà tìm Sheet Rỗng xem sao he

Là làm bằng cách nào mình nghĩ chưa ra he Mạnh ơi?!