Office中国论坛/Access中国论坛

标题: 请教编制预算中的一个excel问题 [打印本页]

作者: frankyp0122 时间: 2008-10-8 17:27
标题: 请教编制预算中的一个excel问题
请问大家一个问题：我目前所做的预算总表，第一列为各单位名称，第一行为具体的预算名称。在全部预算编制完毕后，我将要向每个单位下发预算，需要将总表倒置后，再将每个单位的数据形成一个独立的excel文件下发到各个单位。请问大家有没有好的办法能够实现这一点？谢谢大家了

作者: pureshadow 时间: 2008-10-8 17:35
Sub div()
Dim myrow As Long
Dim mycol As Long
Dim i As Long
myrow = [a65536].End(xlUp).Row
mycol = [iv1].End(xlToLeft).Column
Range("A1:A" & myrow).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("A2:A" & myrow).SpecialCells(xlCellTypeVisible).Copy Destination:=Cells(1, mycol + 1)
ActiveSheet.ShowAllData
Range(Cells(1, 1), Cells(1, mycol)).AutoFilter
For i = 1 To Application.CountA(Columns(mycol + 1))
Sheets.Add
ActiveSheet.Name = Cells(i, mycol + 1)
Range(Cells(1, 1), Cells(1, mycol)).AutoFilter Field:=1, Criteria1:=Cells(i, mycol + 1)
Range(Cells(1, 1), Cells(myrow, mycol)).SpecialCells(xlCellTypeVisible).Copy Destination:=ActiveSheet.Range("a1")
Next
Sheets("sheet1").Select
Range(Cells(1, 1), Cells(1, mycol)).AutoFilter
Columns(mycol + 1).ClearContents
End Sub

作者: frankyp0122 时间: 2008-10-9 11:02
标题: 谢谢
但如何使用呢？呵呵，我是初学者哦

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)