Excel 2013 Macro- Table to Columns (for Text Analysis) -

I am trying to transfer some data to make learning some basic text easier. I have a table with the line for each sentence, which has the following column "N" with the first column and words as the identifier. Example:

  Record word 1 word 2 word n 1 193 3 3 Quick brown fox jumps 2 on the loose white dog 4  

I need to move data from that table format to a list, one word per line Along with that record, Situation is.

Example:

  Record Word 1 to 1 instant 1 brown 1 fox 2 2 more than 2 3 lazy 3 white 4 dogs  

The macros have been found to put the entire table in a table, but the way in which I would need to identify in the records that appears in the word ()

I also found the code here:. Optional clear public sub-doCopies (dimmer) dim lRowIdx long dim lColIdx until slow LRowStart as long retarded lRowOut as slow diminished S1 worksheet dim S2 worksheet dim As long range as the Ocho workbook, the dim-range LRO as the slow lCols error form as long as GoTo errorExit Appl Ication.DisplayAlerts = Wrong oBook = Set this workbook s1 = worksheet (1) Remove 'Other Tabs' (oBook.Sheets.Count & gt; 1) oBook.Sheets ( OBook.Sheets.Count). Delete Disturb 'create new tab s2 = oBook.Worksheets.Add (after set: = oBook.Worksheets (oBook.Worksheets.Count)) s2.Name = "Result" set R = s1.UsedRange LCols = r.Columns.Count lRows = r.Rows.Count 'header left lRowStart = 1 while (trim $ (s1.Cells (lRowStart, 1) = "")) lRowStart = lRowStart + 1 pass lRowStart = lRowStart + 1 'Take each row, lRows to tab 2 on lRowIdx = lRowStart (take trim $ (s1.Cells (lRowIdx, 1)) & lt;> "") Then for lColIdx = 1 For lCols lRowOut = lRowOut + 1 s2.Cells (lRowOut, 1) = s1.Cells (lRowIdx, lColIdx) Next lColIdx end then the next lRowIdx s2.Activate Application.DisplayAlerts = True Exit RorExit: Application.DisplayAlerts = True Call MsgBox (CSTR (An. Number) & amp; ":" & Amp; Err.Description, vbCritical or vbOKOnly, "Unexpected Error") End Sub

But that macro returns data like this:

  1 Crushed K Brown Fox 2 & lt; Null & gt; 3 lazy white and lieutenant; Tap & gt; & Lt; Null & gt; 4 dogs & lt; Null & gt; & Lt; Null & gt; & Lt; Null & gt;  

I tried to play with the code but could not understand it.

Any help would be appreciated. Thanks!

Microsoft has effectively written most code for you, which is unavailable to all the columns, To filter the value , select (empty) and then delete those lines - and change the column labels, delete a column. description.