excel表中数据批量处理，横坐标中有“项目”重复，需统一。不好表述，请看下图？

Answer 1

本问题用Power Qurey，轻松点几下鼠标就能实现。

数据菜单——获取数据——从表格或区域，将数据导入到PQ中。

在PQ中，分别对各药品名和价格用一种分隔符（随意，下面的演示中选择逗号）进行合并；然后对3列合并后的列再次用另外一种分隔符（与前一种不同就可以，下面的演示中选择分号）进行合并。

对合并后的列拆分列，先选择按最后合并的分隔符拆分。这里关键来了，选择高级——拆分到行！

再次拆分合并列，把药品和价格拆分开（按最先合并的分隔符拆分）

最后上载回Excel工作表中。

增加了数据时，刷新一下即可更新。

Answer 2

上图最好是有行列标号的！！！

如上图，只要在 J4 单元格输入公式：

=OFFSET($B$2,INT((ROW($A5)+1)/6),(COLUMN()<>COLUMN($J$1))*(COLUMN(A$1)-1+2*MOD(ROW($A3),3)))

复制并右拉至 L4 单元格，再选择 J4:L4单元格，复制并下拉，即可…………

Answer 3

Sub YIYUAN()

Dim a As Range, i As Range, J%

Set i = Range("I1")

Range("I2:I9900").ClearContents

i = "医院名称"

i.Offset(0, 1) = "药品"

i.Offset(0, 2) = "价格"

Set i = i.Offset(1, 0)

For Each a In Range(Range("A2"), Range("A65535").End(3))

    For J = 1 To 5 Step 2

        i = a

        i.Offset(0, 1) = a.Offset(0, J)

        i.Offset(0, 2) = a.Offset(0, J + 1)

        Set i = i.Offset(1, 0)

    Next

Next

End Sub

追问

感谢您的回答，右边的编程是宏吗？另外能不能把您的文件发给我。442444206@qq.com

追答

已发请查收

Answer 4

相似功能的

需要的话可以定制不免费。50元。