Nhờ kiểm tra lỗi function giúp 1 Mục đích của Function xóa dữ liệu từ dòng

Chào bạn bạn gửi giúp gitiho cái file nhé.

Đây ạ

Không đính kèm được file ạ

Function Xoa_ck(ws As Worksheet)

    Dim re_sh As Long

    re_sh = ws.Range("A" & Rows.Count).End(xlUp).Row

    If re_sh > 12 Then

        sh_xoa.Range("A13:Be" & re_sh + 1).ClearContents

    End If

End Function

Sub xoa()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("PhuLac")

    Xoa_ck (ws)

End Sub

Chào bạn bạn làm như sau nhé

Option Explicit
Sub xoadongokk()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
       Dim dc As Long
        dc = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
        If dc > 12 Then
          ws.Range("A13:Bw" & dc + 1).ClearContents
        End If
    Next
End Sub

Nhiều phần code sẽ không chuyển sang function được nhé.

Vâng cảm ơn thầy, thế thì code nào chuyển được sang function ạ?

Chào bạn phần này chúng ta cần phải thử bạn nhé, viết sub trước rồi thấy cái chung tách ra mà mọi cái chuyển đều đúng mà chuyển function chưa được thì function đó đang không chấp nhận.