返回列表 上一主題 發帖

格子選取問題

格子選取問題

本帖最後由 d8722468 於 2016-1-29 10:53 編輯

請教各位前輩~~~

例附件中若程式為
  With Range("B2")
      .AutoFill Destination:=Range("B2:B" & [A2].End(xlDown).Row)
End With
指的是將B2的內容向下填滿到B欄的最底一格

但是小弟想求教的是若是要開始的格子,  是用滑鼠自行選擇的任一個
B欄中的某一格,也許是B4,B100不一定
請問要如何寫出程式~~~

Sub test()
    ActiveCell.AutoFill Destination:=Range("B" & ActiveCell.Row & ":B" & [A2].End(xlDown).Row)
End Sub

TOP

回復 2# yen956


謝謝 yen956大大幫忙
小弟測試成功~~非常感謝

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題