主题：[求助]怎样快速筛选出人名与单位名称数据

各位专家，各位高手，大家好，请问在我的附件“法人名称筛选”里，怎样快速地把表A中的各种单位机构的名称（这些名称的字数都大于或等于4）和相关数据（如对应的编号

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:法人名称筛选.table

）筛选出来，并放入表B中（因为在实际工作中，会遇到名称列有上万个名称的时候，手动筛选太麻烦），如我的附件中表A表B所示。

Dim Cols1() As String = {"第一列","第二列"}
Dim Cols2() As String = {"第一列","第二列"}
For Each dr1 As DataRow In DataTables("表A").Select("len(第一列) >= 4")
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

谢谢你，有点甜,我想要的结果能出来了，感激!

Tables("表C").Filter ="len(第一列) >= 4"