Question

EXCEL VBA读取行不同内容到行

C:J列倒数第一行开始
2.我要的结果(J5:P5)

Answer 1

Sub s()
    Set d = CreateObject("scripting.dictionary")
    x = Cells(Rows.Count, 3).End(3).Row
    y = 3
    k = 1
    Do While k < 8
        t = Cells(x, y)
        If Not d.exists(t) Then
            d.Add t, ""
            Cells(5, 9 + k) = t
            k = k + 1
        End If
        If y < 9 Then
            y = y + 1
        Else
            x = x - 1
            y = 7
        End If
    Loop
End Sub