Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10637 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20683】重複データを検索 初心者 04/12/15(水) 1:03 質問[未読]
【20685】Re:重複データを検索 かみちゃん 04/12/15(水) 6:34 発言[未読]
【20686】Re:重複データを検索 初心者 04/12/15(水) 8:16 お礼[未読]
【20690】Re:重複データを検索 初心者 04/12/15(水) 11:13 発言[未読]
【20691】Re:重複データを検索 かみちゃん 04/12/15(水) 13:07 発言[未読]
【20694】Re:重複データを検索 Jaka 04/12/15(水) 14:06 回答[未読]
【20701】Re:重複データを検索 [名前なし] 04/12/15(水) 21:51 回答[未読]
【20683】重複データを検索
質問  初心者 E-MAIL  - 04/12/15(水) 1:03 -
引用なし
パスワード
   こんにちは、初心者です。
　　A 　　B 　　　　　　C 　　　　　　　　　D 　　　　　　　E 　　　　F
1客番号　漢字名前　　フリガナ　　　　　　振込フリガナ　　　金額　　　個
2　1　　鈴木太郎　　スズキタロウ　　　　アキヤマヤヨイ　　　2980　　　1
3　2　　山本次郎　　ヤマモトジロウ　　　タナカ　イチロウ　　5960　　　2
4　3　　田中一郎　　タナカイチロウ　　　マツイ　ヒロキ　　　2980　　　1
5　4　　秋山弥生　　アキヤマヤヨイ　　　カコヒロフミ　　　　8940　　　3
6　5　　松井弘樹　　マツイヒロキ　　　　ヤマモトジロウ　　　11920　　 4
7　6　　加古博文　　カコ　ヒロフミ　　　サトウヨシミツ　　　5960　　　2
8　7　　佐藤義光　　サトウ　ヨシミツ　　スズキ　タロウ　　　2980　　　1


のようにABCはデータベースDEFは振込みのデータ、Fは一個2980円なので
注文個数を表しています。
私は初心者なので、プリントアウトし、マジックでチェックして入力を
しています。ABCの列は移動せず、Cのデータの横にC、Dが一致するようDEFを移動し（スペースがあったり、無かったりします。）
Bのセル（漢字名前）内にFの個数を自動で記入したいのですが無理でしょうか？
どなたか教えてください。
よろしくお願いいたします。
【20685】Re:重複データを検索
発言  かみちゃん  - 04/12/15(水) 6:34 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> ABCの列は移動せず、Cのデータの横にC、Dが一致するようDEFを移動し（スペー
> スがあったり、無かったりします。）

結果としては、このようにしたいということですか？
客番号　漢字名前　フリガナ　　　　　振込フリガナ　　　金額　個
1　　　鈴木太郎　スズキタロウ　　　スズキ　タロウ　　2980　 1
2　　　山本次郎　ヤマモトジロウ　　ヤマモトジロウ　 11920　 4
3　　　田中一郎　タナカイチロウ　　タナカ　イチロウ　5960　 2
4　　　秋山弥生　アキヤマヤヨイ　　アキヤマヤヨイ　　2980　 1
5　　　松井弘樹　マツイヒロキ　　　マツイ　ヒロキ　　2980　 1
6　　　加古博文　カコ　ヒロフミ　　カコヒロフミ　　　8940　 3
7　　　佐藤義光　サトウ　ヨシミツ　サトウヨシミツ　　5960　 2

このときに、「フリガナ」と「振込フリガナ」のスペースを除去して一致するかど
うかの検索をすることでもいいのでしょうか？
ただし、この方法をとると、「スズキ　タロウ」と「スズ　キタロウ」は一致する
ものと判断してしまいますが、いいのでしょうか？

それであれば、一般操作でできます。
まず「フリガナ」と「振込フリガナ」のセルから、スペースを「長さ0の文字列」
に置換して、VLOOKUP関数で参照するという方法でできると思います。

