帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-7-14 20:17 | 只看該作者

(已解決)自動填滿可以自己蒐尋資料量嗎?

本帖最後由 freeffly 於 2012-2-22 17:16 編輯

Selection.AutoFill Destination:=Range("S2:S8213")
可以設定讓他隨資料多寡自動判斷區域嗎?
目前我都是將Range("S2:S8213")改為Range("S2:S20000")或者更多
之後在刪除第一欄資料為空白的資料達到我要的方式

樓主熱帖

字典兩各字還真難理解

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

7^#

發表於 2010-7-20 20:36 | 只看該作者

對不起
我的確應該要放到程式區發問
謝謝大大的回應

字典兩各字還真難理解

TOP

小誌

　暱稱: 小誌
　頭銜: 曾經也是水電工

管理員 Rank: 9 Rank: 9 Rank: 9

帖子: 1193
主題: 394
精華: 113
積分: 1747
點名: 1
作業系統: Vista
軟體版本: Office 2003
閱讀權限: 200
性別: 男
來自: 台灣
註冊時間: 2010-5-1
最後登錄: 2024-12-20

2021牛年全勤獎章好學求知勳章熱烈參與勳章 2017 雞年全勤獎章 2018 狗年全勤獎章 2019 豬年全勤獎章 2020鼠年全勤獎章

6^#

發表於 2010-7-16 05:05 | 只看該作者

回應老夏版大
注意樓主的提問"Selection.AutoFill Destination:=Range("S2:S8213")"這是一般操作的提問嗎? ...
victorl 發表於 2010-7-16 02:43

夏老大的意思是說,樓主的問題使用基本功夫就可解決,不需用到VBA,內建的功能就可解決
而你的回答是就樓主發問的方向加以延伸,基本上兩位的回答應該都可解決問題
不論黑貓白貓,能抓老鼠的就是好貓!!

心安，平安
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

TOP

victorl

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

5^#

發表於 2010-7-16 02:43 | 只看該作者

回應老夏版大
注意樓主的提問"Selection.AutoFill Destination:=Range("S2:S8213")"這是一般操作的提問嗎????
敝人才疏學淺，還望諸先進指教。

TOP

老夏

中學生 Rank: 2

帖子: 109
主題: 22
精華: 0
積分: 134
點名: 0
作業系統: Win7
軟體版本: Office 2000
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-5-1
最後登錄: 2023-3-5

論壇貢獻勳章

4^#

發表於 2010-7-15 07:19 | 只看該作者

本帖最後由老夏於 2010-7-15 15:22 編輯

victorl脫褲子放屁
*****************************************************
1.空白工作表>>D1鍵入1>>按Enter鍵>>選D1>>填滿下拉至第100列

2.E1鍵入1>>>>選E1:F1>>填滿雙擊

3.C1鍵入甲>>按Enter鍵>>選C1>>填滿雙擊
*****************************************************
萬事VBA,還甚麼程式區,自己不懂還,要誤導新手

這是基本操作,只會拖曳不懂得雙擊,捨簡就繁,問題越搞越複雜

[基本功]
http://forum.twbts.com/viewthread.php?tid=93

認識工作表
http://forum.twbts.com/viewthread.php?tid=707
********************************************************

freeffly:
問題丟出來,然後放假去,不回應問題,三天後再回來揀答案
這種心態最差勁,誰欠你?

給你列為拒絕往來戶,大家都不回應你問題

TOP

victorl

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

3^#

發表於 2010-7-14 23:13 | 只看該作者

回復 1# freeffly

首先，這個問題應該在"Excel程式區"發問吧!
其次，回應您的問題，假設以R column的資料量為依據可以寫成
Selection.AutoFill Destination:=Range("S2:S" & Range("R65536").End(xlUp).Row)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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