重複データ削除の応用テクニック! 続いて重複データ削除の応用テクニックを紹介します。 「優先して残したいデータがある場合」や「重複したら両方削除したい場合」についてみてみましょう。 2-1. 優先して残したいデータがある時はこうする! 優先して残したいデータがあった時、重複チェックの際2番目以降にあると削除されてしまいます。 その時には並び替えで上のほうに移動させてから「重複の削除」を行いましょう。 例えば先ほどの表で「受講日」の新しいものを残したい場合には、次のように行います。 (1)表全体を選択する(分かりやすいよう氏名の重複を色分けして表示) (2)右クリックを押し、「並び替え」をクリックして「ユーザー設定の並び替え」を選択する (3)列は「受講日」、順序は「降順」を選択する(古いものを上にしたい場合には「昇順」) (4)以下、「重複の削除」機能手順(2)以降を行って重複を削除すれば完了 「重複の削除」は一番上にあるデータを残します。 ですからこのように並び替えを行ってから使用しましょう。 2-2. セルのクリア（Clear,ClearContents）｜VBA入門. 重複したら両方削除したいときには? 次に重複データは両方消したい時の手順です。 この場合には先ほど解説した関数を使った方法を用いて、重複がないデータは「1」、重複がある場合には「2以上」となるよう数式を入れます。 実際にやってみましょう。 (1)E列を作業列としてタイトルを入れ、セルE2に「=COUNTIF($B$2:$B$11, B2)」と入力する (2)セルE2の右下にカーソルを当て、「+」マークになったらセルE11まで左クリックを押しながら引っ張る (3)以下、関数を使った重複削除手順(3)以降を行って重複を削除すれば完了 これで重複のないデータだけが取り出せます。実際にやってみてください。 3. 重複データ削除のマクロコードはこれだ! 最後に重複データを削除できるマクロコードを紹介します。 先ほどの表を使ってやはり「氏名」の重複をチェックし削除してみましょう。 (1)「Alt」+「F11」キーを押し、Visual Basicを開く (2)左のツリー上で右クリックを押し、「挿入」→「標準モジュール」を選択する (3)追加されたModule1に、「Sub~End Sub」までの以下のコードを張り付ける Sub 重複データの削除() Dim maxRow As Long maxRow = Cells(, 1)(xlUp) 'データの最終行を取得(下線部分「1」はデータが入っている列番号のいづれか(仮にD2からF20までの表であれば4(D)か5(E)か6(F))) Range(" A1:D " & maxRow).
質問日時: 2016/07/08 21:27 回答数: 1 件 エクセルで、下記の様なのがあります。 教えて頂きたいのが、A列にはどこかに、ひらがながあります。 B列には言葉は同じですが、ひらがなではなく、カタカナがあります。 100行くらいデータがあります。 そこで、A列とB列を比較して、A列にひらがながあれば、 C列に「ひらがなあり」とか、A<>Bとかを表示したいです。 関数を教えてください。 よろしくお願い致します。 A列にひらがながあれば、 A B C 1 ABCのDEF ABCノDEF A列にひらがながあれば、 2 GHIのJKL GHIノJKL 「ひらがなあり」とかを表示 3 ・・・ ・・・ No. 1 ベストアンサー 回答者: t_fumiaki 回答日時: 2016/07/08 22:03 C列(C1)に以下を入れて、C2以下ヘコピペ =IF(SUMPRODUCT((CHAR(ROW($9249:$9331))=MID(A1, COLUMN(1:1), 1))*1), "ひらがな有り", "") 4 件 この回答へのお礼 t_fumiaki 様 回答、ありがとうございました。 設定出来ました、理想通りです。 また何かありました時は、よろしくお願い致します。 お礼日時:2016/07/08 22:52 お探しのQ&Aが見つからない時は、教えて! gooで質問しましょう! このQ&Aを見た人はこんなQ&Aも見ています
下のコードの様に特定文字以下を取得できたのですが、削除の仕方がわからないので教えてください。 よろしくお願いします。 Sub check() Dim s As String s = Cells( 1, 2) s = Mid (s, InStr(s, "\") + 1) Cells( 1, 10) = s End Sub この画像の様にa. xslmfolder\yamadaの¥yamadaを削除したいです。 また 逆に¥より左を削除する方法もわかりません。教えてください。お願いします。 回答 3 件 sort 評価が高い順 sort 新着順 sort 古い順 check ベストアンサー + 1 そこまでできてるなら出来そうなもんだけど。 文字列加工はLeftかRightかMidがあればなんとかなるので、質問する前に色々試してみましょう。 Dim p As Long p = InStr(s, "\") Cells( 1, 10) = left(s, p - 1) Cells( 2, 10) = Mid (s, p) 0 正規表現を使うと色々出来て面白いです。(参考まで) (参照設定必要:Microsoft VBScript Regular Expression *. *) Option Explicit Sub Test_Sample_Miniature() Dim MyRange As Range Dim re As RegExp Dim mc As MatchCollection Set re = CreateObject( "") re. IgnoreCase = False re. Global = True For Each MyRange In Range( "A1:A6") ttern = "^. *(? =\\)" s = Set mc = re. Execute(s) Cells(, 10) = mc( 0) ttern = "^. *\\" Cells(, 11) = place(s, "") Next Set re = Nothing Set mc = Nothing いろいろな方法を覚えておくと、場面に応じて追加分けできると思いますので、ご参考までに。 Sub sample() Dim a s = Cells( 1, 1) a = Split(s, "\") Cells( 1, 10) = a( 0) Cells( 1, 11) = a( 1) VBA Split 関数 Range ( "A1:A10").
!」 と逆に焦り…私の事など憶えておられない前提で手紙を出したゆえ、意外でした。 私の想像ですが。恐らく、連載雑誌の移籍、他雑誌との同時進行連載、漫画以外の単発のお仕事(ゲームのイラスト)など、先生自身の状況が一段落した 頃でもあったのではないかと思われます。お互いたまたま、タイミングが合った時期だったのかも知れませんね。憶えていて下さって嬉しかったです^^ 近年、出身地で先生の作品が自治体とタイアップ企画され、トップの方と対談。地元の母校で講演され、生徒さんたちに作画作業を公開されていました。 活躍の場が広がり、私も、自分の事のように嬉しいです。空白期間が長くありましたが、色紙を頂けました。手紙を出し続けて実に、23年後の事でした。 【関連記事】 漫画家ファンレターの文例 返事を貰える人、貰えない人の違いとは? 漫画家ファンレターQ&A 書く目的を明確に 返事は一旦忘れる
先日、岡崎つぐお先生のこのTweetが話題になりました。 岡崎つぐお @majam_fire_blue 1977年〜1979年「ヒットエンドラン」の作者あや秀夫先生のアシスタントを経て、1980年にデビューいたしました。以来、寡作な漫画家として細々と現在に至っておりますヽ(^^) 令和元年七月より、石ノ森章太郎先生の名作、サイボーグ009の新作連載をスタートいたしました! あまりにも理解しづらい事案がありましたので、ここでファンの皆様に…。 この度、 ファンレターを気付で送り届けられる事、またそれを作家に転送する事が通常業務の範疇には無いので、この後はファンレターの類いは取り扱わない という連絡が、とある出版販売会社からありましたのでご報告致します。 2018-11-01 16:29:49 漫画家として、長く作品や書き下ろしイラストをファンの方々にご購入頂いている身としては、その仲介を生業とする所がこのような宣言を作家やファンの皆様にされる意味が理解出来ないのですが、会社によってはその様なファンレターの扱いをする処もあるようですので、何卒ご注意くださいませ…。 2018-11-01 16:30:21 それに対し、出版社や関係者から、多くの声があがっています。 ヤングマガジンのスズキ @ym_suzuki 編集者。講談社ヤングマガジン編集部&投稿サイト事業チーム。DAYS NEO&ゲームクリエイターズラボ責任者。フィナンシェ好き。うさぎ飼い。 ご相談はリプ、 DM、または下記リンクのLINE@にどうぞ(漫画の持ち込みはお受けしていません)。すべて私見です。 … 📖DIVERSE NOVEL📖最新刊発売中! @diverse_novel DIVERSE NOVELもご感想やファンレターを受け付けておりますので、奥付にございます宛名まで遠慮無くお送りください。 可能な限り最速で著者様・イラストレーター様にお送りさせていただきます! 漫画家へのプレゼントや差し入れ。最強は「手紙」です | でんまけん|電脳マンガ研究所 | 漫画家になる方法. ちなみにHPのお問い合わせからでも構いませんし、なんならDMでも受け付けます。 2018-11-02 12:10:48 【クランチ&ガム】コミックス公式 @Crunch_GUM 【水曜更新!】コミックレーベル「クランチコミックス」と「ガムコミックス」の公式アカウントです。 サイトの更新や作品の最新情報などを告知します! 個別のご質問等にはお答えできない場合がありますのでご了承ください。 ▶️ニコニコ静画「次の日のガム」 ▶️pixivコミックでも配信中です。 宜しくお願いいたします。🙇♂️ COMICアオハ @kou_jk そう多くない人数で回しているので遅れてしまうこともあるのですが、当編集部へのファンレターは必ず転送しておりますし作家さんも大変お喜びになりますので、どうぞ遠慮なくお送りくださいね。 2018-11-02 14:57:23 コミック夢幻転生2月号、本日発売!!
みなさまご機嫌よう。自分の著作物を界隈に明るくない方へ説明する時、最近はいつも「主にイケメンの出てくる女性向けロマンス小説を書いています」と吹いているくもはばきです。 嘘はついていない。 先日お陰様で新刊「オオカミ陛下は愛妻家」を上梓いたしまして、諸々ひと段落した今は毎日 目を皿のようにしてレビューサイトをパトロール しております。今回は口を酸っぱくして「予約してね!」と言い続けたお陰か、書店(特に協力書店さま)(ありがとうございます! )での動きはかつてなく好調のようです。 しかし口コミは前作に比べるとやや少なめ。 さてさて、これは単にまだお手元で積まれているだけなのか、それとも表紙とタイトルに中身が伴っていなかったためなのか…… 怖いので考えるのをやめます。 なおツイッターではハッシュタグ企画も絶賛開催中なので、もしよろしければこちらもぜひぜひご参加くださいませ! 【「オオカミ陛下は愛妻家」発売記念】 「 #オオカミ陛下は愛妻家 🐺🌷 」をつけて本書の写真&感想をツイートしてくれた方に漏れなくID入りデジタルサインと限定SSプレゼント! 〆切:2020/01/09 23:59 ※サインとSSはDMにて送らせて頂きます。FF外からも受信できるよう設定をお願いします — 姓:くもは 名:ばき☆オオカミ陛下ハッシュタグ企画あるよ (@kumo_baki) December 10, 2019 本書の感想と写真をツイートして頂いた方に、 漏れなくデジタルサインと企画限定SSをDMにてお届けしております。 SSは文庫本換算で約21~2P分と大ボリュームな上に半分は色っぽいシーンです。100字ちょっとの感想で文章量約100倍のSSが返ってくるのでコスパも抜群ですね!