Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Макрос Selection.FormulaR1C1 Синтаксис. Нужно добавить знак Пробел

Автор Александр Сергеевич, 29.08.2017, 13:21

« назад - далее »

Александр Сергеевич

Здравствуйте, нужна помощь.
В макросе для сцепления ячеек использую
Selection.FormulaR1C1= "=RC[-5] & RC[-6]"
Ячейка & Ячейка.
Соответственно данные склеиваются без пробела  :(
Подскажите как добавить  в конструкцию, что бы был разделитель "пробел" между данными из ячеек.
P.S -  можно конечно указать ячейку в которой поставить пробел и добавить в конструкцию, но это не вариант!
Пробовал добавить & " " & - к сожалению не работает.
Для работы: выделяем диапазон куда будут вставляться значения, запускаем макрос.
Текст макроса:
Sub Klass_r1()
Application.ScreenUpdating = False
    Selection.FormulaR1C1 = "=RC[-5] & RC[-6]"
    Selection.Copy
       
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.Replace What:="Изделие с зажимом", Replacement:="Зажим"
    Selection.Replace What:="Самоконтрящаяся гайка", Replacement:="Гайка"
End Sub



runner


Александр Сергеевич

#2
Спасибо большое, заработало )))

kuklp

Sub Klass_r1()
    With Selection
        .Value = Evaluate(Selection.Offset(, -5).Address(, , xlR1C1) _
        & "&"" ""&" & Selection.Offset(, -6).Address(, , xlR1C1))
        .Replace "Изделие с зажимом", "Зажим"
        .Replace "Самоконтрящаяся гайка", "Гайка"
    End With
End Sub
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771