‹‹ 上一主題 | 下一主題 ››
發新話題
打印

excel資料處理求問

dajen

P 4

Rank: 3Rank: 3

UID
284143 
帖子
198 
精華
0 
積分
7282 
金幣
3641  
星雲幣
189  
原創銀幣
0  
視頻
0  
閱讀權限
60 
在線時間
0 小時 
註冊時間
2005-6-16 
最後登錄
2023-8-2 
1# 大 中 小 發表於 2012-7-14 02:03  顯示全部帖子
開個新excel,建立一個如下的巨集,再把資料貼在sheet1的第一列,執行巨集:

Sub Modify()
i = 1
    For i = 1 To 10 '10改成500000就跑50萬次
   
        Sheet1.Cells(i, 1) = Sheet1.Cells(i, 1) + Sheet1.Cells(i + 1, 1) '
        Sheet1.Cells(i + 1, 1).Delete
   
    Next
End Sub

TOP

‹‹ 上一主題 | 下一主題 ››
發新話題