Excel特殊贷款计算器问题：还款完成月份计算及行隐藏需求

方案1优化（逐行计算模式） #

1.1 隐藏结清后多余行 #

• 选中所有数据行（比如第2行到301行），点击「开始」选项卡→「条件格式」→「新建规则」
• 选择「使用公式确定要设置格式的单元格」，输入公式：=$D2<=0（假设D列是剩余本金）
• 点击「格式」→「字体」设置字体颜色为白色，或切换到「填充」设置背景色与表格背景一致；也可设置单元格行高为0实现隐藏
• 进阶自动隐藏：右键工作表标签→「查看代码」，粘贴以下VBA代码，每次计算后会自动隐藏剩余本金≤0的行（空行不隐藏）

Private Sub Worksheet_Calculate()
    Dim rng As Range
    Set rng = Range("D2:D301") '替换为你的剩余本金列范围
    For Each cell In rng
        cell.EntireRow.Hidden = (cell.Value <= 0 And cell.Value <> "")
    Next
End Sub

1.2 独立单元格显示结清月份 #

假设A列是还款日期、D列是剩余本金，在目标单元格（如F1）输入公式：

=TEXT(INDEX(A:A,MATCH(TRUE,D:D<=0,0)),"yyyy年mm月")

注：若需取首次本金归零前的最后一期，可将公式中的D:D<=0改为D:D<0，再结合EDATE函数往前推一个月

方案2：单公式实现结清月份 #

利用NPER函数近似计算，符合你允许±数月误差的要求：
假设B1=贷款金额、C1=年利率、D1=月还款额、E1=起始日期，目标单元格输入：

=TEXT(EDATE(E1,ROUND(NPER(C1/12,-D1,B1),0)),"yyyy年mm月")

说明：NPER返回总还款期数，取整后通过EDATE计算结清日期；误差源于实际最后一期还款额可能不足月还款额，但在允许范围内

内容的提问来源于stack exchange，提问作者Playing with GAS