Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Преобразование текста в число не работает на VBA
 
#1
12.10.2016 09:58:29
Добрый день!

Пробую преобразовать текст в число на VBA
Код
    Range("WWW1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L2:L" & LastRow).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:= _
        True, Transpose:=False
Почему-то не работает.
Пробую сделать тоже самое но вручную, все ок.
 
 
 
#2
12.10.2016 10:04:56
Покажите, пжста, часть кода с определением LastRow.
 
 
 
#3
12.10.2016 10:05:57
Весь код
Код
LastRow = Cells(Rows.Count, 3).End(xlUp).Row
 
 
 
#4
12.10.2016 10:07:45
лучше файл с не работающим кодом покажите.
П.С. от Select-ов желательно избавляться.
например:
Код
Range("WWW1").Select
        Selection.Copy
пишется так
Range("WWW1").Copy
Изменено: V - 12.10.2016 10:09:42
 
 
 
#5
12.10.2016 10:09:13
Пока ошибки не вижу. А приложите файл, в котором возникает ошибка.
 
 
 
#6
12.10.2016 10:17:40
Вот пример
 
 
 
#7
12.10.2016 10:50:49
Вот ZVI когда-то выкладывал
Код
Sub Работать_За_Меня()
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2:A" & LastRow) = Application.Substitute(Range("A2:A" & LastRow), ",", ".")
End Sub
 
 
 
#8
12.10.2016 11:03:11
Kuzmich, Работает!
Спасибо!!!
 
 
 
#9
12.10.2016 12:18:03
Проще:
Код
Public Sub www()
    With Intersect(ActiveSheet.UsedRange, ActiveSheet.[a:a])
        .FormulaLocal = .FormulaLocal
    End With
End Sub

или:
Код
Public Sub www():Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).TextToColumns:End Sub
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх