主题：当前行的行高，根据该单元格的内容所需，自动调整行高，当鼠标离开该单元格时，改行恢复默认行高？

If e.OldRange.RowSel >= e.Table.Rows.count Then
    e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
End If

加如代码测试弹出你的表名称

msgbox(e.Table.name & " " & CurrentTable.name)
If e.Table.name = CurrentTable.name Then
    msgbxo(2)
    If e.Table.name = "仓管表窗口_入库明细表" Then
        If e.OldRange.RowSel >= e.Table.Rows.count Then
            e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
        End If
    Else
        If e.OldRange.RowSel >= e.Table.Rows.count Then
            e.Table.grid.Rows(e.OldRange.RowSel+e.Table.HeaderRows).height = e.Table.DefaultRowHeight
        End If
    End If
End If