Excel宏,怎么编辑

发布网友发布时间：2022-05-26 23:46

共1个回答

热心网友时间：2024-11-15 19:48

B列前本代码没有复制，A列本就在B列前，代码如下：

Public Sub 复制A列插入其他列()
    Dim L As Long, i As Long
    L = Range("A1").Offset(0, 255).End(xlToLeft).Column
    Columns("A:A").Copy
    For i = L To 3 Step -1
        Columns("A:A").Copy
        Cells(1, i).EntireColumn.Insert Shift:=xlToRight
    Next
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com