.Kiến nghị tố cá bị phân, nhiên hậu tương hợp tịnh đan nguyên cách sách phân hậu, trí năng điền sung, Tại sử dụng phụ trợ liệt mỗi cá bất đồng học sinh thượng hạ sáp nhập không bạch hành, đả ấn tựu hành liễu
Option Explicit Sub ToPrint() Dim Rows As Long, Columns As Long, SourceRange As Range, BaseRange As Range, Row As Long, Column As Long Rows = 5 Columns = 5 With ActiveSheet Set SourceRange =.Range( "B2" ) Set BaseRange =.Range( "H1" ).Resize(, Columns) End With While SourceRange.Value <> "" With BaseRange.Offset((Rows + 1) * Row, (Columns + 1) * Column) .Value = Array( "Niên cấp / chuyên nghiệp", "Ban cấp", "Thu hóa học sinh tính danh", "Thương phẩm danh xưng", "Quy cách" ) .Interior.ColorIndex = 8 SourceRange.Resize(SourceRange.MergeArea.Rows.Count, Columns).Copy.Offset(1) .Resize(Rows).Borders.LineStyle = xlContinuous End With Column = Column + 1 If Column >= 2 Then Row = Row + 1 Column = 0 End If Set SourceRange = SourceRange.Offset(1) Wend MsgBox "Đả ấn cách thức chuyển hoán hoàn tất" End Sub
Sub t() Set s = [B2] Set b = [H1:L1] While s > 0 With b.Offset(6 * r, 6 * c) .Value = Split( "Niên cấp / chuyên nghiệp ban cấp thu hóa học sinh tính danh thương phẩm danh xưng quy cách" ) .Interior.ColorIndex = 8 s.Resize(s.MergeArea.Count, 5).Copy.Offset(1) .Resize(5).Borders.LineStyle = 1 End With c = c + 1 If c > 1 Then r = r + 1: c = 0 Set s = s.Offset(1) Wend End Sub