- 帖子
- 7
- 主題
- 3
- 精華
- 0
- 積分
- 10
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 64
- 閱讀權限
- 10
- 註冊時間
- 2015-8-2
- 最後登錄
- 2019-8-23
|
不確定格子向下填滿
請教各位前輩，小弟知道自已寫的句子，可以在有A欄有值情形下，
可以在尾欄下拉自動填滿
但是會遇到的情形並不一定會是在A欄有值
也許會是在E或 F或不確定某欄會出現第一欄
取第一格的列 = Selection.Row
取第一格的數量 = Selection.Count
With Selection.Resize(Range("A1").CurrentRegion.Rows.Count + 1 - 取第一格的列, 取第一格的數量)
'這一句小弟想破頭也不會~~~請各位大大指導
.FillDown
ActiveSheet.Range("A1").CurrentRegion.Calculate
.Copy
.PasteSpecial Paste:=xlPasteValues
End With |
-
-
未命名.jpg
(139.18 KB)
|
發表於 2016-3-15 22:01
| 
