Hi experts,
I need help trying to optimize the following loop. Can this be changed to non-looping method?
Thanks for any assistance you can provide.
I need help trying to optimize the following loop. Can this be changed to non-looping method?
VBA Code:
With .Cells(Lrow, "A")
If Not IsError(.Value) Then
If .Value Like "1.2.*" Then
If Not .Offset(1, 0).Value Like "#.*" And Not .Offset(1, 0).Value = "" Then
If Not .Offset(2, 0).Value Like "#.*" And Not .Offset(2, 0).Value = "" Then
If Not .Offset(3, 0).Value Like "#.*" And Not .Offset(3, 0).Value = "" Then
If Not .Offset(-1, 0).Value Like "3.*" And Not .Offset(-1, 0).Value = "" Then
If .Offset(0, 1) = "" Then
.Offset(0, 1).Value = .Value & " " & .Offset(1, 0).Value & " " & .Offset(2, 0).Value & " " & .Offset(3, 0).Value
End If
End If
End If
End If
End If
End If
End If
End With