請問如何分別撰寫VBA，使特定工作表的特定值合併，再抓特定值回原始檔 - Excel程式區

[發問] 請問如何分別撰寫VBA，使特定工作表的特定值合併，再抓特定值回原始檔

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-5-4 16:52 | 顯示全部帖子

回復 1# sax868

不了解 2) 之說明

Sub xx()
Sheets("Updated Data").Select
Cells = ""
[A1] = Sheets("AB1").[B1]: [B1] = Sheets("AB1").[B2]: [C1] = Sheets("AB1").[D1]
[D1:BE1] = Sheets("AB1").[A11:BB11].Value
For Each Sh In Sheets
If Sh.Name = "Currency" Or Sh.Name = "DATA" Or Sh.Name = "Updated Data" Then Exit For
R = 0: C = 0
R = Sh.[A11].End(xlDown).Row: C = C + (R - 12 + 1)
Ar = Sh.Range("A12:BB" & R).Value
[D65536].End(xlUp).Offset(1, 0).Resize(C, 54) = Ar
Br = Array(Sh.[C1], Sh.[C2], Sh.[E1])
[A65536].End(xlUp).Offset(1, 0).Resize(C, 3) = Br
Next
End Sub

複製代碼

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。