Question

我们正在寻找一些数据导入。有一个非常大的复杂工作表，其中一些项目使用一列中的单元格周围的边框组合在一起。项目被分组的唯一指示是该组被边界包围的事实。未分组的项目在单元格上没有左右边框（可能具有顶部和底部边框，因为上方和下方的项目可能已分组）。作为初始练习，我们想要添加一个列，如果项目已分组，则显示为true。因此，如果边框显示的值类似于一个。有谁知道这可能吗？

Answer 1

使用此自定义VBA功能：

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

它需要两个参数：单元格和边框索引（7 =左，8 =底部，9 =顶部，10 =右）。返回TRUE或FALSE。现在，如果您想获取有关单元格A1底部边框的信息，您应该：

=GetBorder(A1,8)

是否可以根据细胞边界的存在显示值？

1 个答案: