VBA宏：EXCEL列转行自动插行问题，急~谢谢

Question

如下图，由于上传模板的需要，将左侧的数据转化为右侧。将D~I列的数据转为不同的行。(列数不固定，补卡1~6都有可能)在线急等，通过VBA实现，跪求大神指导~谢谢

谢谢~

Answer 1

sub ttt()
    dim i,j,k
    i=2
    k=2
    do while cells(i,1)<>""
        for j=4 to 9
            if cells(i,j)<>"" then
                cells(k,"K")=cells(i,"A")
                cells(k,"L")=cells(i,"B")
                cells(k,"M")=cells(i,"C")
                cells(k,"N")=cells(i,j)
                k=k+1
            end if
        next j
        i=i+1
    loop
end sub