A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
No.4です。
>ただ、○○町という住所の管轄はA支店とB支店両方という場合があります。
というコトですので・・・
前回と同じような方法ですが、Sheet2の表の作り方次第でコードは変わってきます。
Sheet2の表は↓の画像のような感じにしてみました。(最大2つの支店としています)
今回もSheet2の表はA列の文字数の昇順に並び替えをしておいてください。
(○○町と東○○町といった感じの町名を区別するため)
標準モジュールです。
Sub Sample2()
Dim i As Long, lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
Application.ScreenUpdating = False
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1").AutoFilter field:=2, Criteria1:="*" & wS.Cells(i, "A") & "*"
If .Cells(Rows.Count, "A").End(xlUp).Row > 1 Then
Range(.Cells(2, "C"), .Cells(lastRow, "C")).SpecialCells(xlCellTypeVisible).Value = _
Trim(wS.Cells(i, "B") & " " & wS.Cells(i, "C"))
End If
Next i
.AutoFilterMode = False
Application.ScreenUpdating = True
End With
End Sub
こんな感じではどうでしょうか?m(_ _)m
ありがとうございます!
販売店に対して、支店を複数割り当てる表づくりが大変ですが、、、やってみます。
ご親切に、ありがとうございました。
No.4
- 回答日時:
こんばんは!
一例です。
↓の画像のように別Sheet(Sheet2)のA・B列に一覧表を作成しておきます。
C2セルに
=LEN(A2)
という数式を入れ、フィルハンドルでダブルクリック!
そして、C列の「昇順」で並び替えを行っておきます。
(本来であれば、Sheet1の「空白セル」を抽出条件に加えれば「降順」でも良いのですが、
抽出条件を1列だけにしたため)
以上の下準備(この方が大変だと思いますが・・・)ができた上でのVBAです。
標準モジュールに↓のコードをコピー&ペーストしてマクロを実行してみてください。
Sub Sample1()
Dim i As Long, lastRow As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
'▼Sheet2の2行目~A列最終行まで
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
'▼Sheet1のB列でフィルタを掛け、抽出条件をSheet2のi行A列の文字列が含まれているもの
.Range("A1").AutoFilter field:=2, Criteria1:="*" & wS.Cells(i, "A") & "*"
'▼表示されているデータが2行目以降にあれば、表示されているC列にSheet2のi行B列データを表示
If .Cells(Rows.Count, "A").End(xlUp).Row > 1 Then
Range(.Cells(2, "C"), .Cells(lastRow, "C")).SpecialCells(xlCellTypeVisible).Value = wS.Cells(i, "B")
End If
Next i
.AutoFilterMode = False
Application.ScreenUpdating = True
End With
End Sub
※ コード内に若干のコメントを記載していますので、
実状の配置に合わせて適宜修正してみてください。m(_ _)m
ありがとうございました。さっそく作成しました。
VBAは無事実行できました。
ただ、○○町という住所の管轄はA支店とB支店両方という場合があります。
こういった場合は、両方の支店名を明記したいのですが、なにかいい方法はございますでしょうか??
No.3
- 回答日時:
お邪魔します。
似たようなことを今やってたもので。多分質問者様よりデータ量ははるかに少ないはずですがwwebonerさんとusami33さんの回答を合わせる感じだといいんじゃないでしょうか?
私ならまず郵便番号と支店の対応シートを作ります。
111-0001 A支店
111-0003 A支店
111-1001 B支店
111-1002 A支店
111-1011 C支店
顧客リストシートに郵便番号はあるのでしょうから、顧客リストの郵便番号を検索値にして、郵便番号と支店の対応シートを作ります。
=vlookup([顧客リストシートの郵便番号のセル],[対応シート全体],[対応シートの支店名のセルが左から何個目か],false)
↑これを顧客リストシートの空いてるセルに1個入れたらそれをコピペ…で出てくるはずですが、この質問てExcelでよかったですか?
>郵便番号で範囲
usami33さんが教えてくれたCSVを斜め読みすると、範囲でやっちゃうと市区町村が入れ子になっちゃったりすると思うんで、範囲はやめといた方がいい気がします。
面倒でも↑で書いた「郵便番号と支店の対応シート」みたいなものは作っといた方が、確実な気がします。私もデータを斜め読みしただけなんで何とも言えませんが。
この回答への補足
ありがとうございました。さっそく作成しました。
ただ、○○町という住所の管轄はA支店とB支店両方という場合があります。
こういった場合は、両方の支店名を明記したいのですが、なにかいい方法はございますでしょうか??
ありがとうございます。大変参考になりました。
現在、支店の担当地区一覧を作成しているので、こちらが出来次第、つくります。
そもそも、担当地区一覧がなかったようで。。。。
No.2
- 回答日時:
郵便番号データは開示されているの知ってました?
http://www.post.japanpost.jp/zipcode/download.html
このデータをダウンロードして、対応表を作成してしまえば、検索や表示方法は簡単にできますよね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 銀行・ネットバンキング・信用金庫 ゆうちょ銀行に口座を持つ方、ゆうちょ銀行に詳しい方に聞きます。 9 2023/08/03 20:24
- Excel(エクセル) 【Excel】住所に郵便番号を付記する方法 3 2022/05/07 17:15
- 書類選考・エントリーシート 電話応募の際に、応募書類を誰宛に書けば良いのか忘れてしまいました。電話した際、支店長が電話に出たので 2 2022/11/06 00:28
- 書類選考・エントリーシート 電話応募の際に、応募書類を誰宛に書けば良いのか忘れてしまいました。電話した際、支店長が電話に出たので 1 2022/11/06 00:03
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- その他(Microsoft Office) エクセルの関数について 4 2022/07/30 16:42
- 国民年金・基礎年金 年金額改定通知書、年金振込通知書の発送。 2 2022/05/31 09:28
- その他(社会・学校・職場) 支店のトップに嫌われています。 私はまだ2年目なのですが、営業で求められている項目の数字を出しても私 4 2022/09/11 10:28
- 労働相談 正社員として働きつつ、先日から副業で個人経営の居酒屋でアルバイトを始めました。 ですが、このアルバイ 2 2023/08/21 19:36
- 一戸建て 積水ハウス こどもみらい助成が使えない 5 2022/11/29 20:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
マクロ実行後に別シートの残像...
-
VBA 別ブックからの転記の高速...
-
EXCELのSheet番号って変更でき...
-
VBA 実行時エラー1004 rangeメ...
-
複数シートの複数列に入力され...
-
VBA 空白行に転記する
-
VBA別シートの最終行の次行へ転...
-
1004RangeクラスのPasteSpecial...
-
Count Ifのセルの範囲指定に変...
-
ExcelのVBマクロを、バックグラ...
-
アクセスからエクセルへ出力時...
-
Changeイベントで複数セルへの...
-
同じ作業(データコピー・貼付...
-
エクセル 複数シートの同一セ...
-
楽天RSSからエクセルVBAを使用...
-
エクセルVBA:軸の設定でエラー...
-
【VBA】データを各シートに自動...
-
vba 連続するとうまく作動せず
-
まとめシートから集計シートへA...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
VBA 別ブックからの転記の高速...
-
VBA別シートの最終行の次行へ転...
-
【VBA】特定の条件でセルをコピー
-
Count Ifのセルの範囲指定に変...
-
100万件越えCSVから条件を満た...
-
楽天RSSからエクセルVBAを使用...
-
VBAコードについて
-
Changeイベントで複数セルへの...
-
VBAで変数の数/変数名を動的に...
-
Excel2013で切り取り禁止
-
グラフマクロで系列を変数にす...
-
VBA 実行時エラー1004 rangeメ...
-
ExcelのVBマクロを、バックグラ...
-
Unionでの他のシートの参照につ...
-
Excel VBA オートフィルターで...
-
アクセスからエクセルへ出力時...
おすすめ情報