Удаление лишних точек в ячейках
Павел_леваП
Дата: Суббота, 09.09.2017, 13:31 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Добрый день! прошу подскажите код для удаления лишних точек в ячейках. Файл пример во вложении.
Добрый день! прошу подскажите код для удаления лишних точек в ячейках. Файл пример во вложении. Павел_леваП
Ответить
Сообщение Добрый день! прошу подскажите код для удаления лишних точек в ячейках. Файл пример во вложении. Автор - Павел_леваП Дата добавления - 09.09.2017 в 13:31
Udik
Дата: Суббота, 09.09.2017, 14:49 |
Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Да тут и без макросов можноКод
=0+ПОДСТАВИТЬ(ПОДСТАВИТЬ(C1;".";"";2);".";",")
Да тут и без макросов можноКод
=0+ПОДСТАВИТЬ(ПОДСТАВИТЬ(C1;".";"";2);".";",")
Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Да тут и без макросов можноКод
=0+ПОДСТАВИТЬ(ПОДСТАВИТЬ(C1;".";"";2);".";",")
Автор - Udik Дата добавления - 09.09.2017 в 14:49
Павел_леваП
Дата: Суббота, 09.09.2017, 15:41 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Udik, спасибо! честно говоря мне такой вариант не подходит так как данных миллионы, и не хотелось бы еще более нагружать файл формулами.
Udik, спасибо! честно говоря мне такой вариант не подходит так как данных миллионы, и не хотелось бы еще более нагружать файл формулами. Павел_леваП
Сообщение отредактировал Павел_леваП - Суббота, 09.09.2017, 15:45
Ответить
Сообщение Udik, спасибо! честно говоря мне такой вариант не подходит так как данных миллионы, и не хотелось бы еще более нагружать файл формулами. Автор - Павел_леваП Дата добавления - 09.09.2017 в 15:41
Michael_S
Дата: Суббота, 09.09.2017, 16:16 |
Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация:
373
±
Замечаний:
0% ±
Excel2016
[vba]Код
Sub PointReplase() Dim Arr(), i&, Rn As Range Set Rn = Range("C1", Cells(Rows.Count, 3).End(xlUp)) Arr = Rn.Value For i = 1 To UBound(Arr) If Not IsNumeric(Arr(i, 1)) Then Arr(i, 1) = Val(Arr(i, 1)) Next Rn.Value = Arr End Sub
[/vba]
[vba]Код
Sub PointReplase() Dim Arr(), i&, Rn As Range Set Rn = Range("C1", Cells(Rows.Count, 3).End(xlUp)) Arr = Rn.Value For i = 1 To UBound(Arr) If Not IsNumeric(Arr(i, 1)) Then Arr(i, 1) = Val(Arr(i, 1)) Next Rn.Value = Arr End Sub
[/vba] Michael_S
Ответить
Сообщение [vba]Код
Sub PointReplase() Dim Arr(), i&, Rn As Range Set Rn = Range("C1", Cells(Rows.Count, 3).End(xlUp)) Arr = Rn.Value For i = 1 To UBound(Arr) If Not IsNumeric(Arr(i, 1)) Then Arr(i, 1) = Val(Arr(i, 1)) Next Rn.Value = Arr End Sub
[/vba] Автор - Michael_S Дата добавления - 09.09.2017 в 16:16
Udik
Дата: Суббота, 09.09.2017, 16:36 |
Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Michael_S , чет я сомневаюсь в действенности val в данном случае. Она обрежет все что за второй точкой подправить цикл надо [vba]Код
For i = 1 To UBound(Arr) If Not IsNumeric(Arr(i, 1)) Then Arr(i, 1) = Application.WorksheetFunction.Substitute( Arr(i, 1) , ".", "", 2) Arr(i, 1) = Val(Arr(i, 1)) end if Next
[/vba]
Michael_S , чет я сомневаюсь в действенности val в данном случае. Она обрежет все что за второй точкой подправить цикл надо [vba]Код
For i = 1 To UBound(Arr) If Not IsNumeric(Arr(i, 1)) Then Arr(i, 1) = Application.WorksheetFunction.Substitute( Arr(i, 1) , ".", "", 2) Arr(i, 1) = Val(Arr(i, 1)) end if Next
[/vba]Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Сообщение отредактировал Udik - Суббота, 09.09.2017, 16:54
Ответить
Сообщение Michael_S , чет я сомневаюсь в действенности val в данном случае. Она обрежет все что за второй точкой подправить цикл надо [vba]Код
For i = 1 To UBound(Arr) If Not IsNumeric(Arr(i, 1)) Then Arr(i, 1) = Application.WorksheetFunction.Substitute( Arr(i, 1) , ".", "", 2) Arr(i, 1) = Val(Arr(i, 1)) end if Next
[/vba]Автор - Udik Дата добавления - 09.09.2017 в 16:36
Павел_леваП
Дата: Суббота, 09.09.2017, 17:18 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Michael_S, спасибо! а как применить данный код к выделенным ячейкам, а не строго к столбцу С?
Michael_S, спасибо! а как применить данный код к выделенным ячейкам, а не строго к столбцу С? Павел_леваП
Сообщение отредактировал Павел_леваП - Суббота, 09.09.2017, 17:20
Ответить
Сообщение Michael_S, спасибо! а как применить данный код к выделенным ячейкам, а не строго к столбцу С? Автор - Павел_леваП Дата добавления - 09.09.2017 в 17:18
Павел_леваП
Дата: Суббота, 09.09.2017, 17:19 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Udik, [vba]Код
Dim Arr(), i&, Rn As Range Set Rn = Range("C1", Cells(Rows.Count, 3).End(xlUp)) Arr = Rn.Value For i = 1 To UBound(Arr) If Not IsNumeric(Arr(i, 1)) Then Arr(i, 1) = Application.WorksheetFunction.Substitute(Arr(i, 1), ".", "", 2) ' выдает ошибку в этой строке Arr(i, 1) = Val(Arr(i, 1)) End If Next
[/vba]
Udik, [vba]Код
Dim Arr(), i&, Rn As Range Set Rn = Range("C1", Cells(Rows.Count, 3).End(xlUp)) Arr = Rn.Value For i = 1 To UBound(Arr) If Not IsNumeric(Arr(i, 1)) Then Arr(i, 1) = Application.WorksheetFunction.Substitute(Arr(i, 1), ".", "", 2) ' выдает ошибку в этой строке Arr(i, 1) = Val(Arr(i, 1)) End If Next
[/vba] Павел_леваП
Ответить
Сообщение Udik, [vba]Код
Dim Arr(), i&, Rn As Range Set Rn = Range("C1", Cells(Rows.Count, 3).End(xlUp)) Arr = Rn.Value For i = 1 To UBound(Arr) If Not IsNumeric(Arr(i, 1)) Then Arr(i, 1) = Application.WorksheetFunction.Substitute(Arr(i, 1), ".", "", 2) ' выдает ошибку в этой строке Arr(i, 1) = Val(Arr(i, 1)) End If Next
[/vba] Автор - Павел_леваП Дата добавления - 09.09.2017 в 17:19
Udik
Дата: Суббота, 09.09.2017, 18:06 |
Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Excel 2016 х 64
Не знаю у меня без ошибок отработало.
Не знаю у меня без ошибок отработало. Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com
Ответить
Сообщение Не знаю у меня без ошибок отработало. Автор - Udik Дата добавления - 09.09.2017 в 18:06
Michael_S
Дата: Суббота, 09.09.2017, 18:24 |
Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация:
373
±
Замечаний:
0% ±
Excel2016
val в данном случае. Она обрежет все что за второй точкой
вообще-то да. Я не посмотрел, что точку нужно просто убрать., а не откинуть.а как применить данный код к выделенным ячейкам,
[vba][/vba]
val в данном случае. Она обрежет все что за второй точкой
вообще-то да. Я не посмотрел, что точку нужно просто убрать., а не откинуть.а как применить данный код к выделенным ячейкам,
[vba][/vba]Michael_S
Ответить
Сообщение val в данном случае. Она обрежет все что за второй точкой
вообще-то да. Я не посмотрел, что точку нужно просто убрать., а не откинуть.а как применить данный код к выделенным ячейкам,
[vba][/vba]Автор - Michael_S Дата добавления - 09.09.2017 в 18:24
KuklP
Дата: Суббота, 09.09.2017, 19:00 |
Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Варианты: [vba]Код
Public Sub www() Dim c As Range On Error Resume Next For Each c In Selection.SpecialCells(2, 2).Cells c = StrReverse(Replace(StrReverse(c.Value), ".", "", , 1)) 'or c = Evaluate("SUBSTITUTE(" & c.Address & ",""."","""",2)") Next End Sub
[/vba]
Варианты: [vba]Код
Public Sub www() Dim c As Range On Error Resume Next For Each c In Selection.SpecialCells(2, 2).Cells c = StrReverse(Replace(StrReverse(c.Value), ".", "", , 1)) 'or c = Evaluate("SUBSTITUTE(" & c.Address & ",""."","""",2)") Next End Sub
[/vba] KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Варианты: [vba]Код
Public Sub www() Dim c As Range On Error Resume Next For Each c In Selection.SpecialCells(2, 2).Cells c = StrReverse(Replace(StrReverse(c.Value), ".", "", , 1)) 'or c = Evaluate("SUBSTITUTE(" & c.Address & ",""."","""",2)") Next End Sub
[/vba] Автор - KuklP Дата добавления - 09.09.2017 в 19:00
Павел_леваП
Дата: Суббота, 09.09.2017, 19:08 |
Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Всем спасибо! работает!
Ответить
Сообщение Всем спасибо! работает! Автор - Павел_леваП Дата добавления - 09.09.2017 в 19:08