换列显示

xing_chen

老师，有表，数据列为4列，现在怎么将其放入2列显示。敬请老师赐教！谢谢！

蓝桥玄霜

填写的例子：

ykcbf1100

先做个记号

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br, i&, j&, r&
   
    ar = [A1].CurrentRegion
    ReDim br(1 To UBound(ar) * 3, 1 To 3)
    For i = 2 To UBound(ar)
        r = r + 1
        br(r, 1) = ar(i, 1)
        br(r, 2) = ar(i, 2) + ar(i, 3)
        If ar(i, 4) + ar(i, 5) = 0 Then
            r = r + 1
            br(r, 1) = ar(i, 1)
            br(r, 3) = ar(i, 2) + ar(i, 3)
        Else
            For j = 4 To 5
                r = r + 1
                br(r, 1) = ar(i, 1)
                br(r, 3) = ar(i, j)
            Next j
        End If
    Next i
   
    [L2].Resize(r, 3) = br
    Beep
End Sub

gwjkkkkk

请参考。。。

xing_chen

蓝桥玄霜 发表于 2023-3-27 16:12
填写的例子：

谢谢老师！运行如愿！

xing_chen

gwjkkkkk 发表于 2023-3-27 19:12
请参考。。。

谢谢老师！运行如愿！更要谢谢你的代码弥补了我的样张中的瑕疵，将用户名也与数据显示一致。

xing_chen

ykcbf1100 发表于 2023-3-27 17:23
先做个记号

记号！记号！记住就好！谢谢老师！

ykcbf1100

xing_chen 发表于 2023-3-28 10:42
记号！记号！记住就好！谢谢老师！

哈哈，我忘记了。
看了一下，好多老师已帮你写了代码了，那我好象不用写了吧。

ykcbf1100

参与一下吧。。。