帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2011-4-29 10:41 | 只看該作者

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

TOP

mmggmm

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

3^#

發表於 2011-4-29 11:36 | 只看該作者

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

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 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

TOP

mmggmm

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

5^#

發表於 2011-4-29 14:27 | 只看該作者

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

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 85
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-4-9

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 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

學海無涯_不恥下問

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2011-4-29 16:03 | 只看該作者

回復 5# mmggmm

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

複製代碼

TOP

mmggmm

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

8^#

發表於 2011-4-29 16:07 | 只看該作者

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

多謝Hsieh GBKEE 兩位指導

TOP

tku0216

中學生 Rank: 2

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

9^#

發表於 2011-11-23 11:42 | 只看該作者

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

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

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

10^#

發表於 2011-11-23 13:30 | 只看該作者

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

TOP