是否可以显示基于单元格边框的值?

我们正在考虑做一些数据导入。 有一个非常大的复杂的表单,其中有一些项目使用一列中的单元格周围的边框分组在一起。 项目被分组的唯一迹象是该组被边界包围。 未分组的项目在单元格上没有左右边界(可能有顶部和底部边界,因为上面和下面的项目可能会分组)。 作为初始练习,我们希望添加一个列,如果项目被分组,则显示true。 所以如果有一个边框显示一个值。 有谁知道这可能吗?

使用这个自定义的VBAfunction:

Public Function GetBorder(ByVal Rng As Range, Idx As Integer) As Boolean GetBorder = Rng.Borders(Idx).LineStyle <> xlNone End Function 

它有两个参数:边界的单元格和索引(7 =左边,8 =底部,9 =顶部,10 =右边)。 返回TRUEFALSE 。 现在,如果你想获得单元格A1底部边界的信息,你应该:

 =GetBorder(A1,8)