返回列表 上一主題 發帖

[發問] 如何批次將中間的字變成 0 呢?

kkbox

帖子
4 
主題
1 
精華
0 
積分
7 
點名
0  
作業系統
win 7 
軟體版本
office 2013 
閱讀權限
10 
性別
男 
註冊時間
2014-7-28 
最後登錄
2014-7-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-7-30 10:24 | 只看該作者

[發問] 如何批次將中間的字變成 0 呢?

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

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

例：
陳水扁→陳0扁
馬英九→馬0九
江宜樺→江0樺
收藏 分享
m__m

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

wjt9093

帖子
14 
主題
1 
精華
0 
積分
15 
點名
0  
作業系統
win10 
軟體版本
office 2003 2007 
閱讀權限
10 
性別
男 
註冊時間
2014-11-7 
最後登錄
2015-8-17 
3#
發表於 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)
...利用拖曳複製

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
4#
發表於 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位元.需再寫函數")))
羅

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題