Страницы: 1
RSS
Взять значения из одной ячейки и вставить их в другую после 4 символа
 
Доброго времени суток. Есть задача
эти ячейки где идет дата начала акции, акционая цена, и дата окончания акции.
1,0,90.00,2019-11-12,2019-12-01
И есть цена которую нужно вставить, но цены есть двух значные (50,60,70) и трех значные (15,170,155) нужно диапазон 90.00 заменить на цены из соседнего столбца.
То есть в столбце А полностью все идет "1,0,90.00,2019-11-12,2019-12-01", а нужно взять значение из столбца В и заменить диапазон 90.00 ячейки А на значение из B.
Прилагаю файл для понимания.
 
zxcuriyzxc, Добрый вечер.
Формула не универсальная и если вместо "90.000" будет какое то другое значение, то уже работать не будет.
Так ?

Код
=ПОДСТАВИТЬ(A9;"90.00";B9)
Изменено: Aleksey1107 - 13.11.2019 22:13:47
 
Ответ удалил. Сломал язык при обращении по Нику.
Изменено: gling - 13.11.2019 22:18:51
 
Aleksey1107, мне она очень помогла. БЛАГОДАРЮ!!! Несколько сайтов и очень тяжело менять в ручную.  
 
А момент с нулями, я проглядел ((
Тогда Вам, точно вариант gling,
 
Aleksey1107, У gling, сломан язык :D , а ваша формула подошла. я сначала удалил нули (применил другую формулу). скопировал значения, а затем применил вашу. пошел в шага. Благодарю Вас.
 
Код
Sub iPrice()
Dim i As Long
Dim iLastRow As Long
  iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim iPrice As String
   Range("C3:C" & iLastRow).ClearContents
 With CreateObject("VBScript.RegExp")
   .Pattern = "\d+\.\d+"
     For i = 3 To iLastRow
      iPrice = .Execute(Cells(i, 1))(0)
      Cells(i, 3) = Cells(i, 1)
      Cells(i, 3).Replace what:=iPrice, replacement:=Left(Cells(i, 2), Len(Cells(i, 2)) - 2)
     Next
 End With
End Sub
Страницы: 1
Наверх