- 帖子
- 8
- 主題
- 5
- 精華
- 0
- 積分
- 63
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 註冊時間
- 2017-3-14
- 最後登錄
- 2023-8-21
|
我第一個是這樣寫，但是跳第二個偵測最下列的部分一直有問題
Sheets("主題1").Select
ActiveSheet.Range("A2", ActiveSheet.Range("B2").End(xlDown)).Select
Selection.Copy
Sheets("總表").Select
Range("A2").Select
ActiveSheet.Paste
Range("a65536").End(xlUp).Select
Range("A" & ActiveCell.Row + 1).Value = "↑主題1"
Sheets("主題2").Select
ActiveSheet.Range("A2", ActiveSheet.Range("B2").End(xlDown)).Select
Selection.Copy
Sheets("總表").Select
....
....從這裡偵測最下列+1的部分，我有上網看文章試過很多方法但是都不大行
再麻煩各位大大幫我看看 ..
附上檔案舉例說明 |
-
-
book1.zip
(370.46 KB)
|
發表於 2018-1-4 15:21
| 
