如何使用VBA宏将连接列添加到每个工作表？

Sub AddHyperlinkColumnToWorksheets()
    Dim ws As Worksheet
    Dim lastColumn As Long
    
    ' 循环遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 获取当前工作表的最后一列
        lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
        
        ' 在最后一列的下一列插入连接列
        ws.Cells(1, lastColumn + 1).Value = "连接"
        ws.Cells(2, lastColumn + 1).Formula = "=HYPERLINK(""http://www.example.com"", ""链接文本"")"
    Next ws
End Sub