Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Макрос 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