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

一、函數(shù)法

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

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

當(dāng)然函數(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.彈出提醒窗口，里面有提示內(nèi)容 MsgBox '列中最后一個數(shù)據(jù)單元格找到了！'

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

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