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

[發問] 把指定資料複製到不同的分頁的最後一列下面

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2025-6-26

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-5-13 17:24 | 顯示全部帖子

[發問] 把指定資料複製到不同的分頁的最後一列下面

您好
我想把sheet1 指定的欄位值複製到Sheet2最後一列下面
而且每次複製都可以指定到Sheet2最後一列的資料的下面
但複製的語法我搞不訂
請問該如何處理
謝謝!!

以下程式，請幫我指點一下
Sub 巨集1()
Range("A1").Select
Selection.End(xlDown).Select
Sheet2.Range("A" & ActiveCell.Row + 1).Value = “”
End Sub

樓主熱帖

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2025-6-26

論壇贊助勳章

2^#

發表於 2014-5-14 09:08 | 顯示全部帖子

回復 2# yen956

謝謝您的回覆

不過我只會用簡單錄製巨集的方式
請問下面的巨集要如何修改,我才可以在不同分頁貼上數值

Sub 巨集1()
Sheets("工作表1").Select
Range("A2:B2").Select
Selection.Copy

Sheets("工作表2").Select
Range("A1").Select
Selection.End(xlDown).Select
Sheet2.Range("A" & ActiveCell.Row + 1).Value =

‘Selection.Insert Shift:=xlDown
;Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
‘:=False, Transpose:=False

End Sub

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2025-6-26

論壇贊助勳章

3^#

發表於 2014-5-14 11:13 | 顯示全部帖子

回復 3# pupai

請問
這一段巨集為什麼在2007的版本可以跑得動
2010就不可以呢

Sub Macro1()
Sheets("結果").Select
Range("A2:B2").Select
Selection.Copy
Sheets("清單").Select
'每次複製都可以指定到Sheet2最後一列的資料的下面
Range("A1").Select
Selection.End(xlDown).Select
Sheet3.Range("A" & ActiveCell.Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub