Question

在一个标签上，我有一个仓库列表，这些仓库都有一个归属于它们的唯一仓库编号。在另一个选项卡上，我有一个数据列表，其中包括每个仓库的许多行，每行都有他们的仓库编号。

我基本上需要为每个软件仓库创建一个文件，其中只包含depot信息。

通常，我会从软件仓库列表的顶部开始，然后使用

While Not ActiveCell.Value=""

然后我复制工作表，删除任何不涉及该工程的行，保存为新文件，然后使用ActiveCell（2,1）。选择选择下一个工作站并重复。

但是，我需要一种不使用select的方法。有人可以建议吗？

Answer 1

添加一个变量来保存行号并将代码包装在一个循环中，应该这样做。

Public Sub Sample()
Dim LngRow as Long
Dim WkSht as Worksheet

Set WkSht = ThisWorkbook.Worksheets("Sheet1")
    LngRow = 2
    Do Until WkSht.Range("A" & LngRow) = ""
        ExportDepot WkSht.Range("A" & LngRow)
        LngRow = LngRow + 1
    Loop
Set WkSht = Nothing

在不使用select的情况下处理列表 - EXCEL VBA

1 个答案: