I deal with massive amounts of data on a regular basis. With assistance here, I've been able to systematically simplify dealing with what could be an overwhelming nightmare, thanks.
I have a column of cells filled with multiple URLs per cell. I need to transpose them from one cell to multiple successive cells in the same row. Once it is transposed, I need to eliminate all blank cells shifting everything left and finally, any cell that begins with the word large and follows a cell that begins with the word hires should be deleted and everything shifted left. Two successive cells beginning with large but following a hires cell would only eliminate the first large cell. A large must follow a hires to be eligible for deletion
Seems easy but has been nothing of the sort. I can't get past the transpose. I've tried to add line breaks, find and replace, multiple different things but everything I do results in losing most of the data past the first entry
I've included an example with a macro I recorded. It copies the cell contents, goes to a blank worksheet, pastes them vertically, copies the results and transposes them back onto the original worksheet. Unfortunately, it doesn't work as it is too specific as to the contents of the cell
'breakout multiple URLs from one cell with many URLs to multiple cells in a row with one URL each ActiveCell.FormulaR1C1 = _ "hiRes"":""https://images-na.ssl-images-amazon.com/images....removed to conserve space but this was to specific Range("E1").Select Sheets("Sheet2").Select ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _ DisplayAsIcon:=False, NoHTMLFormatting:=True Selection.Copy Sheets("Sheet1").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True ActiveWindow.SmallScroll Down:=1 Range("D2").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = _ "hiRes"":""https://images-na.ssl-images-amazon.com/images/I....removed to conserve space but this was to specific Sheets("Sheet2").Select Range("A1").Select ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _ DisplayAsIcon:=False, NoHTMLFormatting:=True Selection.Copy Sheets("Sheet1").Select Range("E2").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True ActiveWindow.SmallScroll Down:=1 Range("D3").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = _ "hiRes"":""https://images-na.ssl-images-amazon.com/images/I/6....removed to conserve space but this was to specific Sheets("Sheet2").Select Range("A1").Select ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _ DisplayAsIcon:=False, NoHTMLFormatting:=True Selection.Copy Sheets("Sheet1").Select Range("E3").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True ActiveWindow.SmallScroll Down:=1