在不使用select的情況下通過列表工作 - EXCEL VBA

-1

在一個選項卡上，我有一個depot列表，它們都有一個歸因於它們的唯一depot編號。在另一個選項卡上，我有一個數據列表，其中包含每個庫中的許多行，並在每行上顯示其庫位號。在不使用select的情況下通過列表工作 - EXCEL VBA

我基本上需要爲每個軟件倉庫創建一個文件，只有那個軟件倉庫信息。

通常情況下，我會在倉庫的列表的頂部開始，並使用

While Not ActiveCell.Value=""

然後我複製的工作表，刪除任何行是didnt涉及到庫，保存爲一個新文件，然後使用ActiveCell（2,1）。選擇選擇下一個軟件倉庫並重復。

但是，我需要一種不使用select的方法。有人可以提醒嗎？

來源

2016-07-29 Tom Beasley

您知道[的]（http://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba-macros）？ – pnuts

是的，我已經看到，但|似乎無法找到我需要我的具體方案 –

通讀[如何避免使用'.Select']（https://stackoverflow.com/questions/10714251/how-to -void-using-select-in-excel-vba-macros） – BruceWayne

添加一個變量來保存一個行號，並將你的代碼包裝在一個循環中，應該這樣做。

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

來源

2016-07-29 15:10:56

有很多方法可以做到這一點。我建議可能會將您的代碼發送到[代碼評論]（http://codereview.stackexchange.com/）以查看結果。 –

在不使用select的情況下通過列表工作 - EXCEL VBA

回答

相關問題