[已解决]求助，表格转换

赏美尝乐

回复 sunjing-zxl 的帖子

下载看过了，正是要这个结果，但我VBA没入门，还是没办法弄好。

赏美尝乐

回复 JLxiangwei 的帖子

同4楼回答的操作，但我是使用的2007版，操作起来有些不一样。还是没有解决。

JLxiangwei

回复 赏美尝乐 的帖子

sunjing-zxl

回复 赏美尝乐 的帖子

Sub 录入数据()
i = 1     ’定义一个I的值，用于录入数据的行号
For Ro = 2 To [A65536].End(xlUp).Row     ’For循环语句，Ro循环变量，[A65536].End(xlUp).Row获取A列最后一行的行号。整体意思代表Ro从第二行开始循环，一直循环到A列的最后一行。
   For Co = 1 To 4          ’For语句，意思同上。Co从1到4循环，因为你最多只有4个型号。
     If Cells(Ro, Co + 1) <> "" Then     ’if判断语句  Cells单元格表示方法（语法：Cells（单元格行号，单元格列号））。下面的应该没问题了把。
     Cells(i + 1, 7) = Cells(Ro, 1)
     Cells(i + 1, 8) = Cells(1, Co + 1)
     Cells(i + 1, 9) = Cells(Ro, Co + 1)
     i = i + 1
     End If
   Next Co
Next Ro
End Sub