1. 确保工作表名称在代码中正确。例如，如果你的工作表名为“Sheet1”，代码需要匹配。如果你的工作表名称不同，请替换 Set ws = ThisWorkbook.Sheets("Sheet1") 中的“Sheet1”。
2. 确保工作簿中确实存在该工作表。

Sub AddVideosToColumnH()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 请根据实际工作表名称修改
    
    ' 找到H列的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "H").End(xlUp).Row
    
    ' 从H2开始遍历
    For i = 2 To lastRow
        If ws.Cells(i, "H").Value <> "" Then ' 检查H列是否有值
            ws.Cells(i, "H").Value = ws.Cells(i, "H").Value & "/videos"
        End If
    Next i
End Sub