如何用VB完成附件目标模板的规划，请大侠帮忙

二年级班长

附件“数据”中是需要打印的报表标签数据，由于打印后还要裁剪，需要在行标签进行分割，这样方便裁剪，需要实现如附件“目标结果”这样的样式，其中数据行数不固定，烦请大侠们帮忙看看，谢谢！！

行数据，每三行为一个标签，我自己理解就是在第四行插入一行，然后在调整插入行的行高，由于数据量不固定，若少量可以手工添加，若几百个的时候手工太费事，请大家帮忙看看如何可以实现，谢谢

二年级班长

自己录制了下，可以实现最终的效果，呵呵.

Sub 插入行()
Sheets("标签").Select
Dim i As Integer
i = 4
Do While Cells(i, 1) <> ""


    Rows(i).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.RowHeight = 5
i = i + 4
Loop
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.ColumnWidth = 0.4
End Sub

这样每次在从新生成标签之后，都要从新调整下标签尺寸格式才可以使用。