- 帖子
- 75
- 主題
- 8
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2015-4-19
- 最後登錄
- 2024-8-10
|
6#
發表於 2019-5-19 11:50
| 只看該作者
回復 1# qqueenaa
改為由下往上找,這樣就不會找到最大的數
r = Sheets("訂購表").Cells(Rows.Count, "A").End(xlUp).Row + 1
test0101.zip (48.21 KB)
|
|