標題: 格子選取問題 [打印本頁]

---

作者: d8722468    時間: 2016-1-29 10:50     標題: 格子選取問題

本帖最後由 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不一定
請問要如何寫出程式~~~

[attach]23205[/attach]

---

作者: yen956    時間: 2016-1-29 11:17

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

---

作者: d8722468    時間: 2016-1-29 11:39

回復 2# yen956


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

---

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