Question

我希望这个脚本检查A列上的单元格，如果它们中有URL链接，如果是，则执行一些剪切粘贴操作。

字符串＃5返回错误404，请帮助解决此问题！

Sub xxxxxx()
    Worksheets("1 (2)").Activate
    For i = 1 To 2200
        Range("A" & i).Select
        If (cell.Range("A1").Hyperlinks.Count >= 1) Then
            ActiveCell.Offset(1, 0).Range("A1").Select
            Selection.Cut
            ActiveCell.Offset(-1, 2).Range("A1").Select
            ActiveSheet.Paste
        End If
    Next i
End Sub

Answer 1

Per @Siddharth Rout post关于不使用Activate/Select，我在下面重写了您的代码。无需每次检查循环内的超链接，因为它总是检查单元格A1

Sub xxxxxx()
    Dim ws As Worksheet
    Set ws = Worksheets("1 (2)")

    Dim LastRow As Long
    LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

    If (ws.Range("A1").Hyperlinks.Count > 0) Then
        For i = 2 To LastRow
            Range("A" & i).Offset(-1, 2).Value = Range("A" & i).Value
            Range("A" & i).Clear
        Next i
    End If
End Sub

又一个Excel VBA 404错误

1 个答案: