Excel VBA:跳过for循环中复制的单元格

Sub CopyCells()
    Dim rngSource As Range
    Dim rngDestination As Range
    Dim i As Long
    
    ' 设置源单元格和目标单元格范围
    Set rngSource = Range("A1:A10")
    Set rngDestination = Range("B1:B10")
    
    ' 循环复制单元格
    For i = 1 To rngSource.Rows.Count
        ' 判断是否需要跳过复制操作
        If rngSource.Cells(i, 1).Value = "跳过" Then
            Continue For
        End If
        
        ' 复制单元格
        rngSource.Cells(i, 1).Copy rngDestination.Cells(i, 1)
    Next i
End Sub