標題: 插入列的程式 [打印本頁]

---

作者: 自我感覺良好    時間: 2013-2-28 03:53     標題: 插入列的程式

Sub a1()
    For x = 2 To 1200 Step 3
        Cells(x, 1) = Selection.EntireRow.Insert
        ActiveCell.Offset(3, 0).Range("A1").Select
    Next x
End Sub


插入列的程式
自己亂搞出來的
可是會跑出TRUE
請問要怎樣才不會跑出TRUE？

---

作者: Hsieh    時間: 2013-2-28 11:23

回復 1# 自我感覺良好
要插入列，是使用Insert方法
因為從上往下插入列，每次插入後會造成列位下移
所以要正確間隔插入最好由下往上

1. Sub ex()
   
2.     For x = 1200 To 2 Step -3
   
3.         Cells(x, 1).EntireRow.Insert
   
4.     Next x
   
5. End Sub

複製代碼

---

作者: 自我感覺良好    時間: 2013-2-28 13:27

太感謝了
要學程式
英語真的要多懂幾個字
Sub a1()
    For x = 1 To 50
        Cells(x, 1) = "ai"
    Next x

End Sub
    Sub ex()
        For x = 1200 To 2 Step -3
            Cells(x, 1).EntireRow.Insert
        Next x
    End Sub
Sub a2()
    For x = 2 To 1200 Step 3
        Cells(x, 1).EntireRow.Insert
    Next x
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)