Question

excel vba读取内容到指定表的位置

名称有N个，每10列有一个名称
3.将有黄色单元下面的内容提取到另表

Answer 1

Sub s()
    ct = 6
    r = 35
    C = "j"
    i = 6
    With Sheets("问15结果")
        Do While .Cells(i, C) <> ""
            i = i + 1
        Loop
        For j = 1 To ct
            If Sheets("问15").Cells(r - 2, j * 10 - 9).Interior.Color = vbYellow Then
                .Cells(i, C) = Sheets("问15").Cells(r, j * 10 - 9)
                i = i + 1
            End If
        Next
    End With
End Sub