[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『住所の一部から探す方法』（れいまま）
皆様こんばんは(*^_^*） またまた 教えてください。 住所があります。
＜例＞ 東京都葛飾区亀有公園前派出所１丁目２－３ 別シートに一覧表があれば この住所は１を あの住所は２をと表示することは可能ですか？
＜sheet葛飾区＞ A B 1 亀有公園前1丁目 ① 2 亀有公園前2丁目 ②
＜sheet1＞ A B 1 ☆ 東京都葛飾区亀有公園前派出所１丁目２－３
☆のところに ①とか②とか表示させることはできますか？ まったく同じものなら VLOOKUPとか 色々あると思うのですが、 長いものから一部をみつけて・・・なんて出来るものなのでしょうか？？？
MID関数等の文字列操作で住所の一部を引き出して、それをVLOOKUP関数の 検索値にするとかでも、いけそうな気がしますが？ (SS)
SSさん＞ありがとうございます。 作業列を使うということですね。なるほど。 やってみます。(れいまま）
>この住所は１を あの住所は２をと表示することは可能ですか？ ????? 東京都葛飾区亀有公園前派出所１丁目２－３ 亀有公園前1丁目 の文字はありますが”派出所”がじゃまをしますね。 むずかしいですね、
すみません。 この住所は例なので 実際は ○○県○○市○○○１－２－３ とか ○○県○○市○○○１０００番地 などになります。（れいまま）
今、SSさんからヒントをいただいて考えていたのが IF ISNUMBER FIND MID LEFT 関数を使って ○○市だけを取り出し、それでシートを選別 その後、 IF ISNUMBER FIND MID関数で住所を選別し ①とか②とかを当てはめようかな・・なんて。
何がしたいかというと、 何万件とある住所から担当店を表示させたいのです。 （れいまま）
こんばんは～♪
Sheet1のA1セルに
=INDEX(葛飾区!B:B,MATCH(1,INDEX(COUNTIF(B1,"*"&葛飾区!$A$1:$A$10&"*"),),0))
でいかがでしょうか？ 例外もありそうですから、全てには 対応しないと思いますけれど。
エラー処理はしていません。 ご参考にどうぞ～。。
。。。。Ms.Rin～♪♪
Ms.Rinさん＞こんばんは ありがとうございます。試してみます。
1つ教えていただきたいのですが 町名一覧というものがあります。 それは市町村ごとにシートが分かれています。 シートが分かれているものと シート1枚に全てまとまっているものとでは どちらが 関数では作業しやすいのでしょうか？ シート１枚にまとまっている場合は 市町村ごとに列が変わってきます。 これは 訂正するときに探しやすいからです。 エクセルなので 町名一覧はいかようにも加工できますが・・・ これから表を作り関数をいれ作業するのに どうしたらよいかと ふっと思ったものですから・・・ （脳ミソフル回転のれいまま）
Rinで～す。。♪
すみません。 >何万件とある住所から担当店を表示させたいのです を読んでいませんでした。
数万のデータでは、私の式では重くて使えません。 作業列が良いと思います。 もっと言えば、マクロが良いかと。
どちらにしても、 住所は色々あるので 前レスにも書きましたが、すべてには対応できないと思います。 手作業の助けにはなると思います。
>1つ教えていただきたいのですが >町名一覧というものがあります。 >それは市町村ごとにシートが分かれています。 >シートが分かれているものと >シート1枚に全てまとまっているものとでは >どちらが 関数では作業しやすいのでしょうか？
詳細がわかりませんので、何とも言えません。
たぶん、 >エクセルなので 町名一覧はいかようにも加工できますが・・・ この作業に尽きるのではないでしょうか。 そして、実際の住所にどれだけ対応できるかに なるのかと。
無責任な回答でゴメンナサイ！！ それだけ、私は、住所関係は難しいと思っています。
もう少し、識者のご意見を待ってみてください。
。。。。Ms.Rin～♪♪
VBAなら
IF Cell(m,n) Like "*検索したい文字列*"
Then ①を表示のロジック
Else ②を表示のロジック
End If
というやり方で、部分一致させる事が出来ますよ。 (HT)
データ量が多いと言うことで、実用性の保証はありません。 且つ >○○県○○市○○○１－２－３ >○○県○○市○○○１０００番地 となると、別シートの一覧表がどのように入力されているかにもよりますが。 Sheet1 [A] [B] [1] (1) 東京都葛飾区亀有公園前派出所１丁目２－３ [2] (3) ○○県○○市○○○１－２－３ [3] (4) ○○県○○市○○○１０００番地 Sheet2 [A] [B] [1] 亀有公園前派出所１丁目 (1) [2] 亀有公園前派出所２丁目 (2) [3] ○○市○○○１－ (3) [4] ○○市○○○１０００ (4) Sheet2がこのように入力されている場合 （３行目の最後の「－」がポイントです） Sheet1のA1に =INDEX(Sheet2!$B$1:$B$4,SUMPRODUCT(COUNTIF(B1,"=*"&Sheet2!$A$1:$A$4&"*")*ROW($A$1:$A$4))) として下にコピーです。 なお、Sheet1のC1に =SUMPRODUCT(COUNTIF(B1,"=*"&Sheet2!$A$1:$A$4&"*")) を入れるなら、これが「１」となったときに表示されているA列の番号は順当だと思います。
(HANA)
お休み前に、ちょっと挑戦ｂ
標準もシュールへ
'---------------------
Function reimama(MyVal As String)
Dim MyStr
With CreateObject("VBScript.RegExp")
.Pattern = "([0-9０-９]+\D+|[0-9０-９]+(－|-)){1,2}([0-9０-９]+)?"
MyStr = .Execute(MyVal)(0)
reimama = Replace(MyVal, MyStr, "")
End With
End Function
使用方法
=reimama(B1)
と入力してください。
あれ？
1丁目も出すのかな？
だとすると、
.Pattern = "([0-9０-９]+(－|-|番地)){1,2}([0-9０-９]+)?"
に差し替えかな？？？
（キリキ）（〃⌒o⌒)b
この関数は住所を３分割する関数なんですけど、れいままはんの必要なのは３番目の 関数adrs3ですわなぁ。 それを取り出してどうなさりたいのかいまいちピンときまへんのんで、とりあえず 住所録から市、区 以下の住所を拾います。 =adrs3(a1)と記入、以下コピー （弥太郎）
せんせぇ、Replaceの.が抜けとりまっせぇ（笑 （弥太郎）
何言うてまんねん弥太郎はん、.付けたらあきまへんがな！ 「その通りデス、すびません」 （弥太郎）
あれれ？？？ なんだか、もう一度よく読んだら、、、 昨日は、ほろ酔いでレスしたせいか、 頓珍漢な事をしているような・・・ ってしているな。。。 σ(^o^;)のは、ポイしちゃってくださいｗ （キリキ）（〃⌒o⌒)b
今、読み返してみたら私の関数関係ないみたいなんで削除しときます。 代わりにと申してはなんですが、HTさんのアイディアをパクってこれでどうでっか？ 30000のデータやとSheet2のデータ量にもよりますが相当時間がかかりますけど、そう 度々このマクロを実行する事おまへんやろから・・・。
Sheet2のＡ列に短縮した住所、Ｂ列に数値を入力してくらはい。
Sheet1のＡ列に欲しいデータを抽出します。
（弥太郎）
またSheet2のデータが各列に分散されとるようなら、それなりに組変えなければなり
まへん。ご参考までに。
'-----------------------
Sub reimamahan()
Dim dic As Object, i As Long, x, tbl, ky
Set dic = CreateObject("scripting.dictionary")
With Sheets("sheet2")
tbl = .Range("a1").Resize(.Range("a" & Rows.Count).End(xlUp).Row, 2)
For i = 1 To UBound(tbl, 1)
dic(StrConv(tbl(i, 1), vbNarrow)) = StrConv(tbl(i, 2), vbNarrow)
Next i
End With
Erase tbl
With Sheets("sheet1")
tbl = .Range("b1").Resize(.Range("b" & Rows.Count).End(xlUp).Row, 2)
ReDim x(1 To UBound(tbl, 1), 1 To 1)
For Each ky In dic.keys
For i = 1 To UBound(tbl, 1)
If StrConv(tbl(i, 1), vbNarrow) Like "*" & ky & "*" Then
x(i, 1) = dic.Item(ky)
End If
Next i
Next ky
.Cells(1, 1).Resize(UBound(tbl, 1)) = x
End With
Set dic = Nothing
End Sub
o(*^▽^*)o~♪ﾜｰｲ!!ｱﾘｶﾞﾄﾃﾞｽｰ!! 皆様ありがとうございます。 昨夜は 主人の帰りを待ちながらコタツにはいり関数の本を読んでいました。 そして いつの間にかZZZしてしまって・・・ 結局主人の帰宅は３時半でしたが。
仕事から帰ってみて びっくり！ 皆さんのお答えが(ﾟｰÅ) ﾎﾛﾘ うれしいです。ありがとうございます。 まずは 皆様にお礼の言葉をｗ
Ms.Rinさん＞ありがとうございます。
無責任じゃないですよ。まったく問題なしです。
HTさん＞ありがとうございます。
子供の習い事のお迎えに行ってから試してみます。
HANAさん♥＞ありがとうございます。
一覧はこれから加工するのでいかようにもなります。
ただ、町名しか書いてないです。
キリキさん＞(●⌒∇⌒●)ありがとうございます。
後で試してみます。
弥太郎さん＞ありがとうございます。
試してみます。
これ弥太郎さんに作っていただいたマクロのやつなのです。
さすがに150を余裕で超えてしまうとお店番号手入力では
かなり時間がかかるし、入力ミスもあったりして
ﾃﾝﾃｺﾏｲなのです。
それで、住所からお店番号を表示できたら・・・と思いました。
仕分けコードに対応できるのが一番いいのですが、
管理が違う課なのです。
れいままの課で管理しているのが担当店と住所一覧なので
変更があったとき すぐ対処できるからこれがいいかなと思いました。
＜町名一覧＞
Sheet葛飾区
A B C
1 上町 370
2 中町 450
3 下町 010
4 多い町１丁目 020
5 多い町２丁目 021
6 多い町３丁目 022
7 幸せ町1～1000 030
8 幸せ町1001～1999 031
9 幸せ町4000 032
というような感じであります。
エクセルなので どのような列にも加工できます。
一枚のシートに全ての市町村を表示させることも可能です。
どのくらいの量かというと・・ 1つの県のほとんどの住所でございます。
子供の空手のお迎えの時間になってしまったので 戻ってご飯食べてから試してみます。 みなさん 本当にありがとうございます。（れいまま）
試してみました。 すごい！！♪＼(*＾▽＾*)／＼(*＾▽＾*)／＼(*＾▽＾*)／♪ 見事に表示されました！ ただ・・・問題は 弥太郎さんのマクロ。れいままいじくれないということです。 (´＿｀｡)ｸﾞｽﾝ ｔｂｌに入れているのは分かったのですが・・・ ちょっと見ただけでは理解できないです。 印刷して じっくり見ます。 ｷﾘｷさん＞お気持ちとってもうれしいです。 ありがとうございます。 HANAさんの関数ちゃんと表示されました。 "*"は何なのか良く分からなかったです。 関数沢山覚えたいなって思いました。 早速本物のデーターで試してみようと思ったのですが れいまま フロッピーを会社に置いてきてしまいました。（ｶﾞｰﾝ なので 今日は試すことができないです。 関数とマクロをじっくり勉強してみようと思います。
この学校には凄い方が沢山いらっしゃると改めて実感しました。 （れいまま）
>"*"は何なのか良く分からなかったです。 「ワイルドカード」って言うんですｂ ヘルプで 「ワイルドカード文字」 「COUNTIF」 等を見てみると少しはわかるかな？ （キリキ）（〃⌒o⌒)b
ｷﾘｷさん＞ワイルドカードって名前なんですね。 “〆(^∇ﾟ*)memo 最初、れいままの重複の*と同じだったので それと関係しているのかと（笑 早速みてみます。
それと、弥太郎さんへ質問があります。 このマクロだと1シートに全ての町名を記載するということですよね？ 例えば、○○市中町と▽▽市中町とあった場合、うまく表示されなかったです。 めったに 同じというところはないですけどね。 県は全て同じなので、市でも区別することできますか？ なんて きいちゃったら ずぅずぅしいかしら（汗 でも、いまさら猫かぶっても仕方ないのできいちゃいますｗ （れいまま）
| |д･) ｿｫｰｯ… <Sheet担当店一覧> （A市） （B市） （C市） （D市）・・・ A B C ｜D E F ｜ G H I | J K L A市 |B市 |C市 |Ｄ市 町名 番号 |町名 番号 ｜町名 番号 |町名 番号
というように 市ごとで二列使うように一覧を 作れれば 変更になったとき 手直ししやすいなと思っています。 （れいまま）
自分なりにHANAさんの関数を使ってマクロを組んでみようと 色々考えたのですが 市を選んでcurrentregionを使う場合だと市と市の間に一列 とらないと駄目ですよね。ってことで 担当店訂正しました。 22：33
∩`･◇･)ﾊｲｯ!! ｷﾘｷさん＞読んでみました。 この学校の全文検索でもワイルドカードって言葉で 沢山あるのですね。 マイクロソフトのHPらしきところでもワイルドカードで 検索して読んでみました。 ＊アスタリスクマークのほかに？などの疑問符があるとか へぇ～と,とっても勉強になりました。 いつもありがとうございます。 もっと色々調べてみます。 まずは ご報告まで れいままヽ(ﾟ∀ﾟ)ﾉ
その訂正した担当店一覧から拾い出します。
>、○○市中町と▽▽市中町とあった場合、うまく表示されなかったです
が、不可解です。Sheet1にもSheet2にも存在していたら必ず別物として扱うはずです。
スペースとかが絡んでいさえしなければ・・・
それはともかく、脳内リハビリにご協力頂きまして感謝いたひまふ（笑
（弥太郎）
あっと、
7 幸せ町1～1000 030
8 幸せ町1001～1999 031
かういうのはエクセルでは未だサポートしとりまへん。
ご希望ならなんとか・・・（笑
'-------------------------
Sub reimamahan()
Dim dic As Object, i As Long, x, n As Integer, tbl, ky
Set dic = CreateObject("scripting.dictionary")
With Sheets("担当店一覧")
maxrow = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
maxcol = .Cells.Find("番号", , , , xlByColumns, xlPrevious).Column
tbl = .Range("a1").Resize(maxrow, maxcol).Value
For n = 1 To UBound(tbl, 2) Step 3
For i = 1 To UBound(tbl, 1)
If Not IsEmpty(tbl(i, n)) Then
dic(StrConv(tbl(1, n), vbNarrow) & StrConv(tbl(i, n), _
vbNarrow)) = tbl(i, n + 1)
End If
Next i
Next n
End With
Erase tbl
With Sheets("sheet1")
tbl = .Range("b1").Resize(.Range("b" & Rows.Count).End(xlUp).Row)
ReDim x(1 To UBound(tbl, 1), 1 To 1)
For Each ky In dic.keys
For i = 1 To UBound(tbl, 1)
data = StrConv(tbl(i, 1), vbNarrow)
If data Like "*" & ky & "*" Then
x(i, 1) = dic.Item(ky)
End If
Next i
Next ky
.Cells(1, 1).Resize(UBound(tbl, 1)) = x
End With
Set dic = Nothing
End Sub
弥太郎さんo( ´_ゝ｀)ﾉおはようございます。 わーい☆ありがとうございます。 早速 明日持ち帰って家で実際のものと試してみます。
今、見直してみましたが れいまま お試し用にスペース入れちゃってましたｗ 実際のものにはスペースありません。すみません。
7 幸せ町1～1000 030 8 幸せ町1001～1999 031
ほとんどが町名で分かれているのですが まれに 番地で分かれているところがあるのです。 4000番台が170だけど 他は171とか そういう時は、エクセルの担当店一覧には どのように 表示しておけばいいのでしょうか？ < >＝ こういう記号で表示しておけばいいのかしら？
明日から復活ですか？Λ(^▽^)Λ あまり無理しないで下さいね。 （れいまま） 【補足】 本来は100のお店が担当しているけれど この荷物の場合は １～３の住所は200 ４～８の住所では300に手伝ってもらっているとか 車のないお店では微妙な分け方をしていて かなり頭を悩ませております。 なので 番地で区別せざるおえないところなのです。 郵便番号一覧より細かいです（泣
弥太郎さんが作ってくださったやつで 作業をした時 転送(引越しなどで担当店所が変更）した場合を想定して ユーザーフォーム作ってみました。
伝票番号をハイフォンなしで入れてください 【BOX1】 現在の番号は下記のとおりです 【BOX2】 変更がある場合は入力してください 【BOX3】
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim FR As Range
TextBox1.Text = Format(WorksheetFunction.Substitute(TextBox1.Text, "-", ""), "0000-0000-0000")
If TextBox1.Text = "" Then Cancel = True: Exit Sub
With Sheets("作業")
Set FR = .Range("E:E").Find(TextBox1.Text, , xlValues, xlWhole)
If Not FR Is Nothing Then
TextBox2.Text = FR.EntireRow.Cells(1, "D").Text
Me.Tag = FR.Row
Set FR = Nothing
Else
Cancel = True
MsgBox "番号ないですよ～"
TextBox1.Text = ""
End If
End With
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
If Val(Me.Tag) > 0 Then
If TextBox3.Text <> "" Then
Sheets("作業").Cells(Val(Me.Tag), "D").Value = TextBox3.Text
End If
Else
MsgBox "最初からチャレンジしてね(*｀д´)b "
End If
For i = 1 To 3
Me.Controls("TextBox" & i).Text = ""
Next i
Me.Tag = ""
End Sub
Private Sub UserForm_Initialize()
TextBox2.TabStop = False’見せるだけで入力しないときはFalseらしい
End Sub
作動してうれしくなっちゃったので 載せてみましたｗ
(れいまま）
↑、うん良く出来とると思います。動かしてはいまへんけど（笑 只まぁ、通常こういった作業は コマンドボタンを作ってTextBox1～3まで入力し、視認 しながらコマンドボタンで転送するというのがオーソドックスなやり方やと思われます けど、今の段階ではいいんでないですか。
ところで >7 幸せ町1～1000 030 8 幸せ町1001～1999 031 9 しわ寄せ町2000～ 032 に対応するバージョンを載せときます。 この住所検索っちゅうやつは全角で３丁目と書いたり半角で3丁目と書かれていたりし ますから、この対応からして処理時間が４倍程かかるうえ、更に～の範囲に該当する かしないかの判断が加わってますから、相当時間がかかりまっしゃろなぁ。 とても試す気ぃになりまへん。（笑 そして～を使った住所は最新の注意を払わないとエラーがでますから、ご留意を。 （弥太郎） >明日から復活ですか？ あ、いや、あの発言は空元気＋自分に対する勇気づけっちゅうか、元気づけとでも言お うか、それらの入り交じった喧伝ですワ。 舞台に立つのはも少し遅れるでせう（笑
Sub ReimamaVer2()
Dim dic As Object, i As Long, x, n As Integer, tbl, ky
Dim flag As Boolean, data_1 As Long, data_2 As Long, chck_1 As Long
Dim get_data As String, maxrow As Long, maxcol As Integer
Set dic = CreateObject("scripting.dictionary")
With Sheets("担当店一覧")
maxrow = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
maxcol = .Cells.Find("番号", , , , xlByColumns, xlPrevious).Column
tbl = .Range("a1").Resize(maxrow, maxcol).Value
For n = 1 To UBound(tbl, 2) Step 3
For i = 3 To UBound(tbl, 1)
If Not IsEmpty(tbl(i, n)) Then
dic(StrConv(tbl(1, n), vbNarrow) & StrConv(tbl(i, n), _
vbNarrow)) = tbl(i, n + 1)
End If
Next i
Next n
End With
Erase tbl
With Sheets("sheet1")
tbl = .Range("b1").Resize(.Range("b" & Rows.Count).End(xlUp).Row)
ReDim x(1 To UBound(tbl, 1), 1 To 1)
With CreateObject("vbscript.regexp")
For Each ky In dic.keys
If ky Like "*~*" Then
If Right(ky, 1) = "~" Then
.Pattern = "(\D+)(\d+)~$"
get_data = .Replace(ky, "$1")
data_1 = .Replace(ky, "$2")
data_2 = 10000
Else
.Pattern = "^(\D+)(\d+)~(\d+)$"
get_data = .Replace(ky, "$1")
data_1 = .Replace(ky, "$2")
data_2 = .Replace(ky, "$3")
End If
flag = True
End If
For i = 1 To UBound(tbl, 1)
data = StrConv(tbl(i, 1), vbNarrow)
If flag And data Like "*" & get_data & "*" Then
.Pattern = "(\D+)(\d+)$"
If .test(data) Then
chck_1 = .Replace(data, "$2") '→ここでエラーが出るかも
End If
If chck_1 >= data_1 And chck_1 <= data_2 Then
x(i, 1) = dic.Item(ky)
End If
ElseIf data Like "*" & ky & "*" Then
x(i, 1) = dic.Item(ky)
End If
Next i
get_data = Empty: data_1 = Empty: data_2 = Empty: chck_1 = Empty
flag = False
Next ky
End With
.Cells(1, 1).Resize(UBound(tbl, 1)) = x
End With
Set dic = Nothing
End Sub
弥太郎さん！！ ありがとうございます。 かなり時間がかかるなら 担当店に入力するときに どんな風に表示させておくのが一番速いのですか？
今、実際の作業シートに当てはまるように コードを変えているのですが φ(ﾛ-ﾛ^)ｶﾁｬｶﾁｬ 難しい・・・ 食後にちょっとが 食後からずーっとになってしまいました（笑 （れいまま） 何が難しいかというと れいまま まだ数字を きちんと理解していないのです。 前の時は１３とか１４とかあったので これのことだなと推測がつきました。 今回は１ばっかりで・・・(´Д｀) どれがどれの１なのかしら？？？？状態になってしまっています。 一個ずつ動かすやつをやっているのですが なぜか 同じところをぐるぐるぐるぐる～ という感じです
出来た！！！弥太郎さんできました！ ヾ(●⌒∇⌒●)ﾉ わーい .Cells(2, 4).Resize(UBound(tbl, 1)) = x ここにたどり着くまでに結構時間がかかりました（笑 ひたすら繰り返しでｗ .Cells(2, 4).Resize(UBound(tbl, 1)) = x ↑表示する座標みたいなものですね。 やった～☆ （れいまま）
>↑表示する座標みたいなものですね。
いい感じですね＾＾
簡単な例題をばｂ
Sub Test()
Cells(1, 4) = 1
With ActiveSheet
.Cells(2, 4) = 1
End With
With Range("B2:E4")
.Cells(3, 4) = 1
End With
End Sub
（キリキ）（〃⌒o⌒)b
ｷﾘｷさん＞こんにちはｗ D1に１と表示させて 選択しているシートで D2に１を表示 B2～E4の間だから E4に１を表示ってことかな？←真っ白いシートでマクロ実行してみました。 れいまま大正解（嬉 （れいまま）
今、最初から作業を試してみたのですが 住所からお店番号表示うまくいきました♥ ところが・・・ 支店長とか沢山関数で表示させていたものが 一切表示されなくなりました （￣□||||！！ 手入力したものも マクロで表示させたものも セルには同じお店の番号が入っているのに・・・ （れいまま） 推測ですが、別シートから表示させたものは 値として認識されないということなのかもしれないですね。 同じシートを作って そっくりそのままコピーして関数で表示 それから 印刷シートへ移動させたら うまくいくのかも。 ワンクッションおく以外に方法あれば どなたか教えてください。 (れいまま）
レンジの値を配列に格納した時点で、数式は値になってしまいます。 数式をそのまま使用したいのであれば、まず、数式の入った列を 別配列に格納して、作業終了後に吐き出すような事をする必要があるでしょう。 (seiya)
またまた衝突～、衝突しまくり～（笑 ,又衝突～ そのままＵＰ 一番最初のマクロがありまっしゃろ？30000行のデータで16～17秒、ま、ざっと20秒 前後ですワ。 で、住所録とsheet2のデータが全角でも半角でも、とにかく統一されとったらStrconv がとれますから5秒弱です。これだけでも相当処理時間が短縮されます。 で、担当店の仕様はＡ列に列挙した方が速いでせうが、これはれいままはんの使い勝手 等の絡みもあってどちらを選ぶかはあんたはん次第なんで何とも申し上げられまへん。 それと～は(=<などを使っても同じ)検索照合するのに時間がかかりますが、これとて そういう方法しかなければ仕方ないんやおまへんか？
最新バージョンの作業は先ず１行目の市を検索し、３行目から下をdicというオブジェ クト変数に格納します。それを最終列まで同じ作業を繰り返しとります。 へてから、今度はSheet1に移り、変数dicの一つ目を3万行を検索しdicを含んだデータ を抽出して変数xに格納しとります。次にdicの二つ目、dicの３個目・・・・ つまり、Sheet2のデータ数*30000回だけ検索するようになっておりますワ。
追い打ちをかけるように～の範囲を検索するよう組んでおりますんで、まぁ、非効率 な作業この上おまへんなぁ。幸いエクセル君は辛抱強くその作業に付き合うてくれま すけど、相当疲れるとおもいませぇ。（笑
で、この作業はそんなに頻繁に行われるもんでっか？
そうでもないなら目ぇをつぶって我慢するか、もし可能なら早く処理する仕様に作り変
えるかですわなぁ。
一番早い方法はdic君が１度30000回駆け抜けたら終わりという方法ですけど、書いてみ
まひょか？
先ずSheet1の仕様を
A B C D
1 岐阜県あ市芋町２丁目３－５ あ市芋町２丁目
2 岐阜県あ市芋町３丁目５－５ あ市芋町３丁目
3 東京都葛飾区柴又町４丁目２ 柴又町４丁目
4 ....................... 柴又町５丁目
といった塩梅にC列にはSheet2の検索値と全く同じ（全半角も）ものを抽出します。 B列をそのように分割するのはこれも大変な作業ですんで、概ね分割するマクロを提供 してもよろしいで。 C列が目障りなら文字色を白にするっちゅう手ぇもありますしな。 これだけでも随分作業効率は上がりますワ。 Sheet2もA列（Sheet1のC列と全角半角含めて全く同じ物)とB列にデータが並んどると これも効率アップに大いに貢献します。
が、まぁ、一遍現状でどれほどの時間がかかるかmytimerをセットしてやって見まへんか？
で、絶えられる作業時間やったらそれでよし、到底絶えられへんと仰有るなら、考えを
変まひょか。
（弥太郎）
えぇっ？一体だういうことでっか？
このマクロはSheet1へ担当店一覧から検索して抽出するマクロでっせ（笑
他に使うんならキチンと理解してからにしませう。
えっと・・・ seiyaさん＞こんにちは。 いつもありがとうございます。 配列苦手・・・（汗 でも、ちょっとやってみます。（出来るかな・・）
弥太郎さん＞ フロッピー忘れたので実際のデーターでは 今日は無理です。会社に取りに行こうと思ったのですが セクハラ係長の担当日だったので断念。 タイマーではかってみますね☆
＞で、この作業はそんなに頻繁に行われるもんでっか？ はい。作業をするたびに一度やります（汗
今、表を見てもらおうと データーを適当なものに書き換えていたら 表示されるものと 表示されないものに分かれました。 何が違うのか良く分からないですが・・・ 弥太郎さんのマクロで表示されたものは 値として表示されていることに なりますね。 他の何かが原因ということになるのですね。（悩 （れいまま） ramrunさんへ また使わせてくださいね。
Sheet1のＡ列を書式設定で000にしたらどうでっか？ （弥太郎）
弥太郎さん＞ハヤッ とても病人とは思えません。 早速ためしてみます。 それと、以前 回答が転記されないって原因不明だと申し上げたやつ 今回も表示されていません。 データー保存で 転居って文章で書いてあるやつなんですけど・・・ （れいまま）
弥太郎さん＆seiyaさん＞解決です ∑d(≧▽≦*)OK!! セルの書式設定で設定を変更したのですが 最初は何も変わりませんでした。 ちょっと休憩して また考えました。 どうやら 入力してあるものを選択して 書式設定しても駄目みたいなのです。 そこで書式設定してから担当店入力しなおしました。 すると ちゃんと表示されました。 書式設定してから入力するのと 入力してから書式設定で変更するのとでは同じに見えても 違うということなんですね。 担当店一覧を加工する前に分かってよかったです。 ありがとうございます。（れいまま）
ということは、つまり コピペ出来ないということになりますよね（汗 担当店一覧を全て手入力・・・ 気が遠くなりそうな作業になりますね。 弥太郎さん 明日タイマーではかれないかも（滝汗
本日はもう看板を下ろしました～（笑 また、明日・・・ （弥太郎）
沢山お付き合いいただいて <(_ _*)>ありがとうございました。 とってもうれしいです。 （れいまま）
夜の山道って空いてて良いですね～～。
住所検索はマクロの方で片が付きそうなので良いのですが （しかもデータ量の関係ですでにポイなんですが） >かういうのはエクセルでは未だサポートしとりまへん。 かういうのは（笑）関数にやらせるのは可哀想ですね。
COUNTIFに関しては [[20061030122048]]『空白行をつめて集計する』（関節痛） こちらの最後のあたりが参考になるかもしれません。
>担当店一覧を全て手入力・・・ もう一度入れ直しのため気が遠くなりそうですか？ すでに入力されているなら、書式設定を変更してから メニュー・データ→区切り位置 [完了] で変わると思いますよ。 ・・・コピペは違うことかな？
(HANA)
トリプル衝突～☆
以下そのままUP
こんなのは使える？
シート「作業」で、空いている S列 に、住所を抽出してみました。
それを元に、シート「担当店一覧」から探してみるのは？
Sub TEST()
Dim tbl As Variant, MyVal As Variant, MyAd As Variant, x() As Variant
Dim MyStr As String
Dim n As Long
With CreateObject("VBScript.RegEXP")
tbl = Range("H2:H" & Range("H" & Rows.Count).End(xlUp).Row).Value
ReDim x(1 To UBound(tbl, 1), 1 To 1)
For n = 1 To UBound(tbl, 1)
.Pattern = "^((東京都|大阪府|京都府|北海道)|(..県)|(和歌山県|鹿児島県|神奈川県))(.+)"
MyAd = .Replace(tbl(n, 1), "$1")
If tbl(n, 1) Like "*丁目*" Then
.Pattern = "(^\D+\d+)丁目?"
MyStr = "丁目"
Else
.Pattern = "(^\D+\d+)(-\d+){1,2}$"
MyStr = ""
End If
x(n, 1) = .Replace(StrConv(Replace(tbl(n, 1), MyAd, ""), vbNarrow), "$1") & MyStr
Next n
End With
Range("S2").Resize(UBound(tbl, 1)) = x()
End Sub
抽出するマクロのみしか完成してませんが・・・
まっ、それは後で作ってみてくださいｗ
（キリキ）（〃⌒o⌒)b
HANAさん♥＞こんばんは 今お散歩中ですか？ 襲われないですか？大丈夫ですか？
早速見てみますね（嬉
＞すでに入力されているなら、書式設定を変更してから ＞メニュー・データ→区切り位置 ＞ [完了] ＞で変わると思いますよ。 そんな方法があったのですね。勉強になりました。
既に作ってあるエクセルの表を コピーして れいままのシートに貼り付けようと思っていました。 多分 文字列になっていないと思うので （れいままのシートはお店番号を文字列表示設定） お店番号だけ手入力しなくちゃと思っていたところです。 明日試してみます。ありがとうございます。
ｷﾘｷさん＞作業列を使うということですね。 試してみます。都道府県が沢山ありますね。 ちなみに れいままは神奈川県しか使わないですｗ 担当地域が神奈川なので。 ありがとうございます。（嬉 （夢中になると時間を忘れてしまう れいまま）
ｷﾘｷさん！すごい！ ちゃんと抽出されました！ これで 照らし合わせればOKですね。 マクロってひとつの方法じゃないのですね。 発想の転換というか 視点を変えるというか・・ 勉強になりました。ありがとうございます♥ (れいまま）
ご心配ありがとうございます。 移動する鉄の筺の中ですので、大丈夫ですよ。
>多分 文字列になっていないと思うので 数値→文字列 に変更ですか？ それなら、作業列を使って =TEXT(セル,"000") で一回文字列にしてから値貼り付け。 書き間違いかな？
(HANA) (思い違いがあったので、訂正しました・汗）
HANAさん＞数値かどうか不明ですが 作業列ですね。明日の作業は楽になりそうです。 ありがとうございますｗｗ （れいまま）
間違いもあったので、手直し＋ちょっと加工してみました。
１）現在の「担当店一覧」シートの
C3 =IF(A3="","",A$1&A3)
以下必要範囲までコピー
２）同じく上記を F列・I列 にコピペ
事前準備は以上ｂ
んで、標準モジュールへ
Sub TEST()
Dim tbl As Variant, MyVal As Variant, MyAd As Variant, MyKey As Variant
Dim x() As Variant, y() As Variant
Dim n As Long
Dim c As Range
With Worksheets("作業")
tbl = .Range("H2:H" & .Range("H" & Rows.Count).End(xlUp).Row).Value
With CreateObject("VBScript.RegEXP")
ReDim x(1 To UBound(tbl, 1))
ReDim y(1 To UBound(tbl, 1), 1 To 1)
For n = 1 To UBound(tbl, 1)
.Pattern = "^((東京都|大阪府|京都府|北海道)|(..県)|(和歌山県|鹿児島県|神奈川県))(.+)"
MyAd = .Replace(tbl(n, 1), "$1")
If tbl(n, 1) Like "*丁目*" Then
.Pattern = "(^\D+\d+丁目)(.+)$"
Else
.Pattern = "(^\D+\d+)(-\d+){1,2}$"
End If
x(n) = .Replace(StrConv(Replace(tbl(n, 1), MyAd, ""), vbNarrow), "$1")
Next n
End With
With Worksheets("担当店一覧")
n = 0
For Each MyKey In x
n = n + 1
Set c = .Cells.Find(MyKey, , xlValues, xlWhole, xlByColumns, xlPrevious, True).Offset(0, -1)
If c Is Nothing Then
y(n, 1) = "***"
Else
y(n, 1) = c
End If
Next MyKey
End With
.Range("D2").Resize(UBound(tbl, 1)) = y
End With
End Sub
あっ
もちろん「～」には対応してません・・・orz
（キリキ）（〃⌒o⌒)b
キリキさん＞先ほどの間違いありました？ れいままの表示されましたよ？ でも、ありがとうございます。 こちらも試してみます。 「～」は手作業でもいいかなって心のどこかで思っていますｗ
これ（住所から担当店を表示する）を自分のものにすると ４月の引越しシーズンで 大いに力を発揮することになりますｗ ありとあらゆるところで 大活躍です。
校長先生 このサイトを作ってくださってありがとうございます。 みなさんに力を貸してもらえて うれしいです。 （れいまま）
σ(^o^;)も感謝ですね～ こんな風に、勉強できるのですから＾＾ 今回ので、大分いろいろな事を知ることが出来た～♪ ってことなので結果的には、σ(^o^;)の勉強のためにしているだけですｗｗｗ よって、何かあったら「突っ込み」を入れていただくと嬉しぃっす＞＜ｂ （キリキ）（〃⌒o⌒)b
キリキさん＞こんばんは。 いつもありがとうございます。 住所の一部から取り出せるなんて最初は出来ないだろうと思いながら だめもとで聞いてみた質問です。 出来てしまってびっくりです。ｗ
担当店一覧は とても一日では出来上がらないです（涙 ○町１～３丁目などの表示は １つずつ○町１丁目 ○町２丁目と表示させています。 ６９８ ７１２ ７２０ 上記以外 とかは まいりました（汗 上記以外って・・・どれだけあるの？って感じです。 これは 郵便番号一覧で調べなければなりません。 ３７９まで ３８０から こんな表示もありました。（これ３７９まで全て表示するつもりです） １～２８８ １１００番 5316～6345 上記以外 こんな表示も・・・（涙目 4000台商流 これは一番困っています とりあえず、担当店一覧手直し頑張ります。 タイマーで時間はかるのは 今日は無理です。 すみません。（れいまま）
不完全な担当店一覧ですが
Mytimer = Timer - Mytimer
MsgBox "このマクロの処理時間は" & Format(Mytimer, "#,##0.00") & "秒"
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
↑以前教えていただいたやつと
タイマーつけてはかってみました。
Ver.1で 3.08秒です。
担当店一覧が不完全なので表示されないところも いくつかあります。
Ver.2とVer.3はエラーになってしまって今研究中です。
3.08なら我慢して我慢できなくもないですが・・・
Ver.1で
.Cells(1, 4).Resize(UBound(tbl, 1)) = x
End With
Set dic = Nothing
という風に変更してみました。
一番上のタイトルが消えてしまって
欲しいところから担当店番号が表示されます。
.Cells(2, 4).Resize(UBound(tbl, 1)) = x
にするとタイトルは残りますが 担当店が全て一行ずれます。
今はこの謎を解明中です。
でも、動くのでかなり満足しています。
弥太郎さん、他皆様 ありがとうございます。
（れいまま）
どうも話が食い違っとるような気ぃがしてなりまへんなぁ。（笑 わたしが呈示したマクロは担当店一覧からSheet1の30000行のデータに番号を割り付け るマクロなんですけど・・・。 Ver1もStrconvを外せるような（そのSheetと担当店一覧のデータが数値は半角で統一 されてる）データが並んでいるならそれを外せば随分処理速度が増します。 いや、先日ramrun邸のデータを保存した筈なんですけど、手違いがあったのかうちの ファイルには見当たりまへんでしたワ。 そこのシートのどっかに抽出するマクロが必要なんとちゃいまっか？ それやとデータ数はせいぜい500程ですわなぁ。 逆に廻せば若干早くはなりますけど、～が絡んどるとそうもいかんか・・・。 （弥太郎）
弥太郎さん＞こんにちは。 ～をなるべく使わないようにするために １～３９９とかあったら すべて １ ２ ３ ４ ５ と沢山セルを用意しました。 まだ全部やっていませんが。 それ以外とか書いてあるところも まだ全てデーターを入力していないです。 今現在の地名はかなり少ないです。 表示されないところもあります（汗
ramrunさんのところに いつまでもアップしっぱなしだと ramrunさんの容量が沢山になりすぎて大変かとおもって削除しちゃいました。 すみません。 どうしよう・・・私のデーターは本物入れちゃいました（汗 ちょっとCD探してみますね。（れいまま）
弥太郎さんへ 本物入れるまえの状態のものがありました。 (れいまま） 本物入れる前は 一番上消えないんです。 本物いれたら消えちゃって・・・ なにか やらかした様子なので 頑張ってさがします。
保存しましたDelete オーケー （弥太郎）
もし、弥太郎さんへ直接お渡しする方法があるのなら 本物（個人情報は抜いたやつ）をお渡ししたいのですけど （れいまま）
そこまでしなくっても解決でけまっしゃろ、多分。（笑 あ、それから、あれ、上手い事拾い出せてますわなぁ。 その他に対応でけてまへんけど・・・ （弥太郎）
さすが 弥太郎さんｗ 転記されないものの原因のひとつが分かりましたｗ 漢字が似ていて違っていたものがありましたｗ それを入れたら全て転記されましたｗ その他をどうするか・・・です。 地名を全て調べて記入したとしても 地名が増えたとき面倒ですしね。 その他は あきらめて空白で表示させてもいいかなとおもっています。 そして手入力ｗ
それと 以前騒いでしまった回答転記しないやつ。 先ほどアップしたものは転記されません。 今 れいままが動かしている 本物は転記されました。 何が違うのかな～と今考え中です。
＜質問です＞ 担当店一覧の方に 果物町１ ２００ 果物町 １００ とあったとします。
作業の表で 果物町５（新しく出来た住所）を探す場合 果物町というところがあるから 100と表示するマクロって ことですよね？ そしたら それ以外は入力の仕方次第で ある程度 解決できるかもしれません。
今日は娘の誕生日（７歳）なのでケーキを買いに行って来ます。 弥太郎さん みなさん ありがとうございます （れいまま）
弥太郎さん・・ 何度もすみません。 弥太郎さんの解説を 印刷して読んでいました。
＞住所録とsheet2のデータが全角でも半角でも、とにかく統一されとったらStrconv ＞がとれますから5秒弱です。これだけでも相当処理時間が短縮されます。 ということは 全角で添付されてきますから、全て全角で担当店一覧作ったほうがいいってことですね。 もしくは 変数に入れて添付→作業のときに 全角と半角を統一させるようにしておけば もっと作業効率が上がるということですね。 ＝ASC(セル)又は＝JIS（セル）をｺｰﾄﾞに混ぜて統一させてしまおうかしら。
＞で、担当店の仕様はＡ列に列挙した方が速いでせうが、 これは 地名 番号となっているものの表示の仕方を 番号 地名を変えるということですよね。 これは問題ありません。 試してみましたがエラーになったので マクロ少し変えてみます。 （って、出来るかな・・・） 今夜の勉強はこれくらいにします。 皆様おやすみなさい （れいまま）
おはようございます。
ずれるの解決しました。
tbl = .Range("ｈ1").Resize(.Range("ｈ" & Rows.Count).End(xlUp).Row)
↑
tbl = .Range("ｈ2").Resize(.Range("ｈ" & Rows.Count).End(xlUp).Row)
と変更することでOKでした。
H1（タイトル）から参照していたのでは ずれて当たり前ですね。
弥太郎さんxlsのファイルでは ちゃんと直していたのに
本物直すの忘れていました（笑
まずは ご報告まで。
今日も仕事だ～。行ってきます。昨日子供が具合悪くて休んでしまったので
仕事たまってそう（涙
（れいまま）
今、風邪が流行ってますからなぁ、それにノロウィルスの脅威も。。お大事に。
全角で統一より半角で統一の方が断然処理し易いですワ。
で、作業（このシートに番号を割り振りまんのやろ？）シートに転送後、住所欄のみ
半角に変更するよう組み替えました。ですから担当店一覧は半角でお願い。
あ、いや、それは気ぃにせんでも書き終わった時点で半角にするマクロを廻せばOKで
す。
例えばこんな塩梅に
Sub 半角変換()
Dim maxrow As Long, maxcol As Integer, c
With Sheets("担当店一覧")
maxrow = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
maxcol = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
For Each c In Cells(1, 1).Resize(maxrow, maxcol)
c.Value = StrConv(c, vbNarrow)
Next c
End With
End Sub
（弥太郎） 他も果物町の件も～も検索対象から外れないようマクロを組めば大丈夫ですワ。 完全一致以外はdictionaryを何度も走らせなければなりまへんから徒労に終わりまっせ その完全一致は無理ですワ。 他と書いて有るのと（他、その他のどちらかに統一）～を書いてあるパターンの情報が 欲しいデス。 （弥太郎）
弥太郎さん＞こんにちは。 今お昼休みです＾＾ 早速 これ使わせていただきます。 担当店 全て半角でいれてあります（ラッキー♪） そして、担当店は文字列にしていたのですが 全てのシートで数値０００に統一しました。 ０９０とか表示させるのに文字列意外に数値０００という方法があったのは 今回はじめて知りました。勉強になりました。
このマクロは場所を指定すれば半角に変換できるというマクロですね。 今 移したら午後の作業に間に合うかも。。。 仕事３日分くらいたまってしまっていて（涙 この住所から割り振るやつが完成すると問い合わせしないで とりあえず担当店へFAXすることができます。 帰宅したら ダミーを用意しますね いつもありがとうございます。 （れいまま） 今朝会社の人（経理課の方）と この画面の話になりました。 面白いことしてるね、頑張れって言われました。 れいまま頑張ります！
こんばんは。 半角変換マクロ試してみました。 文字がぐぐぐっと動いたです（笑 これは なかなか良いですね。
今日は Ver1で仕事してみました。 かなりGOODです！ 問い合わせを全てしないで 送ってしまいましたｗ 忙しい時期なので 送れるだけでOKという感じです。 とっても 助かりました。 このマクロがなかったら FAXを送ることすら出来なかったと思います。 今日は手抜き作業ではありますが かなり仕事がはかどりました（嬉
とりあえず 5秒以内なので我慢できる範囲です。 これから ゆっくり早くする方法やデーターの置き換えなど 研究します。 弥太郎さんには感謝感激雨アラレですｗ （れいまま） ramrunさん また使わせてくださいね。
実際の添付情報では 住所は全角になっています。
追加 会社のPCでは ｺｰﾄﾞにreplaceは使えないです。 20：48
保存OKデス。DeleteOK desu. （yataro)
ちょっと気ぃになったもんで・・・
>ｺｰﾄﾞにreplaceは使えないです
そんな事ってありますんかいなぁ？
下のコード会社で試してみてくらはい。
（弥太郎）
Sub リプレイスが出来ない()
Cells(1, 1) = "キリキさんはホントは優しい"
Cells(2, 1) = Replace(Cells(1, 1), "優しい", "ハンサムだ！")
With CreateObject("vbscript.regexp")
Cells(1, 3) = "男弥太郎はホンマは優しい"
.Pattern = ".+(弥太郎は)ホンマは(優しい|イヤラシイ)"
Cells(2, 3) = .Replace(Cells(1, 3), "$1") & .Replace(Cells(1, 3), "ヤラシで！")
Columns("a:c").AutoFit
End With
End Sub
それと添付のデータを転送する際住所の欄だけ半角に変更しときました。
ただ、その作業はやらなくて、別のブックからコピーで転記するんなら別の処理方法
を考えななりまへんなぁ。
（弥太郎）
弥太郎さん＞ ありゃ？記憶違いだったかな？ 全文検索で調べてみますね。 確か、XPでは出来るけど２０００では出来ないという内容のとき 原因がreplaceだったような気がします。 記憶違いだったらすみません。 調べますｗ ↑コメントがおもしろいです（笑
>それと添付のデータを転送する際住所の欄だけ半角に変更しときました。 >ただ、その作業はやらなくて、別のブックからコピーで転記するんなら別の処理方法 >を考えななりまへんなぁ。
アップしたものには便宜上添付シートを載せていますが 実際は添付ファイルとしてメールで送られてくるものです。（このことですよね？） 現在はコピーで添付は使っていないです。 理由 ①変数を覚えたいから ②コピーはそのまま言葉のとおり くっつけるだけだと思うのですが tblに入れると これは書式を変えようとか 文字を大きくしようとか 設定が自由なので いいかなと思っています。 以前、ｷﾘｷさんに何が違うのか質問したことありますが 仕上がりが同じでも 何かアレンジしたくなったとき変数の方が便利な気がします。 これから別の内容に挑戦したとしても なるべく変数に格納した方法で作業をしようと思います。 (れいまま）
追加 [[20061116222742]] ←弥太郎さん これです。このときは replaceを変更したら作動しました。 22：44 でも 面白そうなので会社で試してみますｗ
コードに不備があるようでふｗ
>Columns("a:c").AutoFit
の上に、
For Each rng In Range("A1:C2")
Range(rng.Address) = WorksheetFunction.Substitute(rng, "キリキ", "ROUGE")
Range(rng.Address) = WorksheetFunction.Substitute(rng, "弥太郎", "ししょ～")
Next rng
を追加しないと、正確なものが出ませんｂ
（キリキ）（〃⌒o⌒)b
皆様こんにちは。 弥太郎さん＞こんにちは。o( ´_ゝ｀)ﾉ 昨日夕方 試しました。 会社のPCで表示されました。 かなり慌しかったので じっくり見てませんが 文字 文字 文字 文字 となっていたと思います。 昨夜はバテてしまって ちょっと横にが そのままぐっすりに 変わってしまいました（汗
ｷﾘｷさん＞こんにちは。o( ´_ゝ｀)ﾉ 書き込みに気づかず・・・こちらに変えたのは 試していません。ごめんなさい。
表示されたということは replaceが原因ではなかったということですね。 てっきりreplaceかと思っていました。
昨日も住所で表示を試してみたのですが 住所に○ヶ○とかあると 表示されないですね。 多分、ケとヶと 添付ファイルで入力されているものが統一されていないからなのかなと思っています。 あと表示されなかったのは 添付ファイルには○○４丁目とか書いてあって 担当店一覧には○○しかないもの。これが表示されませんでした。
昨日は忙しくて 主担当の仕事が終わらなくて(_ _；) 建物別に印刷してFAX送ることが出来ず 作業シートの一覧を印刷して全店FAXで終わってしまいました。 （れいまま）
ｷﾘｷさん＞
遅くなりましたが訂正版試してみました。
With Worksheets("担当店一覧")
n = 0
For Each MyKey In x
n = n + 1
Set c = .Cells.Find(MyKey, , xlValues, xlWhole, xlByColumns, xlPrevious, True).Offset(0, -1)’←ここでエラーになります。
If c Is Nothing Then
y(n, 1) = "***"
Else
y(n, 1) = c
ｺｰﾄﾞを考えてみますね。
（れいまま）
すみません。事前準備するの忘れていました。
キリキさん ごめんなさい
>すみません。事前準備するの忘れていました。
ほなら、こちらも変えてみて＾＾
Set c = .Cells.Find(MyKey, , xlValues, xlWhole, xlByColumns, xlPrevious)
If c Is Nothing Then
y(n, 1) = "***"
Else
y(n, 1) = c.Offset(0, -1)
End If
（キリキ）(〃⌒o⌒)b
あ、ｷﾘｷさんｗ 早速試してみます。 それとｗｗｗ
↑
>For Each rng In Range("A1:C2")
Range(rng.Address) = WorksheetFunction.Substitute(rng, "キリキ", "ROUGE")
Range(rng.Address) = WorksheetFunction.Substitute(rng, "弥太郎", "ししょ～")
>Next rng
>を追加しないと、正確なものが出ませんｂ
自宅のPCですが 試してみました。 噴出しちゃいました（笑 （れいまま）
変更してやってみました！ 完璧です。すごい！ さすがです。ｷﾘｷ様ｗ ありがとうございます。 （れいまま）今日は休みで ガスレンジを掃除しながらエクセル勉強です
で、Replaceは使えますねんねぇ。よかったぁ。 それにしても、あのデータを拝見したらとても一筋縄ではいきそうもおまへんで。 発想をかえて作業シートから担当店一覧を検索する方が空振り無しで検索でけますから そっちにしてみまひょか。 今のコードやと絶対に間違ったデータを転記(100%)してしまいます。 あそこへ変更可能か否かを書き込んで（赤字で）ありますんで、新たに書き込んだうえ 流しておくんなはれ。 それとまだ川崎市、横浜市のデータが有りまへんけど、担当店一覧の一行目にはどう書 きなはる？川崎市○○区か、それとも○○区でせうか？
話変わりまして添付から作業にデータを移すマクロを少し訂正してあります。 例えば転記したいデータのA列のみなぞるか、B列か、それとも複数列か、ともかくなぞ った行範囲の１３列目まで転送されます。 また全てを選択しようと思えば反転した範囲（全部のデータ範囲を表示）そのままで OKボタンを押してくらはい。 担当店転記の件、ヒマを見つけて手がけてみますワ。（笑 骨折れそ（弥太郎） それと、このスレ伸びすぎでっせ。
弥太郎さんｗ
川崎市と横浜市は担当外なのです。 よその支店が担当しています。 なので除外でOKです。
弥太郎さんありがとうございます。 弥太郎さんの具合の良いときで構いませんので。 お暇なときにお願いします。 ＞それと、このスレ伸びすぎでっせ。 確かに長いですねｗ じゃ、このスレッドは これで終わりにしますね。 皆様 ありがとうございました。 （れいまま）
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.