Re: [算表] 將特定條件的儲存格輸出成多個檔案

[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




※ 引述《ljuber (給你吃膨餅)》之銘言：
: 軟體: excel
: 版本: 任何版本
: 我做了個工作表
: 類似這樣
:      姓名    科目   金額
:      小王
:      小花
:      小白
:   如何寫個VBA把 依照姓名輸出成一個檔案 檔名就是姓名
:   例如小王.xls  內容就是
:      姓名    科目       金額
:      小王
:     小花.xls  內容就是
:     姓名    科目     金額
:     小花
: ps:大概是要一個VBA程式XD  我可能還要修改
: （因為實際檔案內容很大)

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.229.87.17
推 ljuber:喔喔 好強 我要研究看看 感謝^^