Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как заставить работать макрос в разных документах
 
В 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
Редактирование числовых ячеек
 
Если не сложно, напишите пожалуйста формулу для следующего:  
 
1.Если в ячейке 9 или меньше цифр, то ячейка должна удалиться.  
2.Если в ячейке на первом месте стоит цифра "8" и там 10 цифр ячейка тоже должна удалиться.  
3.Если в ячейке на первом месте не "8" и там 10 цифр, должна добавиться цифра "8" на первое место.
Как оставить только 11-значные числа в ячейках?
 
В ячейках имеется текст, и два типа чисел (5-ти и 11-значные). Помогите пожалуйста, как оставить только 11-значные числа. С помощью макроса, формулы, сортировки?
Страницы: 1
Наверх