VBA之单元格操作2-筛选拆分数据

有这样一个数据表,

现在想把D列的车间所在的每一行数据,复制到其他对应的工作表里,用VBA如何去实现呢

Sub chaifen()
Dim i, j As Integer

For i = 2 To Range(“a65535”).End(xlUp).Row
j = Sheets(Sheet1.Range(“d” & i).Value).Range(“a65535”).End(xlUp).Row + 1
Sheet1.Range(“a” & i).EntireRow.Copy Sheets(Sheet1.Range(“d” & i).Value).Range(“a” & j)

Next

End Sub

代码解读如下:
首先确认一共有多少行,Range(“a65535”).End(xlUp).Row 这段代码能拿到所有的有数据的行数
然后是
j = Sheets(Sheet1.Range(“d” & i).Value).Range(“a65535”).End(xlUp).Row + 1
这段代码分成两部分看
第一部分
Sheets(Sheet1.Range(“d” & i).Value)这么多是确认d列的每一行的值,
第二部分
.Range(“a65535”).End(xlUp).Row + 1就能拿到其对应的行数+1
然后是
Sheet1.Range(“a” & i).EntireRow.Copy Sheets(Sheet1.Range(“d” & i).Value).Range(“a” & j)
分三部分看
第一部分
Sheet1.Range(“a” & i).EntireRow.Copy 这么多,是复制每个a一整行
第二部分
Sheets(Sheet1.Range(“d” & i).Value)
是把上面复制的内容,粘贴到所在的工作表里, “d” & i对应后面每个工作表
第三部分
.Range(“a” & j) 是标示内容复制到后面的工作表对应的位置

最终代码运行完了的结果是