В excel'е я не разбираюсь, имеется макрос, он работает в одном документе, что нужно сделать с этим макросом, чтобы он заработал в другом?
Sub test()
Dim i As Long, r As Range
For i = 89 To 2 Step -1
Set r = Cells(i, 1)
If Len® < 11 Or Not IsNumeric® Then
If Len® = 10 And Left(r, 1) <> 8 And IsNumeric® Then
Cells(i, 1) = Val("8" & r)
Else
r.Delete shift:=xlUp
End If
End If
Next i
End Sub
Sub test()
Dim i As Long, r As Range
For i = 89 To 2 Step -1
Set r = Cells(i, 1)
If Len® < 11 Or Not IsNumeric® Then
If Len® = 10 And Left(r, 1) <> 8 And IsNumeric® Then
Cells(i, 1) = Val("8" & r)
Else
r.Delete shift:=xlUp
End If
End If
Next i
End Sub