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