excel vba 工作表問題求救

CK豬
個人積分：8分
文章編號：77865271

8分

樓主

2020-06-07 23:55

excel sheets狀態如下
sheets(1)=1月明細
sheets(2)=1月總表
sheets(3)=2月明細
sheets(4)=2月總表
sheets(5)=3月明細
sheets(6)=3月總表
如上條件，一直到↓
sheets(23)=12月明細
sheets(24)=12月總表
sheets(25)=年度明細
sheets(26)=年度總表

請問我要如何用for迴圈，並指定各月明細的sheets，匯整至年度明細裡呢?
(需跳過各月總表)

我有寫好以下執行程式，但紅字部份不知如何寫，想請教各位大大及高手們
再麻煩你們幫我看看如何修改，謝謝，感激不盡^^

Sub 年度明細匯整()

Sheets("年度明細").Select
Range("A2").Select

For a = 1 To sheets.count-2
Sheets(a).Select
Range("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("年度明細").Select
ActiveSheet.Paste
r = Range("A2").End(xlDown).Row
Range("a2").Select
ActiveCell.Offset(r - 1, 0).Select
Next

End Sub

2020-06-07 23:55 發佈

文章關鍵字 Excel VBA 工作表問題

WJS_HVM

WJS_HVM
個人積分：31分
文章編號：77866211

31分

2樓

2020-06-08 5:00

CK豬 wrote:
For a = 1 To sheets.count-2

For a = 1 To sheets.count-2 Step 2

CK豬

CK豬
個人積分：8分
文章編號：77866353

8分

樓主

2020-06-08 6:38

WJS_HVM wrote:
For a = 1 ...(恕刪)

謝謝您，
我等等來試看看^^

CK豬

CK豬
個人積分：8分
文章編號：77868761

8分

樓主

2020-06-08 10:39

WJS_HVM wrote:
For a = 1 ...(恕刪)

加step，就可以囉，謝謝^^

snare

snare
個人積分：3051分
文章編號：77869818

3051分

5樓

2020-06-08 11:36

建議用工作表名稱來判斷會比較安全
工作表不小心移動的話，sheets(index)，index 會跟著變
那就有可能複制到錯的工作表

程式碼大概像這樣寫



Sub test()

    For a = 1 To Sheets.Count
        If InStr(Sheets(a).Name, "年度") = 0 And InStr(Sheets(a).Name, "明細") > 0 Then
            
                '程式碼放這裡
                Debug.Print Sheets(a).Name
                
        End If
    Next a
    
End Sub

Santouka

Santouka
個人積分：7分
文章編號：77873151

7分

6樓

2020-06-08 15:00

先筆記一下

CK豬

CK豬
個人積分：8分
文章編號：77878272

8分

樓主

2020-06-08 21:21

snare wrote:
建議用工作表名稱來判(恕刪)

先記下，等等來試看看，謝謝^^