Re: [算表] EXCEL 資料分割--VBA
剛好有看過類似的,修該一下看合不合用囉,這是 VBA ,如何使用
請參考以前的文章,Excel 2003 確定可以,Excel 2007 要試一下囉
Sub Macro1()
Dim rLastCell As Range
Dim rCells As Range
Dim strName As String
Dim lLoop As Long, lCopy As Long
Dim wbNew As Workbook
With ThisWorkbook.Sheets(1)
Set rLastCell = .Cells.Find(What:="*", After:=[A1], _
SearchDirection:=xlPrevious)
filesize = 300000
filesize = filesize - 1
For lLoop = 1 To rLastCell.Row Step filesize
lCopy = lCopy + 1
Set wbNew = Workbooks.Add
.Range(.Cells(lLoop, 1), .Cells(lLoop + filesize, _
.Columns.Count)).EntireRow.Copy _
Destination:=wbNew.Sheets(1).Range("A1")
wbNew.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & _
Application.PathSeparator & "Chunk" & lCopy & "Rows" & lLoop & _
"-" & lLoop + filesize
Next lLoop
End With
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.229.88.68
→
04/07 22:55, , 1F
04/07 22:55, 1F
推
04/07 22:56, , 2F
04/07 22:56, 2F
推
04/08 00:26, , 3F
04/08 00:26, 3F
→
04/08 00:29, , 4F
04/08 00:29, 4F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇):