下面是程式碼分享

Sub 所有月份彙總()

Dim sr%, ch$, bh As Range, shu%, yh%

shu = 2

For sr = 1 To 12

ch = sr & "月"

Do

shu = shu + 1

If Sheets(ch).Cells(shu, "a") = "" Then

Exit Do

Else

Do

yh = yh + 1

If Sheets("資料庫").Cells(yh, "a") = "" Then

Sheets("資料庫").Cells(yh, "a").Range("a1:h1") = Sheets(ch).Cells(shu, "a").Range("a1:h1").Value

Exit Do

End If

Loop

End If

Loop

shu = 2

Next sr

End Sub