
excel转置问题 如下 两列 A A1 B B1 C C1 D D1 如何转成 A A1 B B1 C C1 D D1全在一行
4个回答
展开全部
1、如第一列为A列,第二列为B列,在C列第一个单元格中用输入公式:=A1&B1,输完后下拉;
2、下拉完毕后,点击复制——选择性粘贴——勾选“值和数字格式”及“转置”点击确定就可以了
2、下拉完毕后,点击复制——选择性粘贴——勾选“值和数字格式”及“转置”点击确定就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个问题用VBA很容易,用函数公式也可以搞定。
你的问题有点不对,两列还是4列?
补充:如果数据量很大,用VBA搞定方便,不用拉动公式,注意:不管用VBA还是函数,数据不能超过127行,因为工作表最大列256列
VBA
Sub 两列转置成一行()
Dim arr, arr1
Dim iR&, x&,i&
iR = Range("A65536").End(xlUp).Row
arr = Range("A1:B" & iR).Value
ReDim arr1(1 To UBound(arr) * 2)
For x = 1 To UBound(arr)
For y = 1 To 2
i = i + 1
arr1(i) = arr(x, y)
Next y
Next x
Range("C1").Resize(1, UBound(arr1)) = arr1
End Sub
函数法:
C1输入公式
=OFFSET($A$1,INT((COLUMN(A1)-1)/2),MOD(COLUMN(B1),2))公式右拉
你的问题有点不对,两列还是4列?
补充:如果数据量很大,用VBA搞定方便,不用拉动公式,注意:不管用VBA还是函数,数据不能超过127行,因为工作表最大列256列
VBA
Sub 两列转置成一行()
Dim arr, arr1
Dim iR&, x&,i&
iR = Range("A65536").End(xlUp).Row
arr = Range("A1:B" & iR).Value
ReDim arr1(1 To UBound(arr) * 2)
For x = 1 To UBound(arr)
For y = 1 To 2
i = i + 1
arr1(i) = arr(x, y)
Next y
Next x
Range("C1").Resize(1, UBound(arr1)) = arr1
End Sub
函数法:
C1输入公式
=OFFSET($A$1,INT((COLUMN(A1)-1)/2),MOD(COLUMN(B1),2))公式右拉
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先把第二列复制到第一列下面,再排序,复制,选择性粘贴,选转置即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
=INDEX($A:$B,INT(COLUMN(B1)/2),MOD(COLUMN(A1)-1,2)+1)
右拉
右拉
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询