Xin giúp tạo bảng và xóa vùng thừa

[sybenlove]

Giúp e tạo bảng làm việc từ a1 đến g100 , xoá những vùng thừa giúp em

 

[doredore1988]

Chuyển dữ liệu A1 đến G100 sang trang tính mới và xóa cái cũ

 

[SA_DQ]

Bạn tham khảo con này; Nếu thấy đạt yêu cầu & thích thì xài:

Sub XoaVungKhongChuaCongThuc()
 Dim RngCT As Range, Rng0 As Range, Cls As Range, dRng As Range
 
 Set RngCT = [A1:G100].SpecialCells(xlCellTypeFormulas, 23)
 RngCT.Interior.ColorIndex = 35
 For Each Cls In [A1:G100]
    If Intersect(Cls, RngCT) Is Nothing Then
        If dRng Is Nothing Then
            Set dRng = Cls
        Else
            Set dRng = Union(dRng, Cls)
        End If
    End If
 Next Cls
 dRng.Value = Space(0)
End Sub