【高分!!!】excel如何把N多列的数据全部移动到第一列,不是合并几个列的数据 50
如题,比如我有N列的数据,我想不变的全部在第一列A里面从上到下展示,粘贴复制太麻烦,有没有快速一点的办法!!在线等答案!数据量比较大,不适合粘贴复制,所以求简单的方案...
如题,比如我有N列的数据,我想不变的全部在第一列A里面从上到下展示,粘贴复制太麻烦,有没有快速一点的办法!!在线等答案!
数据量比较大,不适合粘贴复制,所以求简单的方案 展开
数据量比较大,不适合粘贴复制,所以求简单的方案 展开
4个回答
展开全部
VBA,代码如下:
Sub main()
arr = Range("A1").CurrentRegion
ReDim brr(UBound(arr, 2) * UBound(arr))
For i = 1 To UBound(arr, 2)
For j = 1 To UBound(arr)
If arr(j, i) <> "" Then
k = k + 1
brr(k - 1) = arr(j, i)
End If
Next j
Next i
[h1].Resize(UBound(brr), 1) = Application.Transpose(brr) '数据粘贴到H列,根据实际情况修改
End Sub
Sub main()
arr = Range("A1").CurrentRegion
ReDim brr(UBound(arr, 2) * UBound(arr))
For i = 1 To UBound(arr, 2)
For j = 1 To UBound(arr)
If arr(j, i) <> "" Then
k = k + 1
brr(k - 1) = arr(j, i)
End If
Next j
Next i
[h1].Resize(UBound(brr), 1) = Application.Transpose(brr) '数据粘贴到H列,根据实际情况修改
End Sub
展开全部
都是4行,在H1输入公式:
=OFFSET($A$1,MOD(ROW(A1)-1,4),(ROW(A1)-1)/4),下拉填充。
行数不等,用VBA。
=OFFSET($A$1,MOD(ROW(A1)-1,4),(ROW(A1)-1)/4),下拉填充。
行数不等,用VBA。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
QZ---------
复制粘贴,也可以简单起来
开始接触录制宏吧,一切皆有可能
复制粘贴,也可以简单起来
开始接触录制宏吧,一切皆有可能
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询