取代字串? - Excel程式區 - 麻辣家族討論版版

[發問] 取代字串?

1^# 跳轉到 »

發表於 2014-11-9 08:32 | 顯示全部帖子

欲將姓名
王某                取代成    王O
陳某某             取代成    陳O某
趙某某某    ...
thjh159 發表於 2014-11-8 14:34

參考 GBKEE 大大的程式修改 :

Sub nn()
Dim AR(), i%
AR = Array("王大", "王大一", "王大大二", "王大AB三")
For i = 0 To UBound(AR)
AR(i) = Left(AR(i), 1) & String(Len(AR(i)) - (Len(AR(i)) = 2) - 2, "○") & Right(AR(i), -(Len(AR(i)) > 2))
Next
MsgBox Join(AR, vbLf)
End Sub

複製代碼

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。