VBA: удалить лишние символы после н-ного - есть ответ

неПитерская, 490 просмотров

Привет!
Помогите, пожалуйста, разобраться. У меня есть лист, колонка B заполнена чем-то таким:
RUR2342527kdefgei94j58h
EUR345-8229-209=649jkfd
USD
EURkjl93j85heiur3902jf934
RUR0984ji3u84ht3948h890
RUR
USD34798246-0284098090

Как мне из VBA заменить содержимое тех же ячеек на соответственно RUR/USD/EUR? Пробовала обрезать, но почему-то не работает
Range("B1").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],3)"

Вроде всё просто, но почему-то формула не отрабатывает, вот странность. Может кто подскажет почему или с чем связано, а может - другой способ?

Заранее - СПАСИБО!

Ответы:

madsmilexd

а нельзя заменить в соседний столбец? или еще какой?
просто если так, то можно же в столбец рядом вставить формулу =ЗАМЕНИТЬ(А1;4;100;)
а потом просто скопировать значения результата

Без имени

код "ходит" по первому столбцу первого листа пока в этом столбце есть данные и вырезает первые три символа, вставляяя их во второй столбец:
Dim wsSh As Worksheet
Dim j As Double
Set wsSh = Sheets(1)
With wsSh
For j = 1 To 60000
If .Cells(j, 1) <> "" Then
.Cells(j, 2).Value = Left(.Cells(j, 1), 3)
End If
Next
End With

Алексей Матевосов

Можно так
Range("B1").Value = Left(Range("B1").Value, 3)

10 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.