Я хочу полностью автоматизировать процесс очистки экспортируемых данных. Я бы хотел:
- Переместите данные в строках переполнения в их предполагаемый столбец. Я попробовал следующий код в VB. (Это пытается идентифицировать символ @ в письмах и соответственно переместить все адреса электронной почты в два места вправо).
Sub qwerty()
Dim D As Range, r As Range
Set D = Intersect(ActiveSheet.UsedRange, Range("D:D"))
For Each r In D
If Left(r.Text, 2) = "@" Then
r.Copy r.Offset(0, 1)
r.Clear
End If
Next r End Sub
- Как только данные окажутся в правильном столбце, мне нужно автоматизировать перемещение в правильный ряд. Я могу легко заставить их переместиться вверх, но если один контакт не имеет адреса электронной почты (как пример), тогда электронные письма будут в неправильных строках, когда они переместятся вверх.