返回列表 上一主題 發帖

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

[發問] 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
*宅女一枚無誤*

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

回復 2# stillfish00

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

TOP

        靜思自在 : 不要小看自己,因為人有無限的可能。
返回列表 上一主題