No.5
- 回答日時:
あまりお勧めしませんが、どうしても関数で表示したいなら、以下のような手順で可能です。
元データ(最大100行)がSheet1にあり、添付画像のようなレイアウトなら、Sheet2のA1セルに以下の式を入力し、下方向に100*12(列数分=1200行)の行までオートフィルします。
=INDEX(Sheet1!$A:$L,MOD(ROW(A1)-1,100)+2,INT((ROW(A1)+9)/100))&""
C1セルに以下の式を入力して表示データ数分(200行)だけオートフィルします。
=INDEX(A:A,SMALL(INDEX(((MATCH($A$1:$A$1200&"",$A$1:$A$1200,0)<>ROW($A$1:$A$1200))+($A$1:$A$1200=""))*10000+ROW($A$1:$A$1200),),ROW(A1)))&""
このようにすればC列に重複のないデータを表示できますが、このような配列数式を多数のセルに入力するとシートの動きが重くなるので、このようなブックは重複のない項目を取得する作業用だけのブックにするとよいと思います。
また、このデータを入力規則などのリストに使いたいなら、自動的に重複のないデータ範囲を取得することもできます。
#添付画像は各月10行以内の元データを処理した結果です(1つ目の数式で100を10にして計算した結果)。
再びていねいな説明を寄せていただきありがとうございます。
理解しようとしましたが、私には関数の意味がわかりませんでした。
意味は解らないのですが、ご説明の通りにやりましたら確かにできました。
おっしゃる通り、ファイルのサイズはかなり大きくなりました。
私には、関数やマクロを使わないで「重複を削除する」機能でやるのが無難なようです。
このたびは詳しく教えていただきありがとうございました。
No.4
- 回答日時:
No.2です。
>欲を言えば、月別をとびこえてすべてのデータから一度に植物名だけを重複なく抜き出せるとよいのですが。
Sheet1のデータを重複なしに1度だけ表示したい!というコトですね?
VBAになってしまいますが、一例です。
Sheet1は1行目が項目行でデータはA2セル以降にあるとし、
Sheet2のA列にデータを羅列するようにしています。
Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り、マクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() 'この行から
Dim i As Long, j As Long, cnt As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2") '←「Sheet2」は実際のSheet名に!
wS.Range("A:A").ClearContents
With Worksheets("Sheet1") '←「Sheet1」も実際のSheet名に!
For j = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To .Cells(Rows.Count, j).End(xlUp).Row
Set c = wS.Range("A:A").Find(what:=.Cells(i, j), LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
cnt = cnt + 1
wS.Cells(cnt, "A") = .Cells(i, j)
End If
Next i
Next j
End With
wS.Activate
End Sub 'この行まで
※ 関数でないのでデータ変更があるたびにマクロを実行する必要があります。m(_ _)m
とても詳しい説明をしていただきありがとうございます。
マクロはよく分かりませんが、ご説明の通りにやってみましたら確かに一発で重複なく抜き出せました。こういう方法があることを知り大変勉強になりました。感謝します。
No.3ベストアンサー
- 回答日時:
ご希望の操作は、重複のない名前のリストを作成したいということですね。
その場合は以下のような手順で重複のないリストを作成するのが簡単です。
別シートに元データをコピーしておき、2月以降のデータ部分を選択して(B2セルを選択してCtrl+Shift+↓キーのショートカット操作)、Ctrl+Xで切り取りし、Ctrl+←、↓のあとにCtrlを離して↓のショートカット操作でA列の一番下のセルの1つ下のセルを選択してCtrl+Vで貼り付けます。
同様にC列以降のデータをA列の下にコピー貼り付けし、A列にすべての名前をまとめます。
最後にA列を選択して「データ」タブの「詳細設定」で「重複するレコードは無視する」にチェックを入れて「OK」します。
このようにして得られた重複のない名前のデータ範囲をコピーして、どこかのセルに貼り付ければ完成です。
ていねいに解答していただきありがとうございます。
エクセルに、関数を使わないでこんなことができる機能があったとは知りませんでした。
しかも。簡単な操作でできるのでおどろきました。
ありがとうございました。
No.2
- 回答日時:
こんばんは!
関数での方法をご希望のようですので・・・
↓の画像(小さいと思いますので、拡大してみてください)
で上側がSheet1で下側のSheet2に表示するとします。
Sheet1に作業用の列を月数分だけ設けます。
(1~12月までが元データの場合、作業列はM~X列となります)
作業列M2セルに
=IF(COUNTIF(A$2:A2,A2)=1,ROW(),"")
という数式を入れX列までフィルハンドルでコピー → そのまま下へずぃ~~~!っとコピーしておきます。
そして、Sheet2のA2セルに
=IFERROR(INDEX(Sheet1!A:A,SMALL(Sheet1!M:M,ROW(A1))),"")
という数式を入れフィルハンドルで、列・行方向にコピー!
これで画像のような感じになります。 m(_ _)m
ていねいな解答をしていただきありがとうございます。
理解するのに時間がかかりましたが、関数を使ってこのようにすればできることがやっと分かりました。ありがとうございました。
欲を言えば、月別をとびこえてすべてのデータから一度に植物名だけを重複なく抜き出せるとよいのですが。
No.1
- 回答日時:
COUNTIFを使えば
ヒマワリがいくつあったとか数えられますよ
例)
=COUNTIF(A1:A10、"ヒマワリ")
ヒマワリのとこはリスト票を作っておいてセル名でも良いです
B1など
http://kokodane.com/kan12.htm
さっそくのご解答、ありがとうございます。
私の説明がうまくなくてすみません。ヒマワリやウメ等何回か出ていますが、ヒマワリ、ウメ、サクラなど出てきている植物名をリストアップしたいということで質問しました。お手数をかけてしまいすみませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 数学 至急!研究の統計について 6 2023/07/12 00:38
- Visual Basic(VBA) VBA 連続する名前ごとに集計 3 2022/05/21 18:24
- Excel(エクセル) エクセル、日々の集計整理方法。(再送です。) 5 2022/10/02 00:19
- Excel(エクセル) エクセルのフィルターを複数シートに連動させたいです。 エクセルファイルに15シートあります。 そのう 2 2022/05/01 21:47
- ガーデニング・家庭菜園 鉢植えバラの水やり頻度について 4 2023/05/15 07:33
- Excel(エクセル) エクセルで当番表を作成したいです。 1 2023/08/09 19:53
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Excel(エクセル) 【関数】ハイフン(-)を月や日に変えたい。スペースを削除したい。 4 2023/07/12 08:49
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- その他(Microsoft Office) パワークエリの複数ファイルのデータ統合について 3 2022/07/14 17:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
はがきについて。
-
エクセル 文字を増やしたい。
-
セルの内容表示が邪魔になる
-
Microsoft365に変えたのですが...
-
エクセルの計算
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
Excel ピボットテーブルで日付...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
Excelのチェックボックスの使い...
-
エクセル 白黒印刷で白線を印刷...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの条件付き書式につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報