麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 指定範圍儲存格內含指定英文將該儲存格去除問題請教 [打印本頁]

作者: rouber590324 時間: 2015-4-23 14:29 標題: 指定範圍儲存格內含指定英文將該儲存格去除問題請教

DEAR  ALL大大
1.指定範圍儲存格內含指定英文將該儲存格去除問題請教
1.1 儲存格 RANGE("H3:Z100") 內有含  E 之內容則該儲存格去除.餘資料欄順序向前.
  1.1.1 例 : H3=F123 I3=F123E  J3=12345  K3=E1231 -- 執行後變
                        H3=F123 I3=12345    -- 因原 I3  K3 含E 去除. 餘欄資料順序向前
2.煩不吝賜教 THANKS*10000

作者: luhpro 時間: 2015-4-23 22:11

DEAR ALL大大
1.指定範圍儲存格內含指定英文將該儲存格去除問題請教
1.1 儲存格 RANGE("H3:Z100") 內有含 ...
rouber590324 發表於 2015-4-23 14:29

不適合用 For Each R In RANGE("H3:Z100") 的方式來輪巡(遍歷)所有標的儲存格,
因為刪除後資料位置會有變化, 較適當的方式是用倒序法.

Sub nn()
Dim lRow&, iCol%
For lRow = 100 To 3 Step -1
For iCol = 26 To 8 Step -1
With Cells(lRow, iCol)
If InStr(1, .Text, "E") <> 0 Then .Delete Shift:=xlShiftToLeft
End With
Next
Next
End Sub

複製代碼

作者: rouber590324 時間: 2015-4-24 08:19

DEAR luhpro 大大
真地非常感謝您 100%符合需求.
真是學無止盡 THANKS*10000

作者: Hsieh 時間: 2015-4-24 16:35

回復 3# rouber590324
尋找功能不錯用

[attach]20785[/attach]

作者: rouber590324 時間: 2015-4-27 11:32

DEAR Hsieh 大大
感謝您提供另一思考方向 THANKS*10000

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