[已解决]请教一个VBA的编写问题

zysoul

有一个数据组如图 A行与B行所示。
请问如何能把A行与B行，自动设置成C行与D行一样。
我试了很多次都不行。
下面是一个调试代码，走不通。请高手指点啊？万分感激！

Sub test()
Dim i As Integer, j As Integer
For i = 1 To 15
For j = 1 To 4
If Range("A" & i).Value <> j Then
   i = i + 1
  Cells(i, "D").Value = j
  Else
  Cells(i, "D").Value = Cells(i, "A").Value
  End If
Next j
Next i

End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-20 20:21

1. Sub test()
   
2.     Dim i As Integer, j As Integer
   
3.     For i = 1 To 15
   
4.         For j = 1 To 4
   
5.             If Range("A" & i).Value <> j Then
   
6.                 i = i + 1
   
7.                 Cells(i, "D").Value = j
   
8. 
   
9.             Else
   
10.                 Cells(i, "D").Value = Cells(i, "A").Value
    
11. 
    
12.             End If
    
13.         Next j
    
14.     Next i
    
15.     j = 2
    
16.     For i = 2 To 15
    
17.         If Len(Cells(i, "d")) > 0 Then
    
18.             If Cells(i, "d") = Cells(j, "a") Then
    
19.                 Cells(i, "e") = Cells(j, "b")
    
20.                 j = j + 1
    
21.                
    
22.             End If
    
23. 
    
24.         End If
    
25.     Next
    
26. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub test()
   
2.     Dim i As Integer, j As Integer
   
3.     For i = 1 To 15
   
4.         For j = 1 To 4
   
5.             If Range("A" & i).Value <> j Then
   
6.                 i = i + 1
   
7.                 Cells(i, "D").Value = j
   
8. 
   
9.             Else
   
10.                 Cells(i, "D").Value = Cells(i, "A").Value
    
11. 
    
12.             End If
    
13.         Next j
    
14.     Next i
    
15.     j = 2
    
16.     For i = 2 To 15
    
17.         If Len(Cells(i, "d")) > 0 Then
    
18.             If Cells(i, "d") = Cells(j, "a") Then
    
19.                 Cells(i, "e") = Cells(j, "b")
    
20.                 j = j + 1
    
21.                
    
22.             End If
    
23. 
    
24.         End If
    
25.     Next
    
26. End Sub
    

复制代码

zysoul

太牛了！成了。万分感谢！！！

hwc2ycy

第一轮循环中的ELSE没有用。按你的循环法，就不会有ELSE的情况了。

1. Sub test()
   
2.     Dim i As Integer, j As Integer
   
3.     For i = 1 To 15
   
4.         For j = 1 To 4
   
5.                 i = i + 1
   
6.                 Cells(i, "D").Value = j
   
7.         Next j
   
8.     Next i
   
9.     j = 2
   
10.     For i = 2 To 15
    
11.         If Len(Cells(i, "d")) > 0 Then
    
12.             If Cells(i, "d") = Cells(j, "a") Then
    
13.                 Cells(i, "e") = Cells(j, "b")
    
14.                 j = j + 1
    
15.             End If
    
16.         End If
    
17.     Next
    
18. End Sub

复制代码

zysoul

看了80集没找出解，您这一下解决了大问题。太谢谢了