No.3ベストアンサー
- 回答日時:
何度もごめんなさい。
>鈴木さんなら鈴木さんの全行が表示されてほしいんですよね
を見逃していました。
No.2は無視してください。
今回も作業用の列を使いますが、Sheet2に結果を表示するようにしました。
Sheet1の作業列D2セルは
=IF(COUNTIF(A:A,A2)>=10,ROW(),"")
という数式に変更してください。
そしてSheet2のA2セルに
=IFERROR(INDEX(Sheet1!A:A,SMALL(Sheet1!$D:$D,ROW(A1))),"")
という数式を入れフィルハンドルで列・行方向にコピーしています。m(_ _)m
No.2
- 回答日時:
No.1です。
>1列加えてなにか関数を入れて・・・
というコトなので、今回は関数での方法にしてみました。
やり方だけです。
↓の画像ではD列を作業用の列として使っています。
作業列D2セルに
=IF(AND(COUNTIF(A:A,A2)>=10,COUNTIF(A$2:A2,A2)=1),ROW(),"")
とい数式を入れフィルハンドルでダブルクリック!またはこれ以上データはない!という位まで下へフィル&コピーしておきます。
結果のF2セルに
=IFERROR(INDEX(A:A,SMALL(D:D,ROW(A1))),"")
という数式を入れフィルハンドルで下へコピーしています。
※ A列データはバラバラで構いません。
※ 作業列が目障りであれば
遠く離れた列にするか、非表示にしてください。m(_ _)m
No.1
- 回答日時:
こんにちは!
作業用の列を使えば関数で簡単にできそうですが、
VBAでやっていました。
具体的な配置が判らないので、
A列に購入のたびに顧客名をどんどん入力しているとします。
(要するにA列に10回以上出現するデータのみを別列に表示する)
表示するのはG列とします。
Sub Sample1()
Dim myDic As Object
Dim i As Long, lastRow As Long
Dim myKey, myR
Set myDic = CreateObject("Scripting.Dictionary")
Range("G:G").ClearContents
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
myR = Range(Cells(1, "A"), Cells(lastRow, "A"))
For i = 1 To UBound(myR, 1)
If WorksheetFunction.CountIf(Range("A:A"), myR(i, 1)) >= 10 Then
If Not myDic.exists(myR(i, 1)) Then
myDic.Add myR(i, 1), ""
End If
End If
Next i
myKey = myDic.keys
For i = 0 To UBound(myKey)
Cells(i + 1, "G") = myKey(i)
Next i
Set myDic = Nothing
End Sub
こんな感じではどうでしょうか?m(_ _)m
ありがとうございます。
せっかくおしえていただきましたが、マクロほとんどわかりませんで動きませんでした。
マクロはできません、って最初にお伝えするべきでしたよね。
本当にすみませんでした。
顧客名がT列に入っているので、"A"を"T"にかえてみましたが…
Sub Sample1()
Dim myDic As Object
Dim i As Long, lastRow As Long
Dim myKey, myR
Set myDic = CreateObject("Scripting.Dictionary")
Range("G:G").ClearContents
lastRow = Cells(Rows.Count, "T").End(xlUp).Row
myR = Range(Cells(1, "T"), Cells(lastRow, "T"))
For i = 1 To UBound(myR, 1)
If WorksheetFunction.CountIf(Range("T:T"), myR(i, 1)) >= 10 Then
If Not myDic.exists(myR(i, 1)) Then
myDic.Add myR(i, 1), ""
End If
End If
Next i
myKey = myDic.keys
For i = 0 To UBound(myKey)
Cells(i + 1, "G") = myKey(i)
Next i
Set myDic = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 日付以外のデータを抽出したいのですが、 6 2023/06/27 13:32
- その他(ソフトウェア) 現在と過去の顧客名簿、新規・解約・更新など作りたいのですが「やよいの顧客管理」なら簡単に扱えますか? 1 2022/05/18 10:44
- その他(開発・運用・管理) マイクロソフト製品のライセンス販売で困ってます 1 2022/06/30 19:52
- Excel(エクセル) エクセルデータ。容量を減らすにはどうしたらいい? 11 2022/12/22 09:01
- Visual Basic(VBA) SQLで抽出 4 2022/12/04 13:55
- 国産車 車の購入について。 7 2023/02/12 11:59
- 会計ソフト・業務用ソフト エクセル 2 2022/07/18 07:21
- オンラインゲーム VCTmastersTOKYOのチケット購入方法について 上の通り、VCT TOKYOのチケットにつ 1 2023/04/06 22:47
- Excel(エクセル) 更新前と更新後の差分をVBAを使って抜き出したい 5 2023/06/01 14:35
- Excel(エクセル) エクセルで重複データを行ごとに抽出したい 4 2022/12/05 08:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelについて教えてください
-
【Excel】数字を3倍にし、なお...
-
エクセルVBA、別ブックへ転記す...
-
エクセル マクロ チェックボックス
-
Excel分析ツールでのポアソン回...
-
【マクロ】顧客番号にて一致さ...
-
【マクロ】名前を保存する際に...
-
エクセルのデーターが2か月前の...
-
UNIQUE関数が使えないバージョ...
-
エクセル共有したが、アクセス...
-
Excelでセルの値が同じか...
-
(マクロ)データをAブックからB...
-
Excel フィルターを掛けた状態...
-
エクセル②
-
エクセルを使っていて2024/5/15...
-
Googleスプレッドシートでファ...
-
エクセルで不等号記号(≠)が上に...
-
Win10でExcel VBA GetPhonetic...
-
Excelで縦軸の書式を0:00形式の...
-
エクセル:一覧表に存在する文...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報
すみません、完全にご質問の内容が希薄でした。
A列に名前が並んでいます。
B列にはこれまでの数年間のその顧客の注文件数の累計が記載されています。
したがって、
A B
鈴木 850 花
鈴木 850 靴下
鈴木 850 傘
鈴木 850 電池
山田 450 …
山田 450 …
山田 450 …
池田 300 …
池田 300 …
と並んでいます。
B列でソートかけています。
1列加えてなにか関数を入れて、それに該当したやつだけをフィルターで抽出できたらいいなとは思ったんですが、、、、、
鈴木さんなら鈴木さんの全行が表示されてほしいんですよね。
すみません。
お手数おかけします。