請問各位
檔案裡面有好幾個工作表
要將這些工作表的資料水平合併至一個工作表裡，名稱是"整合"
已用簡單的巨集將其中一個工作複製到"整合"的工作表裡
接下來要讓其他的工作表的資料也複製到"整合"工作表裡，就不知道該怎麼寫~
試了好多次寫法就是不行~~(兩眼昏花了)
已附上範例檔案
再麻煩各位幫個小忙
感激不盡
附加壓縮檔: 201711/mobile01-f6c1df2cc7fc01d43f14997fc2e32e6a.zip
個人積分：21分
文章編號：66615993
附加壓縮檔: 201711/mobile01-79dba01768185dd780ad702dcdac004c.zip
個人積分：6分
文章編號：66639089
個人積分：21分
文章編號：66640371
個人積分：3102分
文章編號：66643137
qekqo wrote:
請測試看看，謝謝 ...(恕刪)
幫您優化一下24行程式碼，可以再減少10行程式碼
Sub join2()
Application.ScreenUpdating = False
Dim QQ As Worksheet
With Sheets("整合")
For Each QQ In Worksheets
lrow = .Range("A" & Rows.Count).End(xlUp).Row + 1
If QQ.Name = "整合" Then .Range("A7:U" & lrow).ClearContents '清除用
If QQ.Name <> "整合" Then
xx = Sheets(QQ.Name).Range("A" & Rows.Count).End(xlUp).Row - 6
.Range(.Cells(lrow, 1), .Cells(xx + lrow - 1, 20)).Value = Sheets(QQ.Name).Range("A7:U" & xx + 6).Value
End If
Next
.Range("A7").Select
End With
Application.ScreenUpdating = True
End Sub
個人積分：21分
文章編號：66649028
個人積分：6分
文章編號：66734217
個人積分：6分
文章編號：66735170
個人積分：3102分
文章編號：66738674
