セルA1~AnにA組の生徒の名前(姓のみ)が、同様にセルB1~BmにB組の生徒の名前が入っています。以下E組まであります。それぞれの組の人数は異なります。また、各組共、同じ姓の者が入り交じって居るかも知れません。
[質問1]
各組に同姓者が居れば2名目以降は省いて、各組の中に同姓者が居ないような(見かけ上人数を減らしたような)表に作り替えたい。
[質問2]
質問1で作った表を元に、A組を基準として、B~E組にA組と同じ姓の者が居れば、その者の姓名を赤字にしたい。
[補足]
・条件付き書式で、うまく行きませんでした。
・VLOOKUPを使うようであれば、(苦手なので)少し詳しくお願いします。
・勝手ば言いますがよろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは
以下のページがご参考になるのでは?
【エクセル技道場】
-編集-重複するレコードは無視する
http://www2.odn.ne.jp/excel/waza/edit.html#SEC30
-条件付き書式-別シートにある文字列との重複チェック
http://www2.odn.ne.jp/excel/waza/cformat.html#SE …
参考URL:http://www2.odn.ne.jp/excel/waza/edit.html#SEC30,http://www2.odn.ne.jp/excel/waza/cformat.html#SE …
わあ~助かりました。不慣れなので少し時間がかかりましたが、質問1,2とも解決です。関数を使わずにできるとは思いませんでした。(条件付き書式の中でcountifを使いましたが・・・)
それにしても便利なサイトがあるんですね。早速「お気に入り」へ登録です。
有り難うございました。
No.2
- 回答日時:
関数や機能を使う方法は大変(面倒)なのでマクロを書いてみました。
ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入し、そのコードウインドウに下記マクロ(Public~End Subをコピーして)を貼り付けます。
シートに戻って、ツール→マクロ→マクロ でTableMake を実行します。
今はH列から表を作り出します。複数のシートがあれば、個別に実行します。ご参考に。
Public Sub TableMake()
Const strSCol = "H" '作成する表を開始する列。今はH列
Dim strCol As Integer '作成する表を開始する列の番号
strCol = Asc(strSCol) - Asc("A") + 1
Dim r As Integer '行カウンタ
Dim c As Integer '列カウンタ
Dim rwNum(5) As Integer 'A~E列の重複無しのデータ数
Dim rwWrt As Integer '書き出す行
Columns(strSCol & ":" & Chr(Asc(strSCol) + 4)).ClearContents '書き込む列をクリア
With WorksheetFunction
'A~E列から重複を除く
For c = 1 To 5
r = 1: rwWrt = 0
While Cells(r, c) <> ""
If .CountIf(Range(Cells(1, c), Cells(r, c)), "=" & Cells(r, c)) = 1 Then
rwWrt = rwWrt + 1
Cells(rwWrt, strCol + c - 1) = Cells(r, c)
End If
r = r + 1
Wend
rwNum(c) = r - 1
Next
'B~E列とA列を照合
Dim rgA As Range '書き換えたA列
Set rgA = Range(Cells(1, strCol), Cells(rwNum(1), strCol))
For c = strCol + 1 To strCol + 4
For r = 1 To rwNum(c - strCol)
If .CountIf(rgA, "=" & Cells(r, c)) = 1 Then
Cells(r, c).Font.ColorIndex = 3 'フォント=赤
Else
Cells(r, c).Font.ColorIndex = xlAutomatic 'フォント=自動に戻す
End If
Next
Next
End With
End Sub
ずいぶん細かくご回答頂き恐縮です。じつは#1ーkbonbさんの回答で解決しました。
マクロは数年前、覚えたばかりの頃にウィルスに感染して懲りてしまってからご無沙汰なんです。
ご回答をプリントして、また少し勉強し直してみます。
有り難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 家賃・住宅ローン 住宅ローンについて 5 2022/07/20 18:13
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
- MySQL 下記の問合せを行うクエリを、PhpMyAdminで作成して実行せよ。 「A,B組の女子の氏名のよみ。 1 2023/05/16 15:28
- その他(Microsoft Office) エクセルについて教えてください。 2 2022/10/20 14:55
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- 戸籍・住民票・身分証明書 離婚後の妻側の籍や扶養などについて。 2 2022/03/22 15:45
- 式場探し・ウェディングドレス・結婚準備 弟の結婚式の前日に入籍する場合 5 2023/05/06 18:44
- 歴史学 ユダヤ人の姓について 4 2022/07/01 16:49
- 政治 マイナ誤登録で誤送金が有りましたが、マイナが無ければ、誤送金はもっと増えてますよね? 2 2023/07/19 10:52
- 実用・教育 『在日通名大全』について 1 2022/10/01 09:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
【関数】先頭だけにある、半角...
-
エクセル 白黒印刷で白線を印刷...
-
Excelのチェックボックスの使い...
-
【関数】適切な文字数の数字を...
-
Excelのpivotについて質問です
-
Excel ピボットテーブルで日付...
-
LOOKUP関数を使えばいいのでし...
-
エクセル関数を教えてください
-
エクセルのセルに同じ大きさの...
-
UNIQUE関数が使えないバージョ...
-
excelの不要な行の削除ができな...
-
エクセルで「-0.0」と表示さ...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの関数について教えて...
-
Aというブックの1というシート...
-
【マクロ】シート名を取得する...
-
VBA Private Sub Worksheet_Cha...
-
VBA、Excelのworkbook.open に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報