>Bのセル（漢字名前）内にFの個数を自動で記入したいのですが無理でしょうか？

できると思いますが、必要性がわかりません。
【20686】Re:重複データを検索
お礼  初心者 E-MAIL  - 04/12/15(水) 8:16 -
引用なし
パスワード
   かみちゃん さん、おはよう御座います。
書き込み有難う御座います。下記の並び替えでOKですが、
説明が一つ不十分でした、振込フリガナの頭に（振込　スズキタロウとか
フリコミ　スズキタロウ）と振込　フリコミ　が記入されています。
>
>結果としては、このようにしたいということですか？
>客番号　漢字名前　フリガナ　　　　　振込フリガナ　　　金額　個
> 1　　　鈴木太郎　スズキタロウ　　　スズキ　タロウ　　2980　 1
> 2　　　山本次郎　ヤマモトジロウ　　ヤマモトジロウ　 11920　 4
> 3　　　田中一郎　タナカイチロウ　　タナカ　イチロウ　5960　 2
> 4　　　秋山弥生　アキヤマヤヨイ　　アキヤマヤヨイ　　2980　 1
> 5　　　松井弘樹　マツイヒロキ　　　マツイ　ヒロキ　　2980　 1
> 6　　　加古博文　カコ　ヒロフミ　　カコヒロフミ　　　8940　 3
> 7　　　佐藤義光　サトウ　ヨシミツ　サトウヨシミツ　　5960　 2
>
>このときに、「フリガナ」と「振込フリガナ」のスペースを除去して一致するかど
>うかの検索をすることでもいいのでしょうか？
>ただし、この方法をとると、「スズキ　タロウ」と「スズ　キタロウ」は一致する
>ものと判断してしまいますが、いいのでしょうか？

いいですー。出来るんですか？

>それであれば、一般操作でできます。
>まず「フリガナ」と「振込フリガナ」のセルから、スペースを「長さ0の文字列」
>に置換して、VLOOKUP関数で参照するという方法でできると思います。
>
>>Bのセル（漢字名前）内にFの個数を自動で記入したいのですが無理でしょうか？
>
>できると思いますが、必要性がわかりません。

の件ですが、一日100件近く発送するので名前の後ろに数量を
書き込み、1は一つの袋、2は二つの袋と住所のシールを張っています。
正直、私は初心者なので、このような高度な場所に投稿するのは場違い
と思いましたが、投稿いたしました、ど素人の私に操作の仕方を
教えていただけませんか？よろしくお願いいたします。
【20690】Re:重複データを検索
発言  初心者 E-MAIL  - 04/12/15(水) 11:13 -
引用なし
パスワード
   何度もスイマセンVLOOKUPはカタカナは使えないんでしょうか？
【20691】Re:重複データを検索
発言  かみちゃん  - 04/12/15(水) 13:07 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> VLOOKUPはカタカナは使えないんでしょうか？

できます。
VBAは特に必要ではありません。一般操作関数です。
どのようにして、「カタカナは使えないのか」とおっしゃっているのでしょうか？

ちなみに、「スズキ　タロウ」と「スズキタロウ」では一致しません。
なぜだかわかりますか？

「振込」と「フリコミ」がフリガナの前についているとのことですが、これも「長
さ0の文字列」に置き換えればいいです。
これも、一般操作関数SUBSTITUTE関数でできます。

名前あとに、個数を付けたいなら、一般操作関数CONCATENATE関数でできます。
また、A1に名前、B1に個数が入力してあれば、=A1&B1でもできます。

> 書き込み、1は一つの袋、2は二つの袋と住所のシールを張っています。

個数が2の場合は、2行にしたいということであるならば、VBAを使う必要が出てく
ると思います。

※今、出先なので、これくらいしか、コメントできません。すみません。
【20694】Re:重複データを検索
回答  Jaka  - 04/12/15(水) 14:06 -
引用なし
パスワード
   こんにちは。
