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

litso

ovxyz 发表于 2023-3-2 11:54

谢谢你，我试了，非常好，但能不能再优化一下，把整个"原始数据"表复制放到我已创建的一个名称为“临时表”内，再进行插入等的操作，因为按你的VBA，每次都会生成一个新的表格，原始数据(2)

tanglf188

litso 发表于 2023-3-2 11:00
首先谢谢你，但结果不是在原来数据上插入，要放到新的工作表中

1. Sub test6()
   
2.     Dim col$, i%, last&
   
3.     Application.ScreenUpdating = False
   
4.     last = Sheet3.Range("A" & Rows.Count).End(xlUp).Row
   
5.     Sheet2.Cells.Delete
   
6.     Sheet3.Rows("1:" & last).Copy Sheet2.Range("A1")
   
7.     col = "KMNOPQRTVW"
   
8.     For i = 87 To 75 Step -1
   
9.         If InStr(col, Chr(i)) > 0 Then
   
10.             With Sheet2.Columns(Chr(i) & ":" & Chr(i))
    
11.                 .Copy
    
12.                 .Offset(, 1).Insert Shift:=xlToRight
    
13.             End With
    
14.             Sheet2.Cells(1, Chr(i + 1)).Value = Sheet2.Cells(1, Chr(i + 1)).Value & "A"
    
15.         End If
    
16.     Next
    
17.     Sheet2.Columns("A:AH").Columns.AutoFit
    
18.     Application.CutCopyMode = False
    
19. End Sub
    

复制代码

ovxyz

litso 发表于 2023-3-2 14:05
谢谢你，我试了，非常好，但能不能再优化一下，把整个"原始数据"表复制放到我已创建的一个名称为“临时表 ...

这里涉及很多细节性问题，不太明白就好具体操作。
你这临时表本身有内容没有？
临时表的原有的样子跟原始数据的格式有么有区别？
每次运行一下，要判断原始数据与当时的临时表的变化吗？
前提太多。可能写了也未必是你需要的。

litso

tanglf188 发表于 2023-3-2 14:37

For i = 87 To 75 Step -1
这里的87、75是什么意思？

litso

tanglf188 发表于 2023-3-2 14:37

还有，如果我的行号超过了W，出现了像AC、AD，也可以这样写上去吗？
col = "KMNOPQRTVW"

litso

ovxyz 发表于 2023-3-2 16:02
这里涉及很多细节性问题，不太明白就好具体操作。
你这临时表本身有内容没有？
临时表的原有的样子跟原 ...

临时表就是一空表，谢谢你

tanglf188

litso 发表于 2023-3-2 16:33
For i = 87 To 75 Step -1
这里的87、75是什么意思？

列字母对应的编码数字，K-75,W-87,你可以扩充到Z-90，超过这个就要改代码了

litso

tanglf188 发表于 2023-3-2 17:07
列字母对应的编码数字，K-75,W-87,你可以扩充到Z-90，超过这个就要改代码了

我有一列到了AB列，要怎么改？

tanglf188