取代字串? - 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

複製代碼

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。