標題: [發問] VBA多欄自動向下填滿 [打印本頁]

---

作者: msmplay    時間: 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

---

作者: stillfish00    時間: 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

複製代碼

---

作者: msmplay    時間: 2016-6-8 20:15

回復 2# stillfish00

s大~~~~~感謝感謝!!!已解決小妹問題!!!非常謝謝您熱心幫忙喔!!!

---

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