暱稱: 阿佐 頭銜: 上班無聊打怪去
中學生
- 帖子
- 108
- 主題
- 1
- 精華
- 0
- 積分
- 113
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 臺灣
- 註冊時間
- 2017-9-7
- 最後登錄
- 2019-2-27
 
|
7#
發表於 2018-8-9 11:34
| 只看該作者
回復 6# 997531
目前我想到的最佳解必須開啟巨集,
首先你先按下列步驟開啟開發者模式,
https://ppt.cc/fU3nhx
然後將下面這段程式碼貼在模組中。- Function RowLastData(SheetName As String, PT As Range)
- RowLastData= Sheets(SheetName).Cells(Cells.Rows.Count, PT.Column).End(xlUp)
- End Function
複製代碼
這個是自創函數,
主要功能是回傳該儲存格所屬的欄位中最後一筆的資料
RowLastData(工作表名稱,儲存格)
例1:RowLastData("登記表",登記表!F3)="10800"
即代表在「登記表」這個工作表中,與「登記表!F3」相同的欄位「F」最後一筆的資料是「10800」
例2:RowLastData("庫存表",登記表!D3)="A20"
即代表在「庫存表」這個工作表中,與「登記表!D3」相同的欄位「D」最後一筆的資料是「A20」
試作.zip (27.91 KB)
|
|