VBA_操作单元格01

'拆分表中的数据到其他表

Sub chaifenbiao()

Dim i, j As Integer

For i = 2 To Sheet1.Range("a56433").End(xlUp).Row  

j = Sheets(Sheet1.Range("d" & i).Value).Range("a56433").End(xlUp).Row + 1  

Sheet1.Range("a" & i).EntireRow.Copy Sheets(Sheet1.Range("d" & i).Value).Range("a" & j)

Next

End Sub