返回列表下一主題上一主題發帖

[發問] 總表匯集試問

macro0029

中學生 Rank: 2

帖子: 8
主題: 5
精華: 0
積分: 63
點名: 0
作業系統: WIN7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2017-3-14
最後登錄: 2023-8-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-1-4 15: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)

樓主熱帖

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。

返回列表下一主題上一主題