返回列表 上一主題 發帖

插入列的程式

自我感覺良好

帖子
116 
主題
41 
精華
0 
積分
162 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2024-2-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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？
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
106  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-8 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

自我感覺良好

帖子
116 
主題
41 
精華
0 
積分
162 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2024-2-9 
3#
發表於 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
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題