Re: [算表] 將特定條件的儲存格輸出成多個檔案--VBA
請看看合不合用囉 ...
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
推
04/21 23:02, , 1F
04/21 23:02, 1F
討論串 (同標題文章)
Office 近期熱門文章
PTT數位生活區 即時熱門文章
