提取一列中最后填入單元格的數(shù)方法有很多,，函數(shù)法,、VBA方法。

一,、函數(shù)法

1,、在F20輸入公式：=OFFSET(F5,COUNT(F5:F19)-1,0,1)

執(zhí)行公式后的結果

當然函數(shù)法也很簡單，也不容易出錯,。但是我認為VBA處理的方式更好

PS: 其實有函數(shù)的函數(shù)可以得到這些值

1,、=INDEX(B:B,LARGE(IF(B1:B65000='',0,ROW(B1:B65000)),1))，這個也可以得到所需的值

2,、=LOOKUP(9E 307,A:A)

3,、數(shù)組公式 =INDEX(A:A,MATCH(2,1(INDIRECT('A1:A'&'65535')'')))

二、 VBA法

1,、打開Excel軟件,，確定原數(shù)據(jù)，插入表單控件,。

2,、ALT F11打開VBA代碼編輯器,，輸入如下的代碼,。均可得到所需的值

Sub LastCell()

Dim rng As Range

Set rng = Cells(Rows.Count, 1).End(xlUp)

Cells(1, 2).Value = rng.Value

With Range('B1')

.Font.Bold = True

.Interior.ColorIndex = 3

.Select

End With

MsgBox 'A列的最后一個非空單元格是' & rng.Address(0, 0) _

& ',行號' & rng.Row & ',數(shù)值' & rng.Value

End Sub

1.從A列的最后的最下面的單元格往上找，直到有數(shù)據(jù)的單元格,，找到的是從下到上第一個有數(shù)據(jù)的單元格的行號Cells(Rows.Count, 1).End(xlUp)

2.選擇有數(shù)據(jù)的單元格Range('b1'),，單元格的表示方式，將最后一個值寫入但單元格B1,，對單元格字體加粗,、底色紅色，并選擇,。

3.彈出提醒窗口,，里面有提示內容 MsgBox '列中最后一個數(shù)據(jù)單元格找到了！'

PS:代碼一定要書寫正確,。

若有需要幫忙設計或者有不同的意見可以在添加關注后,，私信我?？梢詼贤ˋnd交流,。學無止境，一切都是最好的安排,。