如何使用vba删除多个工作表中第一行的边框

Question

如何删除多个工作表中第一行的边框。每个工作表的列数都是可变的。

Answer 1

为什么要使用vba？假设所有工作表都是相同的格式，请选择所有工作表选项卡并对其进行更改。编写代码然后执行它需要更长的时间。

Answer 2

Sub Remove_Border()

Dim ws As Worksheet 
Dim LastCol As Long
Dim Colletter As String

For Each ws In Worksheets

 With ws
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    Colletter = Split(.Cells(, LastCol).Address, "$")(1)
 End With

ws.Range("A1:" & Colletter & "1").Borders.LineStyle = xlNone
Next ws
End Sub