返回列表 上一主題 發帖

[發問] VBA多欄自動向下填滿

msmplay

帖子
218 
主題
73 
精華
0 
積分
290 
點名
0  
作業系統
WIN10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2014-5-19 
最後登錄
2022-11-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-6-7 20:34 | 只看該作者

[發問] VBA多欄自動向下填滿

不好意思想教請一下大師們~~~~~
以下為自行錄製測試巨集，希望能修改為每次按下「自動填滿」按鈕時，"U2:BU2"可依T欄資料多寡自動向下填滿

例如：
1. T欄資料只到T12時，按下「自動填滿」按鈕，"U2:BU2"自動向下填滿至12列即可
2. T欄資料到T500時，按下「自動填滿」按鈕，"U2:BU2"自動向下填滿至500列

求大師們幫幫忙囉~~~~~~

Sub 自動填滿()
    Range("U2:BU2").Select
    Selection.AutoFill Destination:=Range("U2:BU197")
    Range("U2:BU197").Select
End Sub
收藏 分享
*宅女一枚無誤*

msmplay

帖子
218 
主題
73 
精華
0 
積分
290 
點名
0  
作業系統
WIN10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2014-5-19 
最後登錄
2022-11-29 
3#
發表於 2016-6-8 20:15 | 只看該作者
回復 2# stillfish00

s大~~~~~感謝感謝!!!已解決小妹問題!!!非常謝謝您熱心幫忙喔!!!
*宅女一枚無誤*

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-6-8 10:43 | 只看該作者
回復 1# msmplay
  1. Sub 自動填滿()
  2.     Dim r
  3.     r = Cells(Rows.Count, "T").End(xlUp).Row
  4.     Range("U2:BU2").AutoFill Destination:=Range("U2:BU" & r), Type:=xlFillCopy
  5.     Range("U2:BU" & r).Select
  6. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題