- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 102
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-5-3
              
|
回復 4# adam2010 - Sub ex()
- With Sheets("data")
- .Cells.Clear '清空工作表
- Sheets("Original").UsedRange.Copy .[A1] '複製資料
- .Columns("C").Replace "*計", "" '將含有"計"的儲存格清空
- .Columns("C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '將上列清空的位置整列刪除
- .Columns("A").UnMerge 'A欄取消合併
- .Rows(1) = .Rows(1).Value '標題列重新給值，可將原來數值存成文字部分改成數值
- For i = 6 To 23 '分欄執行取代動作加快速度
- .UsedRange.Columns(i).Replace "-", "" '去除-號
- Next
- .[F:P].Insert '插入欄
- Sheets("公式").[F1:P2].Copy .[F1] '複製公式
- r = .Cells(.Rows.Count, 5).End(xlUp).Row '資料列數
- .Range("F2:P2").AutoFill Destination:=.Range("F2:P" & r) '公式向下填滿
- k = .UsedRange.Columns.Count + 1 '得到已使用欄位數
- Sheets("公式").[DL1:DS2].Copy .Cells(1, k) '複製公式到表尾
- .Cells(2, k).Resize(, 8).AutoFill .Range(.Cells(2, k), .Cells(r, k + 7)) '向下填滿
- End With
- End Sub
|
|
發表於 2013-5-8 23:25
| 