单元格转置转换

liulang0808

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    arr = [o1].CurrentRegion
    r = 3
    For j = 2 To UBound(arr) Step 3
        Cells(r, 1) = arr(j, 1)
        Cells(r, 2) = arr(j, 2)
        Cells(r, 3) = arr(j + 1, 2)
        
        Cells(r, 5) = arr(j, 3)
        Cells(r, 6) = arr(j + 1, 3)
        Cells(r, 7) = arr(j + 2, 3)
        Cells(r, 8) = arr(j, 4)
        r = r + 1
    Next j
    Application.ScreenUpdating = True
End Sub

其他部分自己补齐吧

632947326

liulang0808 发表于 2018-8-7 19:46
Sub 按钮1_Click()
    Application.ScreenUpdating = False
    arr = [o1].CurrentRegion

谢谢版主！自己己添加好了，只是运行时整个屏幕卡顿变白闪了一下，不知撒回事