Question

在Excel中如何使竖排的数据变为横排？ 比如： A B C A B C D A B A B C 变成： A B C A B C D A B A B C

是：
A
B
C
A
B
C
D
A
B
A
B
C
变为：
A B C
A B C D
A B
A B C
用宏或函数的方法，因为比较多，谢谢

Answer 1

用选择性粘贴的转置粘贴
先选择你要由竖变横的那几个单元格，复制一下
然后再选择你要粘到的那几个，点选择性粘贴，选择转置，就行啦~

Answer 2

用宏
Sub xxzl() '整理上面下载的数据面表
Dim i&, Myr&, r%, Arr, Arr1(), Arr2, Myc%
Dim d, k, ks, js, j&, col%, r1, ii&
Set d = CreateObject("Scripting.Dictionary")
Sheet1.Select
Myr = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.Range("a1").CurrentRegion
For i = 1 To UBound(Arr)
If Arr(i, 1) = "A" Then
r = r + 1
ReDim Preserve Arr1(1 To r)
Arr1(r) = i
End If
d(Arr(i, 1)) = ""
Next
k = d.keys
Range("B:Z").ClearContents
[B1].Resize(1, 4) = k
ReDim Arr2(1 To r, 1 To UBound(k) + 2)
For j = 1 To r
Arr2(j, 1) = j
If j <> r Then
js = Arr1(j + 1) - 1
Else
js = Myr
End If
ks = Arr1(j)
For ii = ks To js
Set r1 = Rows(1).Find(Arr(ii, 1))
If Not r1 Is Nothing Then
col = r1.Column
Arr2(j, col) = Arr(ii, 1)
Else
Myc = [iv1].End(xlToLeft).Column + 1
Cells(1, Myc) = Arr(ii, 1)
Arr2(j, Myc) = Arr(ii, 1)
End If
Next
Next
[B1].Resize(r, UBound(Arr2, 2)) = Arr2
End Sub

Answer 3

把这些全部选中，文字方向，竖向改成横向

Answer 4

对不起，不知道。我是来学习的