[已解决]插入排序问题

edisonx32

Sub test()
Dim x, y, temp
    For x = 2 To 8
    temp = Cells(x, 1)
    For y = x - 1 To 1 Step -1
    If Cells(y, 1) < temp Then Exit For
    Cells(y + 1, 1) = Cells(y, 1)
    Next y
    Cells(y + 1, 1) = temp
    Next
End Sub

第一次循环x=2时，语句执行完Cells(y + 1, 1) = temp时，表格中的A1会变成2，想请问照代码看Cells(y + 1, 1)对应的单元格应该是A2，为什么会对A1赋值2呢？本人刚接触VBA，能否请各位大神给我做详细又容易理解的解释，谢谢！！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-7-19 16:30

y循环结束后，y变量会再减去一次step值，不是到to后面的值就结束了。

跳转到最佳答案楼层

idnoidno

不好意思，我也是初學，我嘗試說明一下跟您一起分享這一個代碼
第一，當X=2時，進到FOR的循環，這時後Y=X-1=2-1=1，所以Cells(y, 1)=A1=123
第二、Cells(y, 1)=123 < temp=Cells(x, 1)=Cells(2, 1)=3，對吧，
所以IF循環就跳到Cells(y + 1, 1) = Cells(y, 1)，也就是Cells(1 + 1, 1)=Cells(2,1) = Cells(1, 1)
第三、Cells(2,1) = Cells(1, 1)意思是將Cells(2, 1)值由Cells(1, 1)取代(這一個是初學者要，我看是要背下來得觀念)
第四、再把 temp的值置入Cells(2,1)

大灰狼1976

y循环结束后，y变量会再减去一次step值，不是到to后面的值就结束了。

edisonx32

idnoidno 发表于 2017-7-19 16:26
不好意思，我也是初學，我嘗試說明一下跟您一起分享這一個代碼
第一，當X=2時，進到FOR的循環，這時後Y=X- ...

谢谢，一起努力！

edisonx32

大灰狼1976 发表于 2017-7-19 16:30
y循环结束后，y变量会再减去一次step值，不是到to后面的值就结束了。

理解了！[em17]