Excel vba 單欄資料切割成多欄

Sub ttest()
r = Cells(Rows.Count, "B").End(xlUp).Row
k = 0   'k用來確認放到第幾欄
s = 3  's用來確認放到第幾列
For i = 3 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 = 3   's恢復從3開始
End If
Next
End Sub

jsjux wrote:
太謝謝了，原來還能有這樣的用法，感激不盡。(恕刪)

snare wrote:
雖然只是小問題，不過(恕刪)

snare wrote:
雖然只是小問題，不過...(恕刪)

misser wrote:
snare大說的沒錯...(恕刪)

jsjux wrote:
所以snare大修改的vba真的幫了很大的忙

snare wrote:
呃~~那不是我改的是misser...(恕刪)