提取一列中最后填入单元格的数方法有很多,函数法、VBA方法。
一、函数法
1、在F20输入公式:=OFFSET(F5,COUNT(F5:F19)-1,0,1)
执行公式后的结果
当然函数法也很简单,也不容易出错。但是我认为VBA处理的方式更好
PS: 其实有函数的函数可以得到这些值
1、=INDEX(B:B,LARGE(IF(B1:B65000='',0,ROW(B1:B65000)),1)),这个也可以得到所需的值
2、=LOOKUP(9E 307,A:A)
3、数组公式 =INDEX(A:A,MATCH(2,1(INDIRECT('A1:A'&'65535')'')))
二、 VBA法
1、打开Excel软件,确定原数据,插入表单控件。
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 & ',数值' & rng.Value
End Sub
1.从A列的最后的最下面的单元格往上找,直到有数据的单元格,找到的是从下到上第一个有数据的单元格的行号Cells(Rows.Count, 1).End(xlUp)
2.选择有数据的单元格Range('b1'),单元格的表示方式,将最后一个值写入但单元格B1,对单元格字体加粗、底色红色,并选择。
3.弹出提醒窗口,里面有提示内容 MsgBox '列中最后一个数据单元格找到了!'
PS:代码一定要书写正确。
若有需要帮忙设计或者有不同的意见可以在添加关注后,私信我。可以沟通And交流。学无止境,一切都是最好的安排。
联系客服