| Код |
|---|
Sub P() Dim Nachalo As Long, lngKonec As Long Dim i As Long Dim uu As String lngKonec = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).row Nachalo = НачалоДанных For i = Nachalo To lngKonec Step 1 uu = Cells(i, 9) If Right(uu, 2) = ".," Or Right(uu, 2) = ".." Then uu = Left(uu, Len(uu) - 1) 'если после этой строки поставить Stop , то в переменной uu будет видна замена, но ' в самом файле ничего не происходит Next i End Sub |
удалить последнюю запятую(знак) в ячейках, не могу наладить макрос по удалению последней запятой
|
24.01.2019 12:45:42
Вы получаете новую строку, но не присваиваете ее ячейке
|
|
|
|
|
|
24.01.2019 12:48:16
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|||
|
|
|
|
24.01.2019 12:56:29
Ігор Гончаренко, спасибо за помощь!
|
|
|
|
|
|
24.01.2019 13:55:38
а почему , если справа будет пусто,т.е. вообще нет знаков никаких, макрос никак не видит эту тему? это как то системно чтоли? должно быть обязательно некоторое значение??
|
|||
|
|
|
|
24.01.2019 14:16:30
никогда ДВА правых (два любых) символа не будут равны ОДНОМУ пробелу (одному символу)
If Right(uu, 2) = " " Then Cells(i, 9) = Trim(uu) & "."
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|
|
|
|
|
24.01.2019 14:27:02
Ігор Гончаренко, всё, спасибо- перечитал ваше сообщение ещё раз- разобрался таки с Вашей помощью, всё понятно теперь и если без знаков
|
||||
|
|
|
|||
