[已解决]复制代码优化问题

lj3543711

代码 复制指定列 代码 及生成新表格问题 请大神留下脚印 1 代码已上传 表格代码优化问题.zip (93.4 KB, 下载次数: 2) 2021-9-22 14:08 上传 点击文件名下载附件 2

最佳答案

月排行榜 / 总排行榜

风林火山

2021-9-22 14:41

Sub myColumnCopy()
      With Sheets(2)
            .Columns(1).Copy Sheets(1).Range("A1")
            .Columns(2).Copy Sheets(1).Range("B1")
            .Columns(3).Copy Sheets(1).Range("C1")
            .Columns(13).Copy Sheets(1).Range("J1")
            .Columns(15).Copy Sheets(1).Range("K1")
            .Columns(16).Copy Sheets(1).Range("L1")
      End With
      ThisWorkbook.SaveAs ThisWorkbook.Path & "\拼团申请-商品ID导入模板.xlsm"
End Sub

跳转到最佳答案楼层

风林火山

Sub myColumnCopy()
      With Sheets(2)
            .Columns(1).Copy Sheets(1).Range("A1")
            .Columns(2).Copy Sheets(1).Range("B1")
            .Columns(3).Copy Sheets(1).Range("C1")
            .Columns(13).Copy Sheets(1).Range("J1")
            .Columns(15).Copy Sheets(1).Range("K1")
            .Columns(16).Copy Sheets(1).Range("L1")
      End With
      ThisWorkbook.SaveAs ThisWorkbook.Path & "\拼团申请-商品ID导入模板.xlsm"
End Sub