返回列表 上一主題 發帖

格子選取問題

d8722468

帖子
7 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
WIN7 
軟體版本
64 
閱讀權限
10 
註冊時間
2015-8-2 
最後登錄
2019-8-23 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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不一定
請問要如何寫出程式~~~

收藏 分享

d8722468

帖子
7 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
WIN7 
軟體版本
64 
閱讀權限
10 
註冊時間
2015-8-2 
最後登錄
2019-8-23 
3#
發表於 2016-1-29 11:39 | 只看該作者
回復 2# yen956


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

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 2016-1-29 11:17 | 只看該作者
Sub test()
    ActiveCell.AutoFill Destination:=Range("B" & ActiveCell.Row & ":B" & [A2].End(xlDown).Row)
End Sub

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題