VBA 循环通过可见单元格

如何解决VBA 循环通过可见单元格

这个 VBA 过程从第一个到最后一个可见单元格循环以获取列 B 中的图像 URL，然后在列 C 中返回其图像。 在第一个和最后一个可见单元格之间，它会在过滤器中排除的行中选择其他图像 URL。 需要帮助调整代码以防止这种情况发生。

子插入图像()

Application.ScreenUpdating = False ' set to False to speed up the Macro
Application.Calculation = xlCalculationManual

Dim myPic As Object
Dim picpath As String
' Dim r As Long
Dim i As Long

Columns("C").ColumnWidth = 26

i = ActiveSheet.Range("A2",Cells(Rows.Count,1).End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1).Row

For i = i To ActiveSheet.Cells(Rows.Count,1).End(xlUp).Cells(1).Row

On Error Resume Next

Rows(i).RowHeight = 100      ' reset Row Ht to hold Picture size

picpath = ActiveSheet.Cells(i,2).Value

If Dir(picpath) <> "" Then
On Error Resume Next

    Set myPic = ActiveSheet.Shapes.AddPicture2( _
        Filename:=picpath,_
        LinkToFile:=msoFalse,_
        SaveWithDocument:=msoTrue,_
        Left:=3,_
        Top:=3,_
        Width:=-1,_
        Height:=-1,_
        Compress:=msoPictureCompresstrue)
        
        
        With myPic
            .Width = 24
            .Height = 100
            .Top = ActiveSheet.Cells(i,3).Top
            .Left = ActiveSheet.Cells(i,3).Left
            .LockAspectRatio = msoFalse
        End With
   
    End If
       
    Next i
       
 Application.ScreenUpdating = True
 Application.Calculation = xlCalculationAutomatic
       

结束子