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

[發問] 替換儲存格內特定字串

pinklee

中學生 Rank: 2

帖子: 57
主題: 25
精華: 0
積分: 87
點名: 0
作業系統: xp2
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-16
最後登錄: 2023-11-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-9-20 19:49 | 只看該作者

[發問] 替換儲存格內特定字串

本帖最後由 pinklee 於 2011-9-20 19:53 編輯

有東,南,西,北,中, 五區因需要要改成A, B, C ,Ｄ,Ｅ區
以下的巨集只可做到一區
Sub test()
Dim dd As String
dd = "東區"
Cells.Replace What:=dd, Replacement:="A區", _
LookAt:=xlPart, SearchOrder:=xlByRows
End Sub
請教各位用什方法可以一次改寫五個區
感激不盡

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-9-20 21:23 | 只看該作者

Sub TEST()
a = "東西南北中"
b = "ABCDE"
For i = 1 To 5
Cells.Replace Mid(a, i, 1), Mid(b, i, 1)
Next
End Sub

TOP

pinklee

中學生 Rank: 2

帖子: 57
主題: 25
精華: 0
積分: 87
點名: 0
作業系統: xp2
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-16
最後登錄: 2023-11-29

3^#

發表於 2011-9-20 21:38 | 只看該作者

本帖最後由 pinklee 於 2011-9-20 23:20 編輯

回復 2# oobird

讚讚讚

簡潔有力謝謝

Sub TEST()
a = "中正區信義區中山區"
b = ""
For i = 1 To 9 Step 3
Cells.Replace Mid(a, i, 3), Mid(b, i, 1)
Next
End Sub

偷師一下改成刪除特字元不介意吧謝啦

TOP

oobird