請問一下大神這個語法如何修正有附檔案 - 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

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。