返回列表下一主題上一主題發帖

[發問] 指定範圍儲存格內含指定英文將該儲存格去除問題請教

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

2^#

發表於 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

複製代碼

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 560
主題: 159
精華: 0
積分: 723
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2023-10-31

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2015-4-24 08:19 | 只看該作者

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

羅

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 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兔年全勤獎章