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