各位高手，新年好！如何改进下面代码，使得代码看上去更好理解与简洁，谢谢！

先行者

i = 4
Do
   If Cells(1, i) <> Cells(1, i - 1) And (Cells(2, i - 1) <> "与上期差异" And Cells(2, i - 1) <> "增长率") And (Cells(2, i) <> "与上期差异" And Cells(2, i) <> "增长率") Then
        Columns(i).Insert
        Columns(i + 1).Insert
        Cells(2, i) = "与上期差异"
        Cells(2, i + 1) = "增长率"
        i = i + 1
    End If
        i = i + 1
Loop Until (Cells(2, i - 1) = "")

jackierobin

1. i = 4
   
2. Do
   
3.    If Cells(1, i) <> Cells(1, i - 1) Then
   
4.    If (Cells(2, i - 1) <> "与上期差异" Then
   
5.    If Cells(2, i - 1) <> "增长率") Then
   
6.    If (Cells(2, i) <> "与上期差异" Then
   
7.    If Cells(2, i) <> "增长率") Then
   
8.         Columns(i).Insert
   
9.         Columns(i + 1).Insert
   
10.         Cells(2, i) = "与上期差异"
    
11.         Cells(2, i + 1) = "增长率"
    
12.         i = i + 1
    
13.     End If
    
14.     End If
    
15.     End If
    
16.     End If
    
17.     End If
    
18.         i = i + 1
    
19. Loop Until (Cells(2, i - 1) = "")

复制代码

最后加上注释可以更好理解

先行者

谢谢jackierobin网友的回复，太好了可以运行，非常感谢！-最后加上注释可以更好理解