[算表] EXCEL 資料分割

[contente (妹妹)]

軟體:EXCEL

版本:2007

因為論文要跑SAS

SAS無法使用EXCEL 2007的版本

但是一天的資料就有360,000筆

無法存成2003版本

請問有什麼方法可以自動分割資料

  A B C D E F G H I J K..............................Z
1
2
3
4
5
6
7
8
9
10
11
12
13
14
.
.
.
.
.
.
.
.
360000

有方法是自動把1~60000列儲存成一個檔

再把60001~120000存成另一個檔
.
.
.
再把300000~360000存成另一個檔

不然一個一個複製貼上好累

謝謝大家!!

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.113.80.253
推 JieJuen:存成文字檔.txt (Tab字元分隔) 看看?
推 mddc62:用access會更方便...
→ mddc62:讀檔的過程很像txt轉excel，而且擋可以容納的量更大
推 Or3:可以推用2003 converter存成2003版本嗎? :P
→ contente:請問除了txt和使用access，還有什麼方法呢?謝謝!
> -------------------------------------------------------------------------- <

作者: windknife18 (windknife18) 看板: Office
標題: Re: [算表] EXCEL 資料分割
時間: Tue Apr  7 22:47:27 2009


剛好有看過類似的，修該一下看合不合用囉，這是 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
→ ljuber:EXCEL VBA不知道要從什麼地方入手?
推 JieJuen:推~ 這個真的比較高深不會了 XD
推 contente:非常謝謝你!!!
→ windknife18:^^
#19ssU0ko