tách sheet excel

[tuanxitin]

Dear anh/chị

nhờ anh chị chỉ giúp em với, em có viết code tách sheet mà muốn lấy tiêu đề từ A1:B2 thì phải làm sao ạ.
Như file tách sheet e làm đính kèm chỉ tách được tiêu đề từ A2:B2 thôi
tks anh/chị

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

Dear anh/chị

nhờ anh chị chỉ giúp em với, em có viết code tách sheet mà muốn lấy tiêu đề từ A1:B2 thì phải làm sao ạ.
Như file tách sheet e làm đính kèm chỉ tách được tiêu đề từ A2:B2 thôi
tks anh/chị

 

[Nhattanktnn]

Dear anh/chị

nhờ anh chị chỉ giúp em với, em có viết code tách sheet mà muốn lấy tiêu đề từ A1:B2 thì phải làm sao ạ.
Như file tách sheet e làm đính kèm chỉ tách được tiêu đề từ A2:B2 thôi
tks anh/chị

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

Theo mình thì nên sửa đoạn này:

rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cel.Value).Cells(1, 1)

Thành:

rng.Offset(-1, 0).Resize(lr, 2).SpecialCells(xlCellTypeVisible).Copy Sheets(cel.Value).Cells(1, 1)