![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
ピボットテーブルでも代用できそうです。
数字になちゃいますが。
下記ではOKWEBで位置がずれるでしょうが、実際やって
みてください
(データ例)
A列 B列 C列 D列
xyzu
a○ (yのみ)
a○ (zのみ)
a○○ (y、u)
b○ (yのみ)
b○ (zのみ)
c
c○○(y、u)
(操作)
データ
ピヴォットテーブル・・
次へ
次へ
次へ
レイアウト
「行」へ「X」をD&D(ドラッグアンドドロップ)
「データ」へ「y」をD&D,「z」をD&D、「u」をD&D
OK
完了
表が出る
表のXで右クリック
レポートの書式設定
下のほうの「テーブル10」をダブルクリック
(テーブル11,12も試してください)
(結果)
xデータの個数 : yデータの個数 : zデータの個数 : u
a211
b11
c11
総計422
No.3
- 回答日時:
A B C D
1 aさん ○
2 aさん ○
3 aさん ○
4 bさん ○
5 bさん ○
6 cさん ○
aさんだけでなく、bさん、cさんもいるんでしょうか。上のような表を想定します。
統合機能を使います。新しいシートのA1セルを選択して、
データ→統合の統合の設定ダイアログで、
1.集計の方法を『データの個数』
2.統合元範囲でデータのあるシートのA1:D6を選択。
細くなっている統合の設定-統合元範囲ダイアログの右のボタンを押して
統合の設定ダイアログに戻る。
3.追加をクリック
4.統合の基準の『左端列』をチェック
5.OK
A B C D
1 aさん 1 1 1
2 bさん 1 1
3 cさん 1
の表ができます。(実際の表の『1』は半角です)
編集→置換で『1』を『○』に置き換えます。
これでできていると思います。
No.2
- 回答日時:
配列数式とかは、慣れるまでは、理解が難しいかも知れない、かといってVBAも慣れるまでは同じかも知れませんが
一応上げて見ます。FOR NEXTロジックだけの幼稚なものですが。少数データでテスト済み。
Sub proj01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
'----最下行を探す
d = sh1.Range("a1").CurrentRegion.Rows.Count
k = 1
'---見だし部分第1行にシート1からシート2へセット
For i = 1 To 4
sh2.Cells(1, i) = sh1.Cells(1, i)
Next i
'------シート1、2行目から最下行まで繰り返し
For i = 2 To d
'----シート2のリストに既登録の名前がないか探す
For j = 1 To k
If sh1.Cells(i, "A") = sh2.Cells(j, "A") Then
'---シート1のこの行をシート2で見つかった行へ射影化
If sh1.Cells(i, "B") = "○" Then sh2.Cells(j, "B") = "○"
If sh1.Cells(i, "C") = "○" Then sh2.Cells(j, "C") = "○"
If sh1.Cells(i, "D") = "○" Then sh2.Cells(j, "D") = "○"
GoTo p01
End If
Next j
'---既登録のリストに無ければ最下行次行へ追加登録
k = k + 1
'---シート1のこの行をシート2の追加行へ射影化
sh2.Cells(k, "A") = sh1.Cells(i, "A")
If sh1.Cells(i, "B") = "○" Then sh2.Cells(k, "B") = "○"
If sh1.Cells(i, "C") = "○" Then sh2.Cells(k, "C") = "○"
If sh1.Cells(i, "D") = "○" Then sh2.Cells(k, "D") = "○"
p01:
Next i
End Sub
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_10.png?a65a0e2)
No.1
- 回答日時:
配列数式を使って解いてみます。
元のデータがSheet1にあるとします。
別のシートのB列の任意のセルに次の式を貼り付けてください。
=IF(SUM(IF(Sheet1!B$1:B$3="○",1)*IF("aさん"=Sheet1!$A$1:$A$3,1))=1,"○","")
貼り付けたら、[Enter]を押す代わりに[Shifte]と[Ctrl]を押しながら[Enter]を押してください。数式バーに次のように表示されれば成功です。
{=IF(SUM(IF(Sheet1!B$1:B$3="○",1)*IF("aさん"=Sheet1!$A$1:$A$3,1))=1,"○","")}
あとは、数式の入ったセルをC列とD列にコピーしてください。
お役に立ちましたでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Visual Basic(VBA) VBAで特定の場所にあるCSVファイル(複数)から特定場所を抜き出してExcelに転記したいです。 11 2023/05/23 16:29
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) 再質問です。エクセルでシートが1から31まであり、日付けが入力されているセルがあります。シート1から 4 2022/08/02 23:08
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) 【VBA】先月分の取得ができない理由が分かりません。 2 2022/04/24 11:16
- Excel(エクセル) Excel 文字列を結合するときに重複をなくしたい 関数・VBA 2 2022/12/12 10:40
- Excel(エクセル) コンボボックス及びリストボックスを5段階連動させる方法をご存知の方ご教授頂きたいです。 Excelで 3 2022/04/03 21:43
- Excel(エクセル) Excelのマクロについて 1 2023/04/17 17:22
- Excel(エクセル) Excelの中央値の複数条件について 3 2022/05/24 21:22
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 偶数月の15日(土日祝...
-
Excelの数式について教えてくだ...
-
Excelのメニューについて
-
VLOOKUP FALSEのこと
-
エクセル内に読み込んが画像の...
-
【マクロ】1回目の実行後、2...
-
勤務外時間を出す表が作りたい
-
Excelで作成した出欠表から日付...
-
エクセルの数式について教えて...
-
【マクロ】参照渡しとモジュー...
-
Excelの条件付書式について教え...
-
【マクロ】シート追加時に同じ...
-
マクロを実行すると、セル範囲...
-
【マクロ】参照渡しについて。...
-
Excel 日付の表示が直せません...
-
エクセルで、数字の下4桁の0を...
-
【マクロ】Call関数で呼び出し...
-
別のシートの指定列の最終行を...
-
Excelのデーターバーについて
-
Excelでの文字入力について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】重複する同じ行を、...
-
Excelの条件付き書式のコピーと...
-
vba 印刷設定でのカラー印刷と...
-
VBA の単語の意味を教えて下さい。
-
Excel 日付の表示が直せません...
-
エクセル 同じ行の隣り合う数字...
-
エクセル条件付き書式について。
-
エクセルの数式につきまして
-
ファイル名の変更
-
エクセル 数字のみ抽出につて
-
Excelの開始ブックを固定したい...
-
エクセルの数式について教えて...
-
エクセルのセルをクリックする...
-
=INDIRECT(RIGHT(CELL("filenam...
-
エクスプローラーで見ることは...
-
Excelの関数で質問です
-
至急お願いいたします 屋上の備...
-
エクセルでセルに入力する前は...
-
関数を教えて下さい
-
Excel 関数での質問です
おすすめ情報