主题：什么原因？

你这段代码想做什么？

 

Dim S As String  = DataTables("分组").GetComboListString("姓名","[组别]='华东'")
Dim Values() As String = S.split("|")
For N As Integer = 0 To Values.Length - 1
    Output.Show(Values(N))                       '这里可以执行
    Tables("分组").filter = "[CS]='" & Values(N) & "'"    

Next

那2楼的代码没问题，最后你saveexcel即可。

拷贝、粘贴？参考（sheet1、sheet2 拷贝到 sheet3 去）

 

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")

Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
'ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste

'Wb.Save
app.Visible = True
'App.Quit