I want to fully automate the process of cleaning up exported data. I want to:
- Move the data in the overflow rows into their prospective column. I have tried the following code in VB. (This is trying to identify the @ symbol in the emails and respectively move all email address two places to the right).
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
- Once the data is in the correct column I need to automate the movement into the correct row. I can easily have them shift up but if one contact doesn't have an email address (as an example) then the emails will be in the wrong rows when they shift up.