EXCEL表格中1怎么换2

1.有没有方法在excel中把表1转换为表2

用这个宏代码：

Sub newdata()

Set d = CreateObject("scripting.dictionary")

arr = Sheets(1).UsedRange

For i = 1 To UBound(arr, 1)

d(arr(i, 1)) = d(arr(i, 1)) & arr(i, 2) & "、"

Next

For Each d1 In d

d(d1) = Left(d(d1), Len(d(d1)) - 1)

Next

Sheets(2).[a1].Resize(d.Count, 1) = Application.Transpose(d.keys)

Sheets(2).[b1].Resize(d.Count, 1) = Application.Transpose(d.items)

End Sub

操作：

Alt+F11打开VBA编辑器，插入-模块

把上面代码复制到模块1里

运行宏newdata

PS：原数据在第1张表，新数据会放在第2张表