如何將表單1+表單2 合併 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何將表單1+表單2 合併

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

[發問] 如何將表單1+表單2 合併

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

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

5^# 跳轉到 »

發表於 2012-3-16 16:26 | 只看該作者

回復 4# owen9399

Sub 全部公司總年報_按鈕1_Click()
With Sheets("全部公司總年報")
.Columns("A:J") = ""
Sheets("小型股年報").Range("A1:J" & Sheets("小型股年報").[J65536].End(xlUp).Row).Copy
.[A1].PasteSpecial xlPasteValues
Sheets("大型股年報").Range("A2:J" & Sheets("大型股年報").[J65536].End(xlUp).Row).Copy
.[A65536].End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
.[A1].CurrentRegion.Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 94
主題: 16
精華: 0
積分: 128
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-1-30
最後登錄: 2015-11-17

4^#

發表於 2012-3-16 15:26 | 只看該作者

回復 3# owen9399

請問大大這個我修改卻不能有誤
我套別的檔案

業務員業績表合併0316.rar (118.54 KB)

owen

中學生 Rank: 2

帖子: 94
主題: 16
精華: 0
積分: 128
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-1-30
最後登錄: 2015-11-17

3^#

發表於 2012-3-16 14:57 | 只看該作者

回復 2# register313

非常感謝大大的指導

真的很棒

owen

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

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

2^#

發表於 2012-3-16 13:34 | 只看該作者

回復 1# owen9399

Sub xx()
With Sheets("全部合計")
.Columns("A:D") = ""
Sheets("小型公司").Range("A1:D" & Sheets("小型公司").[D65536].End(xlUp).Row).Copy .[A1]
Sheets("大型公司").Range("A2:D" & Sheets("大型公司").[D65536].End(xlUp).Row).Copy .[A65536].End(xlUp).Offset(1, 0)
.[A1].CurrentRegion.Sort Key1:=.[A1], Order1:=xlAscending, Header:=xlGuess
End With
End Sub

複製代碼

靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。

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