返回列表 上一主題 發帖

[發問] 8000多個 csv 檔的格式修改

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2015-3-9 10:07 | 顯示全部帖子
本帖最後由 stillfish00 於 2015-3-9 10:09 編輯

回復 1# sasho
  1. date = Format(Date, "yyyymmdd")
複製代碼
date 是保留字，不要拿來命名變數，這樣寫應該會出錯吧。
  1.         .UsedRange.Columns("G:K").Cut
  2.         .Range("A" & .Rows.Count).End(xlUp).Offset(1).Insert Shift:=xlDown
複製代碼
還是附檔吧，看不懂要幹嘛，G:K剪下後插入到???
基本上這樣寫會出錯
  1.             On Error Resume Next
  2.             .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
複製代碼
On Error Resume Next不要這樣用
  1.         For i = 1 To .UsedRange.Rows.Count
  2.             .Cells(i, 3) = Left(.Cells(i, 3), 4)
  3.             .Cells(i, 5) = .Cells(i, 5).Value / 1000
  4.             .Cells(i, 6) = .Cells(i, 6).Value / 1000
  5.         Next
複製代碼
列數很多的話，可以一次提到array處理完再一次寫回
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題