標題: [發問] 如何批次將中間的字變成 0 呢? [打印本頁]

---

作者: kkbox    時間: 2014-7-30 10:24     標題: 如何批次將中間的字變成 0 呢?

因應個資法的施行  現在公佈許多名單都不能打出全名

在 excel 中有沒有方法能批次將中字的字改能 0

例：
陳水扁→陳0扁
馬英九→馬0九
江宜樺→江0樺

---

作者: GBKEE    時間: 2014-7-30 16:01

回復 1# kkbox
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim S As String
   
4.     Range("a1") = "陳水扁"
   
5.     S = Replace(Range("a1"), Mid(Range("a1"), 2, 1), "0")
   
6.     Range("a1") = S
   
7. End Sub

複製代碼

---

作者: wjt9093    時間: 2014-11-12 17:59

A欄
1陳水扁→A1=left(A1,1)&"0"&right(A1,1)
2馬英九→A2=left(A2,1)&"0"&right(A2,1)
3江宜樺→A3=left(A3,1)&"0"&right(A3,1)
...利用拖曳複製

---

作者: rouber590324    時間: 2014-11-13 08:32

DEAR SIR
  如下 貼於 B1 往下COPY即可.

=IF(LEN(A1)-2=0,MID(A1,1,1)&"0",IF(LEN(A1)-3=0,MID(A1,1,1)&"0"&MID(A1,3,1),IF(LEN(A1)-4=0,MID(A1,1,1)&"0"&MID(A1,4,1),"名字5位元.需再寫函數")))

---

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