Excel Vba 如何整理股權分散表(集保庫存) 二、進階篩選(AdvancedFilter )個股+迴圈=多個股股權分散表(集保庫存)篩選

如果你有一個清單的個股要個別整理集保庫存，那就加個迴圈吧!!!

步驟：

1.先作個按鈕，小編是用ACTIVEX的命令按鈕作控制。

2.小編是直接在集保庫存的檔案上作撰寫的，所以選了H行作股票代號輸入，隨便輸入了5筆。(參圖1.)

​​​圖1.

3.撰寫VBA：

小編使用DO WHILE LOOP迴圈，透過 ActiveSheet.Range("H" & I)判斷是否還有股票代號，不等於空白表示還有，就迴圈持續跑下去摟。

Private Sub CommandButton1_Click() 

I = 1

Do While ActiveSheet.Range("H" & I) <> ""

    ActiveSheet.Range("I2") = ActiveSheet.Range("H" & I) 

'每次迴圈執行的股票代號

    Call 進階篩選個股

    I = I + 1  'I是控制取得ActiveSheet.Range("H" & I)儲存格資料的步進值
    
   ActiveSheet.Range("K:P").Clear '清除前回執行結果
    
Loop

End Sub

以下這個副程式怎來的，參： Excel Vba 如何整理集保庫存 一、進階篩選個股

Sub 進階篩選個股()

ActiveSheet.Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=ActiveSheet.Range("I1:I2"), CopyToRange:=ActiveSheet.Range("K1"), Unique:=False

End Sub

​

圖1.迴圈版的集保庫存

下一篇：Excel Vba 如何整理集保庫存 三、依照檔案別整理個股集保庫存

整理示意：

​

​

​