※ 引述《windknife18 (windknife18)》之銘言：
: 請看看合不合用囉 ...
: Option Explicit
: Sub Macro1()
: Dim rLastCell As Range
: Dim strName As String
: Dim lLoop As Long
: Dim wbNew As Workbook
: With ThisWorkbook.Sheets(1)
: Set rLastCell = .Cells.Find(What:="*", After:=[A1], _
: SearchDirection:=xlPrevious)
: For lLoop = 2 To rLastCell.Row
: Set wbNew = Workbooks.Add
: .Range("1:1," & lLoop & ":" & lLoop).EntireRow.Copy _
: Destination:=wbNew.Sheets(1).Range("A1")
: wbNew.Close SaveChanges:=True, Filename:=ThisWorkbook.Path _
: & Application.PathSeparator & .Cells(lLoop, 1) & ".xls"
: Next lLoop
: End With
: End Sub
感謝大大的幫忙:)
不過我發現我測試的時候
我要的可能是
科別 機構 A科目 B科目 C科目 ........
一科 A
一科 B
二科 C
二科 D
一科 E
一科 F
南辦 G
南辦 H
主要要把科別集中 並且以各科別為檔名
例如 輸出成 一科.xls
內容就是
科別 機構 A科目 B科目 C科目 ........
一科 A
一科 B
一科 E
一科 F
其他依此類推 希望大大幫忙看看:)
--
機殼:Silverstone Sg01-E CPU: C2D E6750 主機板:GA-G33M-DS2R
記憶體:A-DATA DDR2 800 2GB x2(鐵殼版) power:海韻380W SII
顯示卡:Gigabyte 9600GSO 384MB 電視卡:compro T300 燒錄機:Benq DW2000
硬碟:Segate 750G +日立 750G +Segate企業320G 錄音介面：M-Audio Fireware Solo
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.192.210.11