将Excel筛选后的结果复制到工作表

作者：时鹏亮 | 更新时间：12/26/2014 06:54:01
请知悉：本文最近一次更新为 8年 前，文中内容可能已经过时。
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筛选后的结果复制到工作表》相关的博文：

留言

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