Home / chia 1 sheet thành nhiều trang trong excel CHIA 1 SHEET THÀNH NHIỀU TRANG TRONG EXCEL 03/12/2021 Tin tức Tư vấn Tri thức Tin VPhường Bảo mật Mạng Máy bộ Phần mượt quý khách mong mỏi tạo thành hồ hết Sheet rước tài liệu thanh lọc được dựa vào cột Ten hang với đông đảo cột tương ứng ( So lưong , Giai say đắm ) .Bạn đang xem: Chia 1 sheet thành nhiều trang trong excellấy một ví dụ Sheet AA gồm đựng các tài liệu thanh lọc được nlỗi hình dưới Tương những điều đó cùng với gần như Sheet khác Để làm được như thế bạn cần tạo ra macro , cách thức nhỏng sau .Mnghỉ ngơi tệp tin Excel mong mỏi phân tạo thành các Sheet .Xem thêm: Chế Độ Ăn Cho Người Tăng Huyết Áp Nên Ăn Gì? Chế Độ Ăn Khoa Học Cho Bệnh Nhân Tăng Huyết ÁpBấm tổ hợp Alt-F11 để msinh sống Microsoft Visual Basic .Bấm thực đơn Insert > Module , các bạn sao chép câu chữ mặt dưới Sub Splitdatatosheets()Dlặng rng As RangeDim rng1 As RangeDim vrb As BooleanDyên sht As WorksheetSet rng = Sheets("Sheet1").Range("A3")Set rng1 = Sheets("Sheet1").Range("A3:C3")vrb = FalseDo While rng "" For Each sht In Worksheets If sht.Name = Left(rng.Value, 31) Then sht.Select Range("A2").Select Do While Selection "" ActiveCell.Offset(1, 0).Activate Loop rng1.Copy ActiveCell ActiveCell.Offset(1, 0).Activate Set rng1 = rng1.Offset(1, 0) Set rng = rng.Offset(1, 0) vrb = True End If Next sht If vrb = False Then Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = Left(rng.Value, 31) Sheets("Sheet1").Range("A1:C1").Copy ActiveSheet.Range("A1") Range("A2").Select Do While Selection "" ActiveCell.Offset(1, 0).Activate Loop rng1.Copy ActiveCell Set rng1 = rng1.Offset(1, 0) Set rng = rng.Offset(1, 0) End Ifvrb = FalseLoopEnd Sub Sheet1 là tên Sheet bao gồm cất dữ liệu .A3:C3 : Dãy dữ liệu bắt đầuA1:C1 : Tiêu đề sinh sống Sheet 1 sẽ có trong các SheetQuý Khách thoát khỏi Microsoft Visual Basic nhằm trở lại Excel , rồi chạy macro có tên là Splitdatatosheets