如何将excel中竖向的信息转化成横向的一列信息

meemmanuel

求助大神，如何将红色区域的数据转化成紫色区域这种表格样式，不甚感激啊

－－已修正部分信息。
－－－刀羊
里面设计的姓名，身份证号码信息均为处理后的虚假信息，不会泄露个人隐私

meemmanuel

大概有13000千列数据

xlgw521

忠告：你发这些信息最好把身份证信息隐藏，小心被人利用贻害他人

mapheer

等答案，着急

zpy2

with a as (select 姓名,出生日期,性别,身份证号,民族,户口性质,户主,与户主关系,户籍所在地,户号 from 户主明细转二维明细表 where 与户主关系 like '户主'), b as (select 姓名,出生日期,性别,身份证号,民族,户口性质,户主,与户主关系,户号 from 户主明细转二维明细表 where 与户主关系 not like '户主'),c as (select 户号,group_concat(姓名||'</td><td>'||出生日期||'</td><td>'||性别||'</td><td>'||身份证号||'</td><td>'||民族||'</td><td>'||户口性质||'</td><td>'||与户主关系,'</td><td>') 成员 from b group by 户号) select * from a join c using(户号)

meemmanuel

xlgw521 发表于 2021-6-19 15:21
忠告：你发这些信息最好把身份证信息隐藏，小心被人利用贻害他人

虚假信息，不是真实的

3190496160

Sub 数据转置()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Dim ar As Variant
Dim br()
ar = Sheets("sheet1").[a1].CurrentRegion
For i = 2 To UBound(ar)
    If Trim(ar(i, 10)) <> "" Then
        d(Trim(ar(i, 10))) = ""
    End If
Next i
ReDim br(1 To d.Count, 1 To UBound(ar) * UBound(ar, 2))
For Each k In d.keys
    n = n + 1: y = 0
    For i = 2 To UBound(ar)
        If Trim(ar(i, 10)) = k Then
            For j = 1 To 9
                y = y + 1
                br(n, y) = ar(i, j)
            Next j
        End If
    Next i
Next k
With Sheets("结果")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

Book8.rar (17.41 KB, 下载次数: 19)

2021-6-20 09:54 上传

点击文件名下载附件

3190496160

没有细看结果，仅供参考，
题外话，不知道楼主这样做的最终目的是什么，个人认为，原来的数据，其实是最方便后期处理的，

meemmanuel

zpy2 发表于 2021-6-20 08:11
with a as (select 姓名,出生日期,性别,身份证号,民族,户口性质,户主,与户主关系,户籍所在地,户号 from 户 ...

这个怎么用啊，大神，是函数吗，能搞个样本吗