Sub DELCO()
lie = 1 '将筛选后的第一列数据提取
j = 1 '写入sheet2的行变量
For hang = 1 To ActiveSheet.UsedRange.Rows.Count '遍历第一行到当前表总行数
If Rows(hang).Hidden = False Then
Sheets("Sheet2").Cells(j, 1) = Cells(hang, lie)
j = j + 1
End If
Next
MsgBox (j & "行已复制到Sheet2")
End Sub

如您从本文得到了有价值的信息或帮助,请考虑扫描文末的二维码对我进行赞赏和鼓励。

与《将Excel筛选后的结果复制到工作表》相关的博文:


发布时间 12/26/2014 09:54:01所属栏目 Software.所属标签 .

留言

avatar
😀
😀😁😂😅😭🤭😋😘🤔😰😱🤪💪👍👎🤝🌹👌