[COLOR="Navy"]Sub[/COLOR] MG10Feb38
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Dn [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] oVal [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] Ray()
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
oVal = Split(Dn, Chr(10))
[COLOR="Navy"]If[/COLOR] UBound(oVal) > 0 [COLOR="Navy"]Then[/COLOR]
[COLOR="Navy"]For[/COLOR] n = 0 To UBound(oVal)
c = c + 1
ReDim Preserve Ray(1 To 3, 1 To c)
[COLOR="Navy"]If[/COLOR] n = 0 [COLOR="Navy"]Then[/COLOR]
Ray(1, c) = oVal(n): Ray(2, c) = Dn.Offset(, 1): Ray(3, c) = Dn.Offset(, 2)
[COLOR="Navy"]Else[/COLOR]
Ray(1, c) = oVal(n)
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]Else[/COLOR]
c = c + 1
ReDim Preserve Ray(1 To 3, 1 To c)
Ray(1, c) = Dn: Ray(2, c) = Dn.Offset(, 1): Ray(3, c) = Dn.Offset(, 2)
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
Sheets("Sheet2").Range("A1").Resize(c, 3) = Application.Transpose(Ray)
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]