如何快速将横排表格转成竖排表表格

skbliufeng

      像这种表格，每次各班主任报过来的名单是按班级、学生姓名横向排列的表格，但是用邮件合并功能进行批量打印时，我又要一个班一个班地复制、选择性粘贴、转置，把它变成竖向排列的表格，这样非常的不方便，请问各位坛友，有没有快速，批量处理的方法。

skbliufeng

变成像左边的表格样式

quqiyuan

J2=INDEX(A:A,SMALL(IF($B$2:$F$5<>"",ROW($2:$5)),ROW(A1)))
K2=VLOOKUP(J2,$A$2:$F$5,COUNTIF($J$2:J2,J2)+1,)

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, r&
   
    ar = [A1].CurrentRegion.Value
    ReDim br(1 To UBound(ar) * UBound(ar, 2), 1 To 2)
    br(1, 1) = "班级": br(1, 2) = "姓名": r = 1
   
    For i = 2 To UBound(ar)
        For j = 2 To UBound(ar, 2)
            r = r + 1
            br(r, 1) = ar(i, 1)
            br(r, 2) = ar(i, j)
        Next j
    Next i
   
    [J1].CurrentRegion.Clear
    With Range("J1:K" & r)
        .Value = br
                .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Borders.LineStyle = xlContinuous
    End With
    Beep
End Sub

gwjkkkkk

VBa请参考。。。

skbliufeng

quqiyuan 发表于 2024-2-15 13:41
J2=INDEX(A:A,SMALL(IF($B$2:$F$5"",ROW($2:$5)),ROW(A1)))
K2=VLOOKUP(J2,$A$2:$F$5,COUNTIF($J$2:J2,J2) ...

非常谢谢！

skbliufeng

quqiyuan 发表于 2024-2-15 13:41
J2=INDEX(A:A,SMALL(IF($B$2:$F$5"",ROW($2:$5)),ROW(A1)))
K2=VLOOKUP(J2,$A$2:$F$5,COUNTIF($J$2:J2,J2) ...

非常感谢！

祝洪忠-

最新版本的WPS表格 可以使用以下公式

=HSTACK(TOCOL(IF(COLUMN(B:F),A2:A5)),TOCOL(B2:F5))

静听溪流

skbliufeng

静听溪流 发表于 2024-2-15 14:25

谢谢！