標題: 請問那裡錯了 [打印本頁]

---

作者: mmggmm    時間: 2011-4-28 22:38     標題: 請問那裡錯了

Sub Ex()
    With Sheets("FORM").Range("C7:K12")
        Sheets("Data").[A65536].End(xlUp).Offset(1, 0) = Cell.Resize(1, 9).Value
    End With
End Sub

---

作者: mark15jill    時間: 2011-4-29 10:41

顯示 須要有物件..
data 活頁簿有存在嗎

---

作者: mmggmm    時間: 2011-4-29 11:36

我是想把Sheets("FORM").Range("C7:K12")資料儲存至Sheets("Data")

---

作者: mark15jill    時間: 2011-4-29 12:54

還是不懂您的意思...
如果僅僅是要將小範圍的資料儲存的話
不用用到         Sheets("Data").[A65536].End(xlUp).Offset(1, 0) = Cell.Resize(1, 9).Value
太麻煩了...

以下提供一個簡單的方法..(因不知道您所要貼上的是data的哪些欄位 所以 預設相同位置)

    Sheets("Data").Range("c7:k12").Value = Sheets("FORM").Range("c7:k12").Value

---

作者: mmggmm    時間: 2011-4-29 14:27

本帖最後由 mmggmm 於 2011-4-29 14:28 編輯

對不起,可能我表達不明,Sheets("FORM").Range("c7:k12")資料可以在Sheets("Data") A:J 欄開始儲存(可以累積儲存)

---

作者: Hsieh    時間: 2011-4-29 14:41

Sub Ex()
    With Sheets("FORM").Range("C7:K12")
        Sheets("Data").[A65536].End(xlUp).Offset(1, 0).Resize(1, 9) = .Value
    End With
End Sub

---

作者: GBKEE    時間: 2011-4-29 16:03

回復 5# mmggmm

1. Sub Ex()
   
2.     With Sheets("FORM").Range("C7:K12")
   
3.         .Copy Sheets("Data").[A65536].End(xlUp).Offset(1, 0)
   
4.         '上式 -> 複製 到指定位置         下式 -> 指定同樣大小的範圍=的值
   
5.         Sheets("Data").[A65536].End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count) = .Value
   
6.     End With
   
7. End Sub

複製代碼

---

作者: mmggmm    時間: 2011-4-29 16:07

本帖最後由 mmggmm 於 2011-4-29 21:18 編輯

多謝Hsieh  GBKEE 兩位指導

---

作者: tku0216    時間: 2011-11-23 11:42

不好意思，我想請教大大們，關於留言者的目的是將資料直接從另一個工作表複製到另一個資料表，並預留第一列，從第二列開始貼上。
既然如此，為何大大的程式碼不直接從"data"工作表的a2開始貼上即可呢？
所以Hsieh版主的程式是否可以改成：
                         Sheets("Data").range("a2").Resize(1, 9) = .Value

還是大大們這樣寫，有特別的想法跟用意?

---

作者: oobird    時間: 2011-11-23 13:30

樓主是說：資料可以在Sheets("Data") A:J 欄開始儲存(可以累積儲存)
你改成Sheets("Data").range("a2").Resize(1, 9) = .Value
就永遠在A2開始的儲存格寫入，把原來的資料覆蓋掉了。

---

作者: tku0216    時間: 2011-11-23 16:53

喔喔。原來如此，多謝，我瞭解了。

---

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