时间戳

首页 > 解决方案 > 在我的工作表中为每个系列的重复项创建边框

excel - 在我的工作表中为每个系列的重复项创建边框

问题描述

我有一张非常大的表格，其中有一列中有必要的重复项组。

为了更容易阅读，我想在每一系列重复项周围加上边框。假设 A1 到 A5 都说香蕉，我想以此为边界。

我能够识别重复项并将它们加边界，但是当我尝试识别第一个重复项然后是最后一个重复项并与整个组边界时，我迷失了。

标签： excelvba

解决方案

作为示例代码，这里是使用Range.BoarderAround 方法一次将边界应用于一系列单元格的语法：

Sub ApplyBoarderToRangeTest()

Dim TargetRange As Range
Set TargetRange = ThisWorkbook.Sheets("Sheet1").Range("C2:C10")

TargetRange.BorderAround xlContinuous, xlMedium     'xlContinuous = 1, xlMedium = -4138 for late binding

'Now cells C2 to C10 have a medium weight continuous boarder around them.

End Sub

推荐阅读