Question

EXCEL VBA提取内容到指定位置

给二个表加上表名
2.问11表的数据范围为A8：AY8
3.将问11表的数据范围内容提取到此结果表

Answer 1

Sub s()
    n = 6
    With Sheets("问11表结果")
        While (.Cells(n, 4) <> "")
            n = n + 1
        Wend
        For i = 1 To 6
            .Cells(n, i + 3) = Sheets("问11表").Cells(8, i * 10 - 9)
        Next
    End With
End Sub