循环相同装备名,获得列替换的vb代码excel

meinvwudi

Sub 循环语句()
    Dim i As Integer
    Dim j As Integer
    
    For i = 1 To 97
        If Cells(i, 1) = "" Then
            Exit For
        End If
        
        For j = 100 To 300
            If Cells(j, 1) = "" Then
                Exit For
            End If
            
            If Cells(j, 1) = Cells(i, 1) Then
                If Len(Cells(j, 2)) > 2 Then
                    Cells(i, 2) = Cells(j, 2)
                End If
                If Len(Cells(j, 3)) > 2 Then
                    Cells(i, 3) = Cells(j, 3)
                End If
                If Len(Cells(j, 4)) > 2 Then

                    Cells(i, 4) = Cells(j, 4)
                End If

                If Len(Cells(j, 5)) > 2 Then
                    Cells(i, 5) = Cells(j, 5)
                End If        
                
            End If
        Next
    Next
End Sub