UC知道EXcel如何让行内容相同的部份变成列内容
来源：百度知道 编辑：UC知道 时间：2024/06/28 00:21:58
例如 我想把A1-P1的行内容自动转变成列内容，而且它们相同的字眼还能自动汇聚成一列，例子如下
奇 偶 偶 奇 偶 偶 偶 奇 奇 偶 奇 奇 奇
-------------------------------------------------------------
上边的奇偶我想转变成这样的格式：
奇 偶 奇 偶 奇 偶 奇
偶 偶 奇 奇
偶 奇
哪位高手指点一下，小弟感激不进
编辑问题的例子发出来变了样，我再补充一下想要转变的样子
奇偶奇偶奇偶奇
---偶---偶奇---奇
---------偶------奇
就是我想要把相同连在一起的字眼能变成同一列我知道复制然后转置的方法，但太麻烦了，有没有更快捷批量自动转换的
奇 偶 偶 奇 偶 偶 偶 奇 奇 偶 奇 奇 奇
-------------------------------------------------------------
上边的奇偶我想转变成这样的格式：
奇 偶 奇 偶 奇 偶 奇
偶 偶 奇 奇
偶 奇
哪位高手指点一下，小弟感激不进
编辑问题的例子发出来变了样，我再补充一下想要转变的样子
奇偶奇偶奇偶奇
---偶---偶奇---奇
---------偶------奇
就是我想要把相同连在一起的字眼能变成同一列我知道复制然后转置的方法，但太麻烦了，有没有更快捷批量自动转换的
我是根据你的例子来做的(数据在A1:P1)
按下ALT+F11,菜单-插入-模块,复制下列代码,按下F5,运行.
Sub AAA()
Dim X As Integer, Y As Integer
X = 1
Y = O
Range("A1").Select
Do While Y < 16 '如果不是到P1,而是Q1,之类的,就将16改成17,即列数
Do While ActiveCell.Value = ActiveCell.Offset(0, X).Value
ActiveCell.Offset(X, 0).Value = ActiveCell.Value
ActiveCell.Offset(0, X).Value = ""
X = X + 1
Loop
Y = Y + X
Cells(1, Y).Select
X = 1
Loop
Range("A1").Select
For Z = 1 To 16
If ActiveCell.Value = "" Then
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete
ActiveCell.Offset(0, -1).Select
Else
ActiveCell.Offset(0, 1).Select
End If
Next
End Sub
看到smallcolour 用VBA我突然觉得，我的方法是添麻烦
http://hi.baidu.com/ad24/blog/item/4d002a181ca956b04ae