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

請問 : 如何以程式複製 Row 到另一個 Sheet ..

saleen

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-1-2 13:43 | 只看該作者

請問 : 如何以程式複製 Row 到另一個 Sheet ..

本帖最後由 GBKEE 於 2015-2-20 15:23 編輯

是這樣的
小妹想將 Sheet2 中的 Row1 整行複製到 Sheet1 中的 Row1 貼上( 涵式貼上非只貼數值 )
想說這個動作很簡單
結果實際上卻碰到一堆問題
這是我爬了好多文寫出來的

'Sheets("Sheet2").Select
'Rows("1:1").Select
'Selection.Copy
'Sheets("Sheet1").Select
'Rows("1:1").Select
'Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
'SkipBlanks:=False, Transpose:=False

每 5 秒執行一次
但我發現這樣根本不行 , Excel 會一直跳回 Sheet1
這樣我都不能做其他的事了....
後來我就爬了更多文
發現居然中文英文都找不到這麼簡單問題的解答...Orz

還請各位大大幫幫小妹了

樓主熱帖

小妹在此向各位大大求教了 Orz

changxxx

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Win7 32
軟體版本: Office2013
閱讀權限: 10
性別: 男
來自: Keelong
註冊時間: 2015-2-14
最後登錄: 2015-3-16

5^#

發表於 2015-2-22 11:00 | 只看該作者

可以試試
Sheets("Sheet2").Rows(1).Copy Sheets("Sheet1").Cells(1, 1)

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2015-2-20 21:20 | 只看該作者

本帖最後由 lpk187 於 2015-2-20 21:22 編輯

Sheets("Sheet2").Select
Sheets("Sheet1").Rows("1:1") = Sheets("Sheet2").Rows("1:1").FormulaLocal

用copy有時會把格線也複製過來如果只要複製公式只要加上公式屬性".FormulaLocal"就可以了

TOP

saleen