セル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 2019 のピボットテーブル...
-
Excelのセルを飛ばして入力する
-
【マクロ】エクセルにかいてあ...
-
Excelのオートフィル
-
Excel初心者です。 詳しい方、...
-
スプレッドシート クエリ関数 1...
-
MOS365 Excel Expert / Excel R...
-
西暦や和暦の表示をyyyymmdd表...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセルの数式で教えてください。
-
スプレッドシートの関数VLOOKUP...
-
エクセルでセルに「氏名を入力...
-
エクセルで指定した日付、店舗...
-
【Excel】セル内の時間帯が特定...
-
Excelのグラフ軸について
-
Excel 2019 は、SPILL機能があ...
-
関数を教えて下さい。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報