錦子老師

習近平：「錦子老師您好，小弟我目前遇到一個問題，想將一整欄(B欄)約1萬多筆資料，依條件(A欄的值=on)分至D欄、E欄.....等，預計完成結果如下：

錦子老師：「其實這比較適合用VBA來處理，若是用VBA作法如下：」

步驟1：按ALT+F11鍵，開啟VBA視窗。

步驟2：點取「插入 > 模組」指令，插入一個空白模組表。

步驟3：輸入下列程序

Sub test()

r = Cells(Rows.Count, "A").End(xlUp).Row

k = 0   'k用來確認放到第幾欄

s = 2  's用來確認放到第幾列

For i = 2 To r

If Cells(i, 1).Value = "ON" Then

        Cells(s, 4 + k).Value = Cells(i, 2) '輸出位置改用s來控制

        s = s + 1   's往下+1

    ElseIf Cells(i, 1).Value = "OFF" And Cells(i + 1, 1).Value = "ON" Then

        k = k + 1

        s = 2   's恢復從2開始

End If

Next

End Sub

【注意】

由於這邊的設定關鍵字大小寫視為相異，所以請依照原本A欄的內容輸入「ON/OFF」或「on/off」 ，否則會執行巨集卻看不到任何東西轉出來 。

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

更多相關影片教學：請點我

更多相關文章：請點我