如何把表1显示成表格的格式（同一个客户到店时间横向显示）

消灭零公里

壹号公馆 发表于 2021-3-30 13:35
我想用函数直接将数据导入，现在的数据是手动输入导入的，像这样的数据比较多，难道要手动录入么?可能我 ...

不是没描述清楚，是表1的样式的数据统计处理起来会比较方便。表2的样式其实是不规范的，后续统计处理起来比较麻烦

壹号公馆

jivy1212 发表于 2021-3-30 14:07
辅助列公式，然后数据透视

这个数据透视表我还不能熟悉运用它，我肯定做不出来，慢慢研究一下，感谢大师

壹号公馆

消灭零公里 发表于 2021-3-30 14:10
不是没描述清楚，是表1的样式的数据统计处理起来会比较方便。表2的样式其实是不规范的，后续统计处理起来 ...

嗯！确实比较麻烦。

zpy2

select 客户,group_concat(到店||'</td><td>'||消费金额,'</td><td>') [到店</td><td>消费金额</td><td>到店</td><td>消费金额</td><td>到店</td><td>消费金额] from 客户到店消费明细表 group by 客户

zpy2

zpy2 发表于 2021-3-30 14:26
select 客户,group_concat(到店||''||消费金额,'') [到店消费金额到店消费金额到店消费金额] from 客户到店 ...

select 客户,sum(消费金额),group_concat(到店||'</td><td>'||消费金额,'</td><td>') [到店</td><td>消费金额</td><td>到店</td><td>消费金额</td><td>到店</td><td>消费金额] from 客户到店消费明细表 group by 客户

是不是要邮件合并对账，加个合计。

ericxzhou

Sub Transpose()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Range("e2").CurrentRegion.Offset(1).ClearContents
    Cells(2, 5).Value = Cells(2, 1).Value
    Cells(2, 6).Value = Cells(2, 2).Value
    Cells(2, 7).Value = Cells(2, 3).Value
    k = 8
    For i = 3 To Range("a1").CurrentRegion.Rows.Count
        For j = 2 To Range("e1").CurrentRegion.Rows.Count
            If Cells(i, 1).Value = Cells(j, 5).Value Then
                Do While Cells(j, k).Value <> ""
                    k = k + 2
                Loop
                Cells(j, k).Value = Cells(i, 2).Value
                Cells(j, k + 1).Value = Cells(i, 3).Value
                k = 8
                Exit For
            ElseIf Cells(j + 1, 5) = "" Then
                Cells(j + 1, 5).Value = Cells(i, 1).Value
                Cells(j + 1, 6).Value = Cells(i, 2).Value
                Cells(j + 1, 7).Value = Cells(i, 3).Value
            End If
        Next j
    Next i
End Sub

壹号公馆

ericxzhou 发表于 2021-3-30 15:30
Sub Transpose()
    Dim i As Integer
    Dim j As Integer

想问一下，如果有上万个数据，你这个代码能使用么？

壹号公馆

zpy2 发表于 2021-3-30 14:32
select 客户,sum(消费金额),group_concat(到店||''||消费金额,'') [到店消费金额到店消费金额到店消费金 ...

也可以，只要能做出这个表格来。

ericxzhou

壹号公馆 发表于 2021-3-30 16:21
想问一下，如果有上万个数据，你这个代码能使用么？

应该可以，试试看，可能需要几分钟转换。

壹号公馆

ericxzhou 发表于 2021-3-30 15:30
Sub Transpose()
    Dim i As Integer
    Dim j As Integer

好的，谢谢了！