3-12单元格区域边界定位实例(获取最后付款金额和月份)学习笔记

案例应用1:获取最后付款金额和月份

function 实例(){
var LastCell=Sheets(1).Range("A999").End(xlUp);//获取A 列最后一个单元格
var Rngs=Sheets(1).Range("A2",LastCell);//获取要循环的单元格区域
for (var Rng of Rngs){
var val=Rng.End(xlToRight);//获取每行最后一个有值的单元格
var Month=Cells(1,val.Column);//获取每行最后一个有值的单元格对应的月份
Cells(Rng.Row,"o").Value2=val.Value()+"("+Month+")"//将数据写入o列
}
}

运行结果：