如何添加在Excel工作表中每2行放一个边框

Question

有人可以给我一些指导。我对VBA相当陌生。

将数据输出到工作表后，我想格式化它。

如何在使用VBA的Excel工作表中的每两行添加边框？

问候

科乔

Answer 1

通过使用便利命名的方法。

Dim i As Long 

For i = 1 To 10 Step 2 
    Me.Range(Me.Cells(i, 1), Me.Cells(i + 1, 10)).BorderAround xlSolid, xlMedium 
Next