|
|
1、首先是按照工作表拆分，第一列（区域）相同的行则拆分到同一张表，希望表格行和列不受限制；
2、其次还需按照工作簿拆分，拆分后工作簿中不同工作表只留有同一区域的数据，每一个工作表都是从第6行开始拆分。如北京分部，“总成本”、“总业绩”和“总利润”都只留有北京分部。希望工作簿的拆分不限于两个，可能加到7-8个工作簿。
3、保留原格式不变
4、拆分同一工作表已有代码，但不知道怎么改写到适用现在的需求，求大神协助！感谢！
Sub 拆分()
'
' 拆分 Macro
'
Dim i%
arr = Sheets(1).[a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 6 To UBound(arr)
If d.exists(arr(i, 1)) Then
Set d(arr(i, 1)) = Union(d(arr(i, 1)), Rows(i))
Else
Set d(arr(i, 1)) = Union(Rows("1:5"), Rows(i))
End If
Next i
For ss = 0 To d.Count - 1
Workbooks.Add
With ActiveWorkbook
d.items()(ss).Copy .Sheets(1).[a1]
.SaveAs ThisWorkbook.Path & "/" & d.keys()(ss)
.Close
End With
Next ss
End Sub
拆分工作表.rar
(11.43 KB, 下载次数: 191)
|
|