こんなんでいいのか解りませんけど...。

まず、「置換え」にて
置換え文字　全角スペール、置換え後の文字　何も無し
置換え文字　半角スペール、置換え後の文字　何も無し

で、全角半角スペースを取って、下のようにしてください。

Sheet1として、
　A　　　　B　　　　 C　　　　　　　D　　　　　　 E　　　F
客番号　漢字名前　フリガナ　　　　振込フリガナ　　　金額　　個
1　　　 鈴木太郎　スズキタロウ　　アキヤマヤヨイ　　2980　　1
2 　　　山本次郎　ヤマモトジロウ　タナカイチロウ　　5960　　2
3　　　 田中一郎　タナカイチロウ　マツイヒロキ　　　2980　　1
4 　　　秋山弥生　アキヤマヤヨイ　カコヒロフミ　　　8940　　3
5 　　　松井弘樹　マツイヒロキ　　ヤマモトジロウ　　11920　 4
6 　　　加古博文　カコヒロフミ　　サトウヨシミツ　　5960　　2
7 　　　佐藤義光　サトウヨシミツ　スズキタロウ　　　2980　　1


Sheet２をこんな感じにして
　A　　　　B　　　　 C　　　　　　　D　　　　　　 E　　　F
客番号　漢字名前　フリガナ　　　　振込フリガナ　　　金額　　個
1　　　 鈴木太郎　スズキタロウ
2 　　　山本次郎　ヤマモトジロウ
3　　　 田中一郎　タナカイチロウ
4 　　　秋山弥生　アキヤマヤヨイ
5 　　　松井弘樹　マツイヒロキ
6 　　　加古博文　カコヒロフミ
7 　　　佐藤義光　サトウヨシミツ

D2に　=C2
E2に　=VLOOKUP($D2,Sheet1!$D$1:$F$8,2,0)
F2に　=VLOOKUP($D2,Sheet1!$D$1:$F$8,3,0)
を入れ、D2:F2を選択して必要な所まで下にフィル。
【20701】Re:重複データを検索
回答  [名前なし]  - 04/12/15(水) 21:51 -
引用なし
パスワード
   >まず、「置換え」にて
>置換え文字　全角スペール、置換え後の文字　何も無し
>置換え文字　半角スペール、置換え後の文字　何も無し
>
>で、全角半角スペースを取って、下のようにしてください。
>
>Sheet1として、
>　A　　　　B　　　　 C　　　　　　　D　　　　　　 E　　　F
>客番号　漢字名前　フリガナ　　　　振込フリガナ　　　金額　　個
>1　　　 鈴木太郎　スズキタロウ　　アキヤマヤヨイ　　2980　　1
>2 　　　山本次郎　ヤマモトジロウ　タナカイチロウ　　5960　　2
>3　　　 田中一郎　タナカイチロウ　マツイヒロキ　　　2980　　1
>4 　　　秋山弥生　アキヤマヤヨイ　カコヒロフミ　　　8940　　3
>5 　　　松井弘樹　マツイヒロキ　　ヤマモトジロウ　　11920　 4
>6 　　　加古博文　カコヒロフミ　　サトウヨシミツ　　5960　　2
>7 　　　佐藤義光　サトウヨシミツ　スズキタロウ　　　2980　　1

ここまでの手順はJakaさんと同じで、ここから

1)D〜F列を選択し、D列(振込フリガナ)を最優先キーにして昇順で並べ替えします。
2)A〜C列を選択し、C列(フリガナ)を最優先キーにして昇順で並べ替えします。
3)A〜F列を選択し、A列(客番号)を最優先キーにして昇順で並べ替えします。
4)C〜E列を選択し、非表示にします。

これじゃだめですかね？
これでいいのであれば、上の作業をマクロの記録で記録して自動化してしまうとか。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10637 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free