No.2ベストアンサー
- 回答日時:
こんばんは!
既存のワークシート関数でやってみました。
↓の画像のように作業用の列を設けています。
作業列E2セルに
=IF(AND(COUNTIF(A$11:A$20,A11)>1,COUNTIF(A$11:A11,A11)=1),ROW(A1),"")
という数式を入れ、元データの行数分(10行)下へコピー!
そしてB2セルに
=IFERROR(INDEX(A$11:A$20,SMALL(E$2:E$11,ROW(A1))),"")
C2セルに
=IFERROR(INDEX(A$11:A$20,SMALL(IF(COUNTIF(A$11:A$20,A$11:A$20)=1,ROW(A$1:A$10)),ROW(A1))),"")
※ C2セルは配列数式になりますので、Ctrl+Shift+Enterで確定!
この画面からコピー&ペーストする場合、
上記数式をドラッグ&コピー → C2セルを選択 → 数式バー内に貼り付け → そのまま(編集可能なまま)
Ctrl+Shiftキーを押しながらEnterキーで確定!
数式の前後に{ }マークが入り配列数式になります。
最後にB2・C2セルを選択 → C2セルのフィルハンドルで下へコピー!
これで画像のような感じになります。
※ 作業列の「2」と「6」はデータそのものではなく、
INDEX関数で範囲指定した行番号です。
尚、質問のタイトルが「マクロで!」というコトですので、ついでにVBAでの一例です。
シートモジュールにしてみてください。(当然のことながら作業列は不要です)
Sub Sample1()
Dim i As Long, c As Range
Range("B2:C11").ClearContents
For i = 11 To 20 '←A列11行目~20行目まで
If WorksheetFunction.CountIf(Range("A11:A20"), Cells(i, "A")) > 1 Then
Set c = Range("B:B").Find(what:=Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
Cells(Rows.Count, "B").End(xlUp).Offset(1) = Cells(i, "A")
End If
Else
Cells(Rows.Count, "C").End(xlUp).Offset(1) = Cells(i, "A")
End If
Next i
End Sub
こんな感じではどうでしょうか?m(_ _)m
tom04様
ご丁寧にご説明いただきましてありがとうございました。
感激。目からウロコでした。助かりました。
丁寧な解説で、だんだん解読できるようになりました。
まだまだ学習中ですので、またご質問させていただきますが、
よろしくお願いします。
No.1
- 回答日時:
Microsoft Queryを追加インストールしてSQL投げる。
「外部データの取込」とあるが、EXCELへも接続できる
SelectでCOUNTとって、HAVINGで識別
重複アリは>1だし、重複ナシは=1を捨えばOK
これをVBAで記述
参考URL:http://office.microsoft.com/ja-jp/excel-help/HA0 …
ご回答ありがとうございました。このような機能があることを初めて知りました勉強になります。
と同時にExcelの万能さに感動しております。まだまだ学習不足なので、またご質問させていただきますが、
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- Excel(エクセル) ExcelVBAでリストの項目に必要数と同じ手配数を分配していくマクロを作りたいです。 1 2022/07/29 18:36
- C言語・C++・C# C言語初心者 構造体 課題について 1 2023/03/10 19:30
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) 【Excel】指定した文字列に該当する行を重複しないようにリスト 3 2022/03/30 12:27
- Excel(エクセル) Excel 条件付き書式について 1 2022/12/14 20:38
- Excel(エクセル) エクセルで重複データから重複を削除して指定の列に抽出したい 11 2022/05/11 11:26
- Excel(エクセル) エクセルで列の行の重複の検索方法を教えてください。 8 2022/10/11 14:51
- Excel(エクセル) 表に書いてある単語を1つの行に重複させないで書き出したい。 複数の列行にそれぞれ職種が入力されている 6 2022/05/25 04:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【関数】スペースがいくつ入っ...
-
西暦や和暦の表示をyyyymmdd表...
-
Excelのセルを飛ばして入力する
-
Excelのオートフィル
-
別シートからの文字を変更
-
Excel 2019 のピボットテーブル...
-
エクセルの行の抽出について質...
-
【マクロ】エクセルにかいてあ...
-
スプレッドシート クエリ関数 1...
-
エクセルでセルに「氏名を入力...
-
MOS365 Excel Expert / Excel R...
-
excelの不要な行の削除ができな...
-
EXACT関数とIF関数の組み合わせ...
-
スプレッドシートの関数VLOOKUP...
-
Excelで全角を半角にしたいので...
-
Excel初心者です。 詳しい方、...
-
エクセルの数式で教えてください。
-
4つのパターンを表示するEXACT...
-
スマートな関数を教えて下さい。
-
【Excel】セル内の時間帯が特定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報