- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
回復 1# bear0925900003
除了 stillfish00 大大幫你解答的
錯字外，將你的程式碼稍稍整理了：- Sub 彙整收入類()
- Sheets("其他收入總表").[A2:H65536].Copy
-
- With Sheets("收入總表")
- .Select
- .Range("A1").End(xlUp).Offset(1, 0).Select
- ActiveSheet.Paste
- End With
- End Sub
|
|
發表於 2014-7-11 07:10
| 