主题：请教这样的合并要如何实现？

自行写代码即可：

Dim Book As New XLS.Book("文件名")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 起始行 To Sheet.Rows.Count - 1
      Dim r As Row = Tables("表A").AddNew()
      r("第一列") = sheet(i,0).Value
      r("第二列") = sheet(i,1).Value
      r("第三列") = sheet(i,2).Value
Next