意外に面倒な重複データの削除・・・

 ★ AdvancedFilter ★ 
 ご訪問頂きありがとうございます。アラクリカエシキ(阿良々木)です(´・ω・)(´_ _)
 今日は意外に面倒な重複の削除についてです。
 そんなもの、データタブの重複の削除で簡単にできるじゃん、って思われるかたが多いかと思いますがこの「重複の削除」機能には、重複してないデータまで消してしまうバグがあります。「エクセル 重複の削除 バグ」で検索するとたくさんヒットします。最近仕事で実際に遭遇しました。それで、それ以降はホームタブの条件付き書式>セルの強調表示ルール>重複する値で強調表示させて重複したデータを削除してたんですけどめんどくさいです。
 多くのサイトでCOUNTIF関数を使った方法が紹介されていましたが。かなりめんどくさいなぁと思った次第です。
 ピボットテーブルとか使えば難しくないのですが、パートの方にやって貰っている業務なのでピボットテーブルの操作を説明したら速攻で「無理」っていわれちゃいました(;^_^A
 そうこうしてるうちにでたどり着いたのがいつもお世話になっている「エクセルの神髄」様
 ttps://excel-ubara.com/excelvba5/EXCELVBA206.html
 参考にして書き換えたコードがこれ↓
MAE_20201210202945699.jpg

ATO_202012102030470fc.jpg

いい感じ?できたぁーって思ったんですが、何度か実行してたら一行目の重複を処理しないケースが・・・
うーん実行後に条件付き書式>セルの強調表示ルール>重複する値で強調表示させて(;^_^A
まぁ「重複してないデータまで消してしまう」よりましかなと思います。ではではでわ^^
HENKOUGO.jpg


2020/12/14 追記
こちら↑も重複の削除と同じく重複していないのに削除するケースをを確認しました。orz

スポンサーサイト



郵便番号で住所入力(エクセル)

 ★ =ASC(LEFT(PHONETIC(B2),8)) ★ 
 ども。アラクリカエシキ(阿良々木)です。
 このあいだ、郵便番号のVBAをちょっとやったので、郵便番号関連の小技を覚書。
 IME>プロパティ>詳細設定>郵便番号辞書にチェックを入れる。
  ↓ B列に全角で郵便番号を入力しキーボードの変換キーを押す。
s-POSTtoADDR.jpg
郵便番号は、ASC,LEFT,PHONETIC関数を使ってA列に表示。
ただの覚書です。ではでわ^^

郵便番号・・・

 ★ =TEXT(ZipCode,"000-0000")★ 
 ども、アラクリカエシキ(阿良々木)です。
 母が退院するまで期間限定でブログの更新しようと思います。
 で、今日のネタは郵便番号についてです。
 10月にリニューアルしたうちの職場の基幹系システムですが、データをCSVで抜いた際に郵便番号を3列に分けて出力する仕様のようで、例えば、064-0941のような場合↓の図のような感じで頭の0が飛んで上手く連結できないと同僚からヘルプがかかりました。
ziocodesample.jpg
↑のようにTEXT関数を使えばなんてことないのですが、もっといい方法はないかと検索していくつかのぞいてみたのですが・・・
LEFT関数やRIGHT関数を使ったものが多く、北海道とか0から始まる郵便番号ではずれてしまうんですが大丈夫ですか?って思いました。
普通は7桁の数値でCSV出力されることが多いのですが、CSVで"0640941"となっていてもエクセルで開くと大抵は数値「640941」としいて認識されます。
=LEFT(ZipCode,3)&"-"&RIGHT(ZipCode,4)のような式では
640-0941といううようにズレてしまいます。気をつけてくださいね。
それではまた

追記 VBAにするとこんな感じ?

Sub Sample()
Dim i As Long
Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
Cells(i, 1).Value = Format(Cells(i, 1).Value, "000-0000")
Next i
End Sub

ziocode2.jpg
でわでは

参照不可?

 ★ 参照設定 ★ 
 アラクリカエシキ(阿良々木)です(´・ω・)(´_ _)
 お久しぶりです。なんだか最近珍しく忙しくて・・・
 ここ最近、職場でエクセルの参照設定が「参照不可」になってマクロが止まる事態が頻発しています。大抵チェックボックスをオフにすると直るんですが。
 エクセルが2010(32bit)から2016(64bit)に変わりなおかつ大量にあったファイルメーカーファイルの代替品が数多くあり、かなりの確率で参照不可で止まります。orz
 「Date」や「INSETROW」などよく使うものがライブラリにないとひっかります。
 都度都度直してますが、もう少ししたら落ち着くのでしょうか?
 ちょっと憂鬱です。キャプチャ

基幹システムの入れ替えと使えなくなるファイルメーカー

 ★ なんかもう駄目… ★ 
 来月5日から基幹システムが入れ替わるんですけどその準備で悩ましい日々が続いてます。どうもアラクリカエシキです。
 使ってるPCもWIN7からWIN10になり、これまで使ってたファイルメーカーは使えなくなり。その代替のエクセルファイルを作る日々・・・
持病で三度休職し、復帰してから久々に忙しいです。ブログの更新も久しぶりです。あつ森もここ数日起動していません。10月中旬ぐらいになれば落ち着くかなと思ってます。落書きアップしたいなあ・・・
 では('ω')ノ
訪問者さま
カレンダー
12 | 2021/01 | 02
- - - - - 1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31 - - - - - -
プロフィール

arakurikaesiki

Author:arakurikaesiki
阿良々木(あらくりかえしき)と申します。趣味はらくがき/アクアリウム、好きな小説は物語シリーズです。あと、仕事で楽したいためにExcelのVBAをちょくちょくいじってます。
なお、当ブログはリンクフリーです、よろしければリンク貼ってください。
また、ブロともさまも募集中です。コメントとかもらえるとすごく喜びます。

ブロとも様募集中ですm(_)m

この人とブロともになる

最新コメント
リンク(敬称略)
らくがき
新着記事
また介護の日々が始まる・・・ Dec 24, 2020
意外に面倒な重複データの削除・・・ Dec 10, 2020
母がもうすぐ退院するかもしれません Dec 09, 2020
ひさしぶりにあつ森 Dec 02, 2020
郵便番号で住所入力(エクセル) Nov 24, 2020
ひさびさのらくがき Nov 22, 2020
郵便番号・・・ Nov 20, 2020
母が転んで骨折し入院・・・ Nov 19, 2020
参照不可? Oct 20, 2020
基幹システムの入れ替えと使えなくなるファイルメーカー Sep 30, 2020
カテゴリ
アクセスランキング
[ジャンルランキング]
ブログ
5001位
アクセスランキングを見る>>

[サブジャンルランキング]
イラストブログ
207位
アクセスランキングを見る>>
にほんブログ村(ビオトープ)
月別アーカイブ
人気ブログランキング
更新通知登録ボタン

更新通知で新しい記事をいち早くお届けします

検索フォーム