关于VBA行转列问题

18640521109

各位老师：
              想通过VBA实现将sheet1的加工中心列转换到sheet2的行，然后再下面指定各加工中心和图号，具体模板见sheet2,不会弄了，请各位老师帮下忙

hfwufanhf2006

你这就是复制粘贴搞几下就行了，搞什么代码啊。

今天我去excelhome论坛溜达了一圈，也有好多类似简单功能或稀奇古怪需求来求代码的，好像自愿者也不多。大家都上班的，哪有那么多时间给你们做作业？

比如，第一页就有这么个帖子：
哪位老师 请帮我增加一个可以选择的对话窗口！万分感谢
版主的回答：
表格change事件  配合工作表文字框和列表框可以实现这样的需求，；类似的帖子很多，楼主可以自己搜搜看看，以前回过的帖子太多了，
其实他这个要求还不算过分，基本还算是一个技术问题。主要问题是新手的心太高，这类要求就是老手也要费时间，那有那么容易做到？再说excel本来就是一个松散奔放的编辑界面，新手往往喜欢搞成自动化的客户端模式，想太多了，不符合excel的初衷，自然是费力不讨好；

论坛热心人主要是对技术疑难比较热心，比如你要是有某个局部代码不知道如何写，或者是写了无法正确运行，又或者是达不到你想要的目的，这样的话题大家会比较愿意帮忙。一是范围小容易回答，二是局限于技术层面。如果你一行代码也不写，完全是拿来主义，有些还是与工作完全没关系的股票、彩票、摸奖等等这样的问题，谁有时间给你写这个啊，况且会写的也不多，因为平时也不接触，搞不清状况，肯定也写不了。

爱疯

Sub test()
    Dim A, d, i, x

    Sheets(1).Select
    A = Range("a1").CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(A)
        If d.exists(A(i, 1)) = False Then Set d(A(i, 1)) = CreateObject("scripting.dictionary")
        d(A(i, 1))(A(i, 2)) = A(i, 3)
    Next i

    Sheets(3).Select
    Cells = ""
    i = 1
    For Each x In d.keys
        Cells(1, i) = x
        Cells(1, i + 1) = "图号"
        Cells(2, i).Resize(d(x).Count) = Application.Transpose(d(x).keys)
        Cells(2, i + 1).Resize(d(x).Count) = Application.Transpose(d(x).items)
        i = i + 2
    Next

End Sub

爱疯

顶2楼
个人觉得，有了点基础和规范意识，并有大把时间，才适合使用窗体。
刚开始的小白，真心不建议用窗体去做。