☰

VBA 选择过滤数据

tag-icon • tag-icon microsoft-excel vba
VBA 选择过滤数据

我创建了一个命令按钮，用于将数据从筛选列表拉到同一工作簿中的另一张工作表。第一次单击按钮后，我想设置命令以在随后单击按钮时用刷新的数据填充登录页面之前清除登录页面。结果如下：

Private Sub CommandButton1_Click()
Sheets("Extract").Select
Selection.ClearContents
Sheets("Pricing Proposal").Select
ActiveSheet.AutoFilter.Range.Copy
Sheets("Extract").Select
Worksheets("Extract").Rows(6).Select
ActiveSheet.Paste

End Sub

问题是，当我点击时，并不总是会清除着陆表，从而会在着陆表上留下不需要的数据。

任何帮助将不胜感激！

答案1

我认为您错过了一个简单的“Cells.Select”，它可以选择页面上的所有内容，从单元格 A1 开始。如果您不知道您的页面是如何设置的，您可能更喜欢选择特定范围，如下面评论的那样。

    表格(“提取”)。选择
    Cells.Select '或 Range("A1:C6").Select 或像这样选择 Defined-Range Range(DefinedName).Select
    选择.清除内容
    Sheets("定价提案").选择
    Cells.Select ' 或类似 Range("A1:C8").Select 或 Range(DefinedName).Select 或简单的 Range("A1").Select
    选择.复制
    表格(“提取”)。选择
    Range("A1").Select ' 或预定义单元格或单元格范围或名称如上注释
    活动工作表.粘贴
    应用程序.CutCopyMode = False
    Range("A1").Select ' 因此不选择整个页面，或者只需选择一个单元格或删除此行（如果不需要）

希望这能有所帮助:)


简化：添加代码

私有子命令按钮1_Click()
表格(“提取”)。选择
行("1:6").选择
选择.清除内容
...

相关内容