使用VBA将所有单元格与数据绑定，无数据单元格的所有单元格

我有单元格A4：E2000的数据。 我想要做的就是将包含数据的范围（A4：E2000）与边界相接。 但是，包含数据的范围单元是随机的。 所以我不想在代码中使用修复范围。

此外，没有数据的单元的其余部分被设置为无边界。

如何使用VBA做到这一点？

Answer 1

您可以使用更简单的条件格式来实现这一点。您将需要三个条件格式规则。 转到条件格式==>新规则==>使用公式。 为每个条件分别input这个公式。

第一条规则： =AND(A3="",A4<>"")适用于范围=$A$4:$E$2000 。 在格式化选项下selectUpper边框。

第二个规则： =AND(A5="",A4<>"")适用于范围=$A$4:$E$2000 。 在格式化选项下selectBottom边框。

第三条规则： =AND(B4="",A4<>"")适用于范围=$A$4:$E$2000 。 在格式化选项下selectRight框。

结果如下所示。 如果你想添加左边框，也可以使用与上面相同的逻辑。