帖子: 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")或者更多
之後在刪除第一欄資料為空白的資料達到我要的方式

樓主熱帖

字典兩各字還真難理解

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2010-7-14 21:57 | 只看該作者

回復 1# 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

老夏

中學生 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