VBA 運算後自動換行 - Excelㄧ般區

[發問] VBA 運算後自動換行

1^# 跳轉到 »

發表於 2018-8-13 10:05 | 顯示全部帖子

dim xEnd as range, xR as range
set xEnd=cells(rows.count,1).end(xlup)
if xEnd<>"" then set xEnd=xEnd(2)
for each xR in xEnd.resize(7)
xR=???
next

2^#

發表於 2018-8-13 16:39 | 顯示全部帖子

回復 5# a5007185

如果最後一格非空, 往下移一格
set xEnd=xEnd.CELLS(2, 1) 與這個意思相同
也可以 set xEnd=xEnd(2, 1)

同欄, 所以可省略第二參數

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。