excel怎么把一行数据变多个表格？

        1、先打开excel工作表，打开之后可以看到在“开始”菜单栏的里有一个“套用表格格式”按钮，单击该按钮。

        2、单击之后会下拉选择，在下拉的选项里选择要使用的格式，想使用哪个就单击哪个。

        3、单击之后会d出如图对话框，这时候选择好使用套用表格格式的区域，单击标红框处的按钮可以选择区域。

        4、选择区域之后会出现如图所示，如果区域选择完成了的话，那么再单击下刚刚标红框处的那个按钮。

        5、单击后就会出现如图所示，这时候就可以看到刚刚选择的区域是从哪里到哪里，确认无误之后单击下方的“确定”按钮。

        6、单击确定按钮之后就会出现如图所示，这时候可以看到刚刚的格式已经改变，已经变成选择了的套用表格格式。

代码如下，根据需要更改工作表名称：

Private Sub CommandButton1_Click()

Dim arr

lastrow = Sheet2Cells(RowsCount, 3)End(xlUp)Row

arr = Sheet2Range("a7:h" & lastrow)

lrow1 = Sheet4Cells(RowsCount, 3)End(xlUp)Row + 1

lrow2 = Sheet5Cells(RowsCount, 3)End(xlUp)Row + 1

Sheet4Range("a" & lrow1)Resize(UBound(arr), UBound(arr, 2)) = arr

Sheet5Range("a" & lrow2)Resize(UBound(arr), UBound(arr, 2)) = arr

End Sub