☰

在范围内编写代码

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2016
在范围内编写代码

我正在编写一个 excel 程序，用于跟踪我们工作场所的工具位置。我试图将数据从一个页面移动到另一个页面。我使用 VLookup 来访问信息，但我希望能够在找到详细信息后清除另一页的内容。我遇到的问题是，在 VBA 代码中编写一个公式（因为这是一个激活它的按钮），它可以查找行，然后清除该行的内容。我曾尝试将匹配公式放在一个随机单元格中以查找行，并尝试将其自动输入到范围中。有人知道这是怎么可能的吗？这就是我一直在尝试的。X1 在那个单元格中有一个匹配公式。

表格("Running.Sheet").范围("A"Running.Sheet").范围("X1").值).ClearContents

答案1

快完成了。试试

Sheets("Running.Sheet").Range("A" & Sheets("Running.Sheet").Range("X1").Value).ClearContents

您可以通过声明工作表的变量、将工作表名称分配给变量，然后使用该变量，使代码更易于管理。像这样：

Dim ws As Worksheet
Set ws = Sheets("Running.Sheet")

ws.Range("A" & ws.Range("X1").Value).ClearContents

尽管设置起来需要多做一些工作，但您越经常参考同一张表，就越能提高效率。

相关内容