Подскажите как сделать

@enchtein1 · Регистрация: 30.09.2016

Author24 — интернет-сервис помощи студентам

на листе Description есть 4 колонки: Make, Model, Years и Description. последняя колонка включает в себя данные из предыдущих трех, вопрос в том как с помощью макроса разъединить данные в 4-й колонке, убрав из неё данные предыдущих 3-х а полученный результат записать в другую колонку (5-ю). для примера там с 2-й по 15-ю строку написанно то, что должно получится
а так же вопрос, можно ли это сделать без макроса?

@OLEGOFF · 29.04.2017, 19:51

enchtein1, без макроса можно так

Код

=ПРАВСИМВ(D2;(ДЛСТР(D2)-ДЛСТР(C2)-ДЛСТР(B2)-ДЛСТР(A2)-3))

@enchtein1 · 29.04.2017, 19:58 **[ТС]**

здорово, а если макросом?
и еще такой вопрос, скажите может быть такое что формула написана правильно (выдает верный результат), но при этом если растянуть эту формулу на ячейки ниже - то результат просто дублируется. что это может быть?

@OLEGOFF · 29.04.2017, 20:01

Парамеры вычисления стоит галочка "Вручную",надо "Автоматически"

@pashulka · 29.04.2017, 20:02

Ещё один вариант :

Код

=ПСТР(D2;ДЛСТР(C2&B2&A2)+4;32000)
=ПОДСТАВИТЬ(D2;A2&" "&B2&" "&C2&" ";"")

@OLEGOFF · 29.04.2017, 20:17

Visual Basic

Sub Макрос1()
    
   Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=RIGHT(RC[-2],(LEN(RC[-2])-LEN(RC[-4])-LEN(RC[-5])-2))"
    Selection.AutoFill Destination:=Range("F2:F8"), Type:=xlFillDefault
    Range("F2:F8").Select
    
End Sub

Записал макрорекордером

@OLEGOFF 1082 / 521 / 142 Регистрация: 27.02.2013 Сообщений: 1,500
	29.04.2017, 19:51	2
	enchtein1, без макроса можно так Код =ПРАВСИМВ(D2;(ДЛСТР(D2)-ДЛСТР(C2)-ДЛСТР(B2)-ДЛСТР(A2)-3)) 1

@enchtein1 0 / 0 / 0 Регистрация: 30.09.2016 Сообщений: 4
	29.04.2017, 19:58 [ТС]	3
	здорово, а если макросом? и еще такой вопрос, скажите может быть такое что формула написана правильно (выдает верный результат), но при этом если растянуть эту формулу на ячейки ниже - то результат просто дублируется. что это может быть? 0

@OLEGOFF 1082 / 521 / 142 Регистрация: 27.02.2013 Сообщений: 1,500
	29.04.2017, 20:01	4
	Парамеры вычисления стоит галочка "Вручную",надо "Автоматически" 0

@pashulka 4134 / 2238 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	29.04.2017, 20:02	5
	Ещё один вариант : Код =ПСТР(D2;ДЛСТР(C2&B2&A2)+4;32000) =ПОДСТАВИТЬ(D2;A2&" "&B2&" "&C2&" ";"") 0

	29.04.2017, 20:17

Опции темы