主题：关于筛选后复制问题

请教下，表格某一列筛选了某个关键字后，然后复制符合条件的行，到EXCEL中粘贴，却把不符合筛选要求的行也一起粘过去了，请问怎么解决。

此主题相关图片如下：捕获.png

按上图 点击列名 做的筛选，直接复制筛选后的行，却总把一些无用的行业复制出来了

请问用一下代码 在列名上打开的筛选功能，筛选后，为什么复制时，会把没用的都复制上了

 

 

Tables("表a").Grid.AllowFiltering = True

感觉系统带的筛选 不好用，

用这个代码开启的筛选（折叠）比较好用，只是复制内容存在问题

Tables("表a").Grid.AllowFiltering = True

 

 

这种EXCEL类似的筛选的高点的版本 复制已经正常了，即筛选出多少就复制多少了

 

 

foxtable的这种筛选 是否也用代码可以实现，比如用代码把 选中的行，且显示出来的数据加到剪贴板

 

 

 

 蓝老师，我给以下代码加了条件，筛选后，选择，用以下代码的按钮复制，但复制粘贴后结果也不正常，帮看看吧

 

Dim t As Table = CurrentTable
Dim ss As new StringBuilder
For i As Integer = t.TopPosition To t.BottomPosition
    Dim s As String =""

If t.Grid.Rows(i).visible = TRUE Then

    For j As Integer = t.LeftCol To t.rightcol
        s = s & t.Rows(i)(j) & vbtab
    Next

End If

    ss.AppendLine(s.Trimend(vbtab))
Next
ClipBoard.SetText

此主题相关图片如下：捕获122222.png

粘贴后效果

 

此主题相关图片如下：捕获22.png

 

 

这样后，粘贴后效果好多了，但是中间的空行怎么消除啊？

Dim t As Table = CurrentTable
Dim ss As new StringBuilder
For i As Integer = t.TopPosition To t.BottomPosition
    Dim s As String =""

If t.grid.Rows(i+1).visible = True Then
    For j As Integer = t.LeftCol To t.rightcol
       If t.Cols(J).visible = True Then
         s = s & t.Rows(i)(j) & vbtab
End If
    Next

End If

    ss.AppendLine(s.Trimend(vbtab))
Next
ClipBoard.SetText(ss.ToString)