Dim lst As new List(of String)
For Each t As Table In Tables
For Each r As Row In t.rows
For Each c As Col In t.cols
lst.Clear
Dim lines = r.DataRow.Lines(c.Name)
If lines.Count > 1 Then
For Each s As String In lines
If s.trim > "" Then
lst.Add(s)
End If
Next
r(c.name) = String.Join(vbcrlf,lst.ToArray)
End If
Next
Next
Next