PTT數位生活區 / Office

Re: [算表] VBA的range

看板Office作者 (windknife18)時間17年前 (2009/04/22 21:55), 編輯推噓8(8推 0噓 8→)
留言16則, 3人參與, 最新討論串2/2 (看更多)
If Cells(i, 1) = Cells(i - 1, 1) Then Range(Cells(i, 1), Cells(i, 4)).Delete Shift:=xlUp End If ※ 引述《wabicone (我是孩子王)》之銘言： : (若是和其他不同軟體互動之問題 請記得一併填寫) : 軟體: : Excel VBA : 版本: : 2003 : 各位前輩 : 我想要寫一個小程式 : 麻煩各位幫我看一下要怎麼寫 : 邏輯如下 : 若 cell(A,i)=cell(A,i-1) : 則 range Ai~Di.select : 再 selection.delete Shift:=xlup : 請問 這個要怎麼寫啊? : 試了好幾個小時了 寫不出來 麻煩前輩們指點迷津 : 感激不盡! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.229.91.144
推
04/22 22:14, , 1F
請問如果我要一列一列的找下去 就加個for i =1 to 100 ?
04/22 22:14, 1F
→
04/22 22:16, , 2F
對阿，不過要記得因為刪除後往上移，要記得處理移上來
04/22 22:16, 2F
→
04/22 22:17, , 3F
的資料 例如 row1 = row2 = row3 刪除 row2 後 row3
04/22 22:17, 3F
→
04/22 22:18, , 4F
移到 row2 所以要再處理，依此類推 ...
04/22 22:18, 4F
→
04/22 22:18, , 5F
所以通常我會使用 while 來處理 ...
04/22 22:18, 5F
推
04/22 22:19, , 6F
太感謝了 !
04/22 22:19, 6F
→
04/22 22:22, , 7F
加油囉！ 多多練習就會進步了 ... 有問題再上來問囉
04/22 22:22, 7F
推
04/22 22:25, , 8F
沒問題 謝謝!
04/22 22:25, 8F
推
04/23 00:48, , 9F
所以由下往上 100 to 1 (step -1 應該是吧) 也是個好方法
04/23 00:48, 9F
推
04/23 01:11, , 10F
嗯 我試試看
04/23 01:11, 10F
推
04/23 01:20, , 11F
我試了一下 for 可以倒著數嗎? 我跑不出來
04/23 01:20, 11F
→
04/23 01:20, , 12F
所以我加了另一個變數 j = 5000 - i 去跑~~
04/23 01:20, 12F
推
04/23 01:25, , 13F
For i = 4 To 1 Step -1 '要寫上間距 -1
04/23 01:25, 13F
→
04/23 01:29, , 14F
Debug.Print i:: Next '這兩行是測試碼 跑完Ctrl+g看結果
04/23 01:29, 14F
→
04/23 01:33, , 15F
(pcman用法補充 XD) 按住shift再用滑鼠選比較好選範圍
04/23 01:33, 15F
推
04/23 01:36, , 16F
感恩! let me try
04/23 01:36, 16F
‣ 更多 windknife18 的文章
文章代碼(AID): #19xo7Aag (Office)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
排序： 最新先 | 最舊先 | 留言數
在新視窗開啟完整討論串 (共2篇)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 windknife18 的文章
文章代碼(AID): #19xo7Aag (Office)