excel2
=IF(ISNUMBER(MATCH(LEFT(A2,1),一文字姓,0)),REPLACE(A2,2,0," "),IF(ISNUMBER(MATCH(LEFT(A2,3),三文字姓,0)),REPLACE(A2,4,0," "),REPLACE(A2,3,0," ")))
【自動空白】住所編
A
郵便番号入力
B
住所全部入力
=VLOOKUP(A2,Sheet4!A:C,2,0)
C
=VLOOKUP(C2,Sheet4!$B$1:$D$124522,2,0)
E
=REPLACE(B2,1,D2,"")
F
=C2&" "&E2
sheet2--------------------------
A
郵便番号
B住所
C
=LEN(B2)
D
(郵便?)
====================================---
Sub 漢数字⇒全角数字()
Cells.Replace What:="一", Replacement:="1", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="二", Replacement:="2", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="三", Replacement:="3", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="四", Replacement:="4", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="五", Replacement:="5", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="六", Replacement:="6", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="七", Replacement:="7", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="八", Replacement:="8", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="九", Replacement:="9", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
excel
シート1
A列
検索したい番号
B自動入力
=SUBSTITUTE(A2,"-","")
C列
2
=IFERROR(VLOOKUP(LEFT(B2,2)&"*",禁止リスト!$L$3:$M$11,2,FALSE),"")
D列
3
=IFERROR(VLOOKUP(LEFT(B2,3)&"*",禁止リスト!$L$13:$M$24,2,FALSE),"")
E列
5=IFERROR(VLOOKUP(LEFT(B2,5)&"*",禁止リスト!$L$26:$M$80,2,FALSE),"")
シート2:禁止リスト
A~E:貼り付けらん
F 空欄
G 検索値
H 自動
=SUBSTITUTE(G2,"-","")
I
=SUBSTITUTE(H2,"X","")
J
=LEN(I2)
K空欄
L
3-11
13-24
26-80
M 送れません