Во-первых, я все еще изучаю Excel VBA, и, кажется, я пытаюсь кусать больше, чем я могу жевать здесь. Я пытался найти свою проблему, но не могу найти проблемы, которые были бы близки к моей.
Итак, у меня есть набор данных CSV, который выглядит следующим образом:
date,"0000000000","SAO","32","Description","5000","REF"
date,"0000000000","SAO","32","Reversal from
\nDescription","-5000","REF"
date,"0000000000","SAO","32","Description","10000","REF"
Я хочу, чтобы данные выглядели так:
date,"0000000000","SAO","32","Description","5000","REF"
date,"0000000000","SAO","32","Reversal from Description","-5000","REF"
date,"0000000000","SAO","32","Description","10000","REF"
Вручную это так просто, но нужно исправить более 3000 строк, поэтому мне нужно автоматизировать эту проблему. Я пытался записать макросы, но это не сработало.
Необходимые шаги:
1. поиск "\ n"
Я полагаю, что это может быть сделано с этим?
set result = Find(What:="\n", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
- скопировать значения результатов поиска
- вставьте значения результатов поиска в ячейку перед результатом поиска, чтобы она выглядела следующим образом
date,"0000000000","SAO","32","Description","5000","REF"
date,"0000000000","SAO","32","Reversal from \nDescription","-5000","REF"
date,"0000000000","SAO","32","Description","10000","REF"
- удалить пустые ячейки.
- удалить \ n из "Сторнирования из \ nDescription", чтобы он больше не обрабатывался
- начать с 1 снова.
У меня нет знаний о том, как это сделать, пожалуйста, помогите?
Спасибо