COLUMN引申问题

156595311

上下单元不同则该行的使用区域底部双边框。

方漠

Sub 双边框()
Application.ScreenUpdating = False
For I = 2 To Cells(65536, 3).End(xlUp).Row + 1
  If Cells(I, 3) <> Cells(I + 1, 3) And Cells(I + 1, 3) <> "" Then
     Range("A" & I & ":E" & I).Borders(xlEdgeBottom).LineStyle = xlDouble  '这个3要怎么改才会令到其该行的使用区域底部都加到双边框
  End If
Next I
Application.ScreenUpdating = True
End Sub

方漠

单元格在VBA表达的三种方式:

[A1]="ABC"

Range("A1")="ABC"

Cells(1, 1)="ABC"

以上运行结果都是一样的.

156595311

这个已经解决了。谢谢！