Здравствуйте, помогите удалить макросом абсолютно все пробелы из столбца A2:A, тип данных случайный! Перепробовал все, что мог, не удаляет только последний пробел в конце 2 550 000 р. Реализовать нужно в виде кнопки
Юрий М, А можно это в виде кнопки сделать, я в макросах не понимаю, мне нужно чтоб кнопку нажал и в столбце A2:A все очистилось. Я попробовал этот код вставить в кнопку не заработало
Странно - у меня замена сработала: выделил столбец, Ctrl+H, в верхнее поле написал пробел, нижнее поле оставил пустым - Заменить всё. А вот и макрос на кнопку:
Код
Sub qqq()
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastRow
Cells(i, 1) = Replace(Cells(i, 1), " ", "")
Next
End Sub
Юрий М, Макрос везде удалил пробелы, а у 2 550 000 р. нет, почему то только у этого числа не удаляет последний пробел. Этот пробел мне весь мозг уже вынес. Прикладываю результат
Sub qqq()
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastRow
Cells(i, 1) = Replace(Cells(i, 1), " ", "")
Cells(i, 1) = Replace(Cells(i, 1), Chr(160), "")
Next
End Sub
Юрий М, Блин, реально помогло! Спасибо огромное! Вчера вечер мучился, сегодня все утро, че за хрень такая думаю. Первый раз слышу о таком пробеле, по мимо обычного и неразрывного пробела еще какие нибудь существуют? А то попадется какой нибудь еще и печаль будет!
Sub test()
Dim z, t$, i&: z = Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\s+"
For i = 1 To UBound(z): t = z(i, 1):t = Replace(t, Chr(160), "") : z(i, 1) = .Replace(t, ""): Next
Range("A3").Resize(UBound(z), 1).Value = z
End With
End Sub