請問 : 如何以程式複製 Row 到另一個 Sheet ..
- 帖子
- 53
- 主題
- 13
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- Windows 8 x64
- 軟體版本
- Office 2013
- 閱讀權限
- 20
- 性別
- 女
- 來自
- Taipei
- 註冊時間
- 2013-6-3
- 最後登錄
- 2015-1-28
|
請問 : 如何以程式複製 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
|
|
|
|
|
- 帖子
- 181
- 主題
- 5
- 精華
- 0
- 積分
- 197
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2000
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2014-3-9
- 最後登錄
- 2024-4-29
|
2#
發表於 2015-1-2 15:08
| 只看該作者
Sheet2.Rows(1).Copy
Sheet1.Rows(1).PasteSpecial |
|
|
|
|
|
|
- 帖子
- 53
- 主題
- 13
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- Windows 8 x64
- 軟體版本
- Office 2013
- 閱讀權限
- 20
- 性別
- 女
- 來自
- Taipei
- 註冊時間
- 2013-6-3
- 最後登錄
- 2015-1-28
|
3#
發表於 2015-1-2 19:46
| 只看該作者
回復 2# bobomi
謝謝 bobomi 大
以解決了..
我好笨阿 :'( |
|
小妹在此向各位大大求教了 Orz
|
|
|
|
|
- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
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"就可以了 |
|
|
|
|
|
|
- 帖子
- 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) |
|
|
|
|
|
|