2096991Lexie Hightower ElectricalFreshmanENGG13Spring 234681

.2096991.Lexie Hightower. Electrical.Freshman.ENGG.13.Spring 2346813.Kasandra Ash.Mechanical.Sophomore.ENGG.15.Fall .2509535.Roslyn Trueman.Electrical.Senior.ENGG.18.Spring .2386415.Lanny Ely.Electrical.Freshman.ENGG.12.Fall 2261540.Lois Endicott.Design.Senior.ARCH.15.Fall 2421582.Jamison Clark.Electrical.Junior.ENGG.19.Spring 2347812.Cynthia Timothyson.Mechanical.Senior.ENGG.20.Spring 2364818.Violet Senior.Architecture.Freshman.ARCH.14.Fall 2387542 Jeb Simmons.M echanical.Freshman.ENGG.16.Fall

Solution

Assuming your data is stored in Sheet 1 for the Excel in columng 1.

Sub StoreData()
   Dim txt As String
   Dim i As Int
   Dim j As Int
   Dim Data As Variant

   For j = 0 To 10
       txt = Sheet1.Cell(j, \"A\").Value //read each row
       Data = Split(text,\".\") //split by period mark
       For i = 0 To UBound(Data)
           Sheet2.Cell(j, i).Value= Data(i) //write in sheet 2
       Next i
   Next j
End Sub