如果是从Foxtable导出的,可以在导出前关闭多行标题效果再导出即可:http://www.foxtable.com/webhelp/topics/2373.htm、http://www.foxtable.com/webhelp/topics/1992.htm
如果要直接改execl,参考:
Dim Book As New XLS.Book("E:\问题\工作簿1.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'Sheet.ClearMergedCells
Dim d As String
For c As Integer = 0 To Sheet.Cols.Count -1 '添加列标题
If Sheet(0, c).Value > "" Then
d = Sheet(0, c).Value
End If
If Sheet(1, c).Value > "" Then
Sheet(2, c).Value = d & "_" & Sheet(1, c).Value
Else
Sheet(2, c).Value = Sheet(0, c).Value
End If
Next
Book.Save("E:\问题\工作簿2.xlsx")
Dim Proc As New Process
Proc.File = "E:\问题\工作簿2.xlsx"
Proc.Start()