请教，excel首尾相接 合并成一列

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请教：EXCEL 494行×494列，首尾相接合并成一列，请问简便方法？
导到别的软件里操作也可以，谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：EXCEL exce xcel cel excel EXCEL 软件

Book1.xls (21 KB)

2011-8-14 19:35:55 上传

关键在于二维转一维,你看看这个例子吧,看得懂就能做,不然用R之类,容易一些.

假设你的数据在sheet1中，共有10行，多列
在sheet2的A列，将sheet1的10行多列数据取过来
sheet2的A1输入公式
=OFFSET(sheet1!$A$1,MOD(ROW(1:1)-1,10),INT((ROW(1:1)-1)/10))
此公式向下复制即可

SepLost 发表于 2011-8-14 19:37
关键在于二维转一维,你看看这个例子吧,看得懂就能做,不然用R之类,容易一些.

非常感谢，我学习一下

请问你还经常在论坛里吗？前辈

可以用tablea插件

可以使用小学数学学过的知识来解决您的问题，利用被除数、除数、商和余数的关系。“余数总是跟周期有关”。

具体VBA代码为：

Option Explicit
Sub NN_to_N1()
    Rem 本程序用于将N*N列矩阵拼接成N^2*1列矩阵
    Rem 2019/04/11
    Dim i As Long '计数项
    Dim Quotient As Long '商
    Dim Remainder As Long '余数
    Dim arr As Variant '数组
    Dim brr As Variant '数组
    Dim N As Long '数据的行数
   
    Application.ScreenUpdating = False
   
    arr = Cells(1, 1).CurrentRegion
    If UBound(arr, 1) = UBound(arr, 2) Then N = UBound(arr, 1)
    ReDim brr(1 To N * N, 1 To 1)
    For i = 1 To N * N Step 1
        Remainder = i Mod N
        Quotient = (i - (i Mod N)) / N
        If Remainder = 0 Then
            brr(i, 1) = arr(N, Quotient)
        Else
            brr(i, 1) = arr(Remainder, Quotient + 1)
        End If
    Next i
    Cells(1, UBound(arr, 2) + 2).Resize(UBound(brr, 1), UBound(brr, 2)) = brr
   
    Application.ScreenUpdating = True
    MsgBox "ok!"
End Sub