請問一下大神這個語法如何修正有附檔案 - Office不分區

[發問] 請問一下大神這個語法如何修正有附檔案

1^# 跳轉到 »

發表於 2018-4-14 19:56 | 顯示全部帖子

回復 1# spensers
原：
r = Range("A1").End(xlDown).Row + 1

改成底下的試試看：
r = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1

靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。