標題: 只要貼上值 [打印本頁]

---

作者: mmggmm    時間: 2010-9-14 23:21     標題: 只要貼上值

Sheets(1).Range("D7:AS7").Copy ActiveCell
Range("D7:AS7")由公式產生請問如何才貼上值,謝謝

---

作者: oobird    時間: 2010-9-14 23:48

Sheets(1).Range("D7:AS7").Copy ActiveCell
加一行：
ActiveCell.resize(1,42)=ActiveCell.resize(1,42).value

---

作者: mmggmm    時間: 2010-9-15 12:46

[attach]2795[/attach]
為何結果有誤請指導,謝謝

---

作者: Hsieh    時間: 2010-9-15 13:12

1. Sub COPYA()
   
2. MsgBox "將A組第1週至第6週更期在此使用"
   
3.     ActiveCell.Resize(1, 42) = Sheets(1).Range("D7:AS7").Value
   
4. End Sub

複製代碼

---

作者: mmggmm    時間: 2010-9-15 14:21

本帖最後由 mmggmm 於 2010-9-17 17:42 編輯

已經可用了,叧請問如以sheet(2)
D欄為準每執行一次巨集向右填滿如何寫,謝謝.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)