在宏中设置边框时出错

Question

我正在运行一个宏来设置一组单元格的格式。

Public LastRow as Integer
Sub Formatting()
    LastRow = 20
    With ThisWorkbook.Sheets("Sheet1").Range("A15:" & "AA" & LastRow)
        .Borders.Weight = xlThin
    End With
End Sub

当我第一次运行宏时，但是第二次我收到以下错误 运行时错误'1004'： 无法设置Borders类的Weight属性。

此外，我现在无法手动更改受影响单元格的边框。我不确定发生了什么。我正在运行excel 2010

提前致谢，

Answer 1

少数事情

1. 请勿使用Function。使用Sub。如果要返回某些内容，请使用Function
2. 完全限定变量/对象
3. 我没有看到您在任何地方设置LastRow的值。

试试这个

Sub Formatting()
    Dim LastRow As Long
    LastRow = 20

    '~~> Change Sheet1 to the relevant sheetname or use Code Name
    With ThisWorkbook.Sheets("Sheet1").Range("A15:" & "AA" & LastRow)
        .Borders.Weight = xlThin
    End With
End Sub