.LineStyle和.Weight VBA格式错误-

我正在运行此代码来修复工作簿中的FOMATT，在某些情况下它似乎工作正常，但在某些情况下，它会在.Linestyle或.Weight中以“1004 Error”消息停止。有人对这里可能出现的错误有什么建议吗？非常感谢

'调整列的宽度并固定格式

Columns("A:D").AutoFit`

With Sheets("Sheet1")`
    .Cells.Font.Size = 8`
End With`

Set rng1 = Columns("A:F")`
Set rng2 = Rows("1:10")`

With rng1.Borders`
    .LineStyle = xlContinuous`
    .Weight = xlHairline`
End With`

With rng2.Borders`
    .LineStyle = xlNone`
End With`

---

使用图纸（“图纸1”）在

内设置范围。。。以

结束

With Sheets("Sheet1")
    .Columns("A:D").AutoFit
    .Cells.Font.Size = 8
    Set rng1 = .Columns("A:F")
    Set rng2 = .Rows("1:10")
End With

With rng1.Borders
    .LineStyle = xlContinuous
    .Weight = xlHairline
End With`

With rng2.Borders
    .LineStyle = xlNone
End With

---

当您退出与…的关联时，您失去了父工作表关联。。。以结束。

非常感谢。虽然可能会干扰以前的格式设置，但我似乎仍然会收到错误，刷新时会导致错误。在我刷新并将其放回之前，是否需要将边界移走？或者其他建议？不，边框格式应该只采用新设置。fwiw，我确实运行了那段代码，它运行得很好。这是奇怪的部分，它有时运行得很好，而有些则没有！