1. вот есть значение в ячейке: 20190422,12.4700,1457165.0000,12.1600,12.5000,12.1300 хотелось бы второе значение (то есть [,12.4700]) переместить в конец.
2. вот есть значение в ячейке: 20190422,1457165.0000,12.1600,12.5000,12.1300,12.4700 хотелось бы второе значение (то есть [, 1457165.0000]) удалить [в итоге я получу файл, съедобный для некоторой программы]
нам тоже как бы хотелось бы получить файл что бы вам помочь ну это только если вас не затруднит пс кому надо вам или нам 40 с лишним сообщений и постоянно какие то картинки да текст
задача была - поменять местами числа, чтобы получить такое вот: date,time,open,high,low,close,vol
и дана была (почти) такая формула: =ЗАМЕНИТЬ(ЛЕВСИМВ(A4;29);10;;ПРАВСИМВ(A4;23)&",")
проблема в том, что попадаются строки, где у чисел разное количество символов, так что формулу я должен иногда подправлять. я бы подправил, но мне сложно понять формулу, несмотря на то, что я прочитал её описание.
итак, вопрос: как понять эту формулу, чтобы я мог ситуативно менять её параметры. спасиб
Artsem K, почему не отписываетесь в своих темах (здесь и здесь)? Вам же перестанут помогать. Более ранние темы не смотрел - пройдитесь по своим темам сами и отпишитесь везде.
Artsem K, похоже, что в теме Заменить два первых значения в ряде чисел, разделенных запятыми вы так и не осилили решение макросом. В этой теме тот же подход В примере в столбце превратить в... указано date,open,high,low,close,volume и нет упоминания об удалении
Код
Sub Zamena()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 4 To iLastRow
Cells(i, "B") = Split(Cells(i, "A"), ",", 4)(0) & "," & Split(Cells(i, "A"), ",", 4)(3) & "," & Split(Cells(i, "A"), ",", 4)(1) & "," & Split(Cells(i, "A"), ",", 4)(2)
Next
End Sub
Юрий М написал: Artsem K , почему не отписываетесь в своих темах ( здесь и здесь )? Вам же перестанут помогать.Более ранние темы не смотрел - пройдитесь по своим темам сами и отпишитесь везде.
Цитата
Kuzmich написал: вы так и не осилили решение макросом.
При запуске файла .xls в Excel 2007 и выше, он открывается в режиме совместимости и с предупреждением системы безопасности, что запуск макросов отключен. Зайдите в Параметры... и включите макросы (Включить это содержимое). Сохранить книгу как... Книга Excel с поддержкой макросов
Вставьте макрос в стандартный модуль своего файла и запустите
Код
Sub Zamena()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 4 To iLastRow
Cells(i, "B") = Split(Cells(i, "A"), ",")(0) & "," & Split(Cells(i, "A"), ",")(1) & "," & Split(Cells(i, "A"), ",", 5)(4) & "," & Split(Cells(i, "A"), ",")(2) & "," & Split(Cells(i, "A"), ",")(3)
Next
End Sub