如果你有一個清單的個股要個別整理集保庫存，那就加個迴圈吧!!!
步驟：
1.先作個按鈕，小編是用ACTIVEX的命令按鈕作控制。
2.小編是直接在集保庫存的檔案上作撰寫的，所以選了H行作股票代號輸入，隨便輸入了5筆。(參圖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 進階篩選個股'可以自己錄製或是參考 Excel Vba 如何整理集保庫存 一、進階篩選個股
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 如何整理集保庫存 三、依照檔案別整理個股集保庫存
整理示意：
留言列表
