VBA_操作单元格02

'将表数据分别拆分到其他表中

Sub chaifenbiao()
Dim j, i As Integer
Call qingchu  '调用清除表内容函数
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("d" & i).EntireRow.Copy Sheets(Sheet1.Range("d" & i).Value).Range("a" & j)  ’复制表数据到其他表
Next
End Sub

Sub qingchu()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Range("a2:f10000").ClearContents  '清除内容
Next
End Sub

Sub shaixuan()
'Dim i As Integer
'For i = 2 To Sheets.Count
Sheet1.Range("A1:F1048").AutoFilter Field:=4, Criteria1:=Sheet2.Name  '筛选
Sheet1.Range("A2:F1048").Copy Sheet2.Range("a2")
Sheet1.Range("A1:F1048").AutoFilter '取消筛选
'Next
End Sub