Dim d As Row = Tables("表A").RowsFor Each ds() As String In d("第一例") Dim Names As New List(of String) Names.Add(ds) For Each ds As String In Names Output.Show(Names) NextNext