求助如何可以自动插入列并复制前一列的数据

litso

大哥们，

         我现在有个需求，就是使用VBA功能复制工作表的数据，但同时要在表中指定列后面新增列，并复制它的数据

举个例
表A
A  B  C  D  E
1   2  3  4   5
想要的效果是

A  A1  B  B1  C  C1 D  E E1
1   1   2   2    3   3  4  5  5
详细的内容请看附件表，表中的原始数据是很多的，为了上传方便，我删剩6行数据，黄色的列就是新增的，谢谢大家

高个子

你这个表的插入规则不是很明确，建议列出需要插入列的表头再写代码

litso

高个子 发表于 2023-3-1 20:29
你这个表的插入规则不是很明确，建议列出需要插入列的表头再写代码

不好意思，是我表达不清楚，黄色列就是想要的插入列，表头就按这个效果，其实是不是应该这样理解，把原始数据表中的K、M、N、O、P、Q、R、T、V、W列复制，然后分别插入到原K、M、N、O、P、Q、R、T、V、W列后面，插入后的列表头就是原表头后加个“Ａ”

高个子

litso 发表于 2023-3-2 09:07
不好意思，是我表达不清楚，黄色列就是想要的插入列，表头就按这个效果，其实是不是应该这样理解，把 ...

你这些列是固定的吗？不会增加？

litso

高个子 发表于 2023-3-2 09:24
你这些列是固定的吗？不会增加？

固定，不会增加

mafect

占位学习，天天向上

高个子

litso 发表于 2023-3-2 09:56
固定，不会增加

1. Sub 宏1()
   
2.     Columns("W:W").Copy
   
3.     Columns("X:X").Insert Shift:=xlToRight
   
4.     Range("X1") = Range("X1") & "A"
   
5.     Columns("v:v").Copy
   
6.     Columns("w:w").Insert Shift:=xlToRight
   
7.     Range("w1") = Range("w1") & "A"
   
8.     Columns("t:t").Copy
   
9.     Columns("u:u").Insert Shift:=xlToRight
   
10.     Range("u1") = Range("u1") & "A"
    
11.     Columns("r:r").Copy
    
12.     Columns("s:s").Insert Shift:=xlToRight
    
13.     Range("s1") = Range("s1") & "A"
    
14.     Columns("q:q").Copy
    
15.     Columns("r:r").Insert Shift:=xlToRight
    
16.     Range("r1") = Range("r1") & "A"
    
17.     Columns("p:p").Copy
    
18.     Columns("q:q").Insert Shift:=xlToRight
    
19.     Range("q1") = Range("q1") & "A"
    
20.     Columns("o:o").Copy
    
21.     Columns("p:p").Insert Shift:=xlToRight
    
22.     Range("p1") = Range("p1") & "A"
    
23.     Columns("n:n").Copy
    
24.     Columns("o:o").Insert Shift:=xlToRight
    
25.     Range("o1") = Range("o1") & "A"
    
26.     Columns("m:m").Copy
    
27.     Columns("n:n").Insert Shift:=xlToRight
    
28.     Range("n1") = Range("n1") & "A"
    
29.     Columns("k:k").Copy
    
30.     Columns("l:l").Insert Shift:=xlToRight
    
31.     Range("l1") = Range("l1") & "A"
    
32. End Sub

复制代码

先给你一个火车，等大佬来优化

tanglf188

litso

tanglf188 发表于 2023-3-2 10:33

首先谢谢你，但结果不是在原来数据上插入，要放到新的工作表中

ovxyz