EXCEL表复杂的列转行

发布网友 发布时间：2022-03-02 12:41

我来回答

共3个回答

热心网友 时间：2022-03-02 14:10

可以用数据透视表。

选中数据》启动数据透视表向导
在向导第3步的布局中
将“电话号码”拽到“行”的位置
将“优惠规则”装到“列”的位置
将2个日期拽到数据位置，并双击它选择汇总方式为最大值，并在数字格式中将其设置为日期。

完成数据透视表后
将“数据”拖到“优惠规则”下方（ 长途代收(50%)单元格下方的蓝色边框处）。

然后根据需要调整数据透视表，或将数据透视表复制后选择性粘贴为值到其它位置进行修改。

热心网友 时间：2022-03-02 15:28

会用宏可批量操作，宏的使用方法及程序效果参见
http://hi.baidu.com/yym6211/blog

下面是代码：Sub 合并行()
'
' 合并行 Macro
' 宏由 yym 录制，时间: 2008-12-26
'行号
hang = Sheets("sheet1").Range("A1").End(xlDown).Row

j = 1
For i = 1 To hang
aa = Sheets("sheet1").Cells(i, 1)
bb = Sheets("sheet1").Cells(i + 1, 1)
Sheets("sheet2").Cells(j, 1) = aa
Sheets("sheet2").Cells(j, 2) = Sheets("sheet1").Cells(i, 2)
Sheets("sheet2").Cells(j, 3) = Sheets("sheet1").Cells(i, 3)
j = j + 1
k = 0
Do While aa = bb
i = i + 1
k = k + 1
Sheets("sheet2").Cells(j - 1, 1 + 3 * k) = Sheets("sheet1").Cells(i, 1)
Sheets("sheet2").Cells(j - 1, 2 + 3 * k) = Sheets("sheet1").Cells(i, 2)
Sheets("sheet2").Cells(j - 1, 3 + 3 * k) = Sheets("sheet1").Cells(i, 3)
'aa = Sheets("sheet1").Cells(i, 1)
bb = Sheets("sheet1").Cells(i + 1, 1)
Loop
Next

End Sub

热心网友 时间：2022-03-02 17:03

呵呵
我会
看来楼主是移动的哦