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)

>>阅读原文<<