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)

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

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。