
No.5ベストアンサー
- 回答日時:
〇の無い列をSheet2では表示させないようにしました。
図は上がSheet1、下がSheet2です。
Sheet1に以下の式をいれる
B1 =COUNTIF(B$3:B$100,"〇")
右方向へフィル
$100の部分は人数に応じて適宜変更
Sheet2に以下の式をいれる
B1 =IFERROR(INDEX(Sheet1!$A2:$Z2,,SMALL(IF(Sheet1!$B$1:$Z$1>0,COLUMN(Sheet1!$B$1:$Z$1)),COLUMN(B$1)-1)),"")
注:配列数式なのでCtrl+Shift+Enter同時押しで入力すること
右方向および下方向へフィルする
式中の$Z2や$Z$1の"Z"は質問数に応じて適宜変更
ただしこのままでは〇の無いセルにゼロが表示されてしまうので
セルの書式設定→表示形式→ユーザー設定で [=0]"" を設定する

どうも、ありがとうございました!
やりたかった事が上手く出来ました。
非常に解りやすく簡潔に教えて頂き助かりました。
改めて、ありがとうございました!
No.7
- 回答日時:
ご質問の仕様とは、多少異なりますが、こんな方法もあります。
このマクロは、Sheet1の2行目以降(A~F列)に実数が入力(〇にこだわらず)されている列だけをSheet2にコピーします。
Sub sample()
Dim myRng As Range
Set myRng = Worksheets("Sheet1").Range("A2:F" & Rows.Count)
Set myRng = myRng.SpecialCells(xlCellTypeConstants, 23)
Set myRng = Intersect(myRng.EntireColumn, Worksheets("Sheet1").Rows(1))
myRng.EntireColumn.Copy Destination:=Worksheets("Sheet2").Range("A1")
End Sub
ちなみに、この程度の作業ならマニュアル操作でも可能ですよ。頻繁に行うのであればVBAも有効ですが、たまにしか使わない、または、その度に条件が変わるような場合は、マニュアル操作をお勧めします。
No.6
- 回答日時:
こんばんは!
別シートに「○」がついている項目名を表示させるのはどうでしょうか?
手っ取り早くVBAでの一例です。
↓の画像のような配置で元データはSheet1にあり、Sheet2に表示するとします。
標準モジュールにしてください。
Sub Sample1()
Dim i As Long, j As Long
Dim cnt As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.ClearContents
wS.Range("A1") = "名前"
With Worksheets("Sheet1")
cnt = 1
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountIf(.Rows(i), "○") > 0 Then
cnt = cnt + 1
wS.Cells(cnt, "A") = .Cells(i, "A")
For j = 2 To .Cells(1, Columns.Count).End(xlToLeft).Column
If .Cells(i, j) = "○" Then
wS.Cells(cnt, Columns.Count).End(xlToLeft).Offset(, 1) = .Cells(1, j)
End If
Next j
End If
Next i
wS.Columns.AutoFit
End With
End Sub
こんな感じではどうでしょうか?m(_ _)m


No.4
- 回答日時:
シート1のレイアウトは添付図であってますか。
また、添付図のような場合、どのような結果を望みますか。
赤線で囲んだセルが該当セルと考えて良いですか。
画像で望む結果(シート2)を提示していただけると、よりわかりやすかと。
画面の画像の切り取りは、アクセサリのsnipping toolを使うと便利です。
(この画像もsnipping toolを使ってます)

No.2
- 回答日時:
こんにちは
いまひとつなさりたいことがよくわかりませんが・・・
(各セルの区切りが「|」なのでしょうが「.」の意味がわからないし)
『いろいろな条件に応じてデータを抽出したい』
ということかと想像しますので、そのまま「オートフィルタ」の機能を利用すればよさそうに思います。
結果だけを別の範囲に表示したければ、フィルタオプションを利用すれば可能です。
https://pasonyu.com/how-to-use-auto-filter-for-e …

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) VBAで、シート間の転記するコードを教えてください。 4 2023/03/26 10:43
- Excel(エクセル) Excelマクロの差分抽出のコードを教えていただきたいです。 2 2023/03/14 11:40
- Excel(エクセル) エクセルのマクロで複数条件に当てはまるものを全て抽出したいです 7 2022/05/21 08:51
- Visual Basic(VBA) AdvancedFilterについての質問 2 2022/07/02 22:58
- Excel(エクセル) エクセルの関数を教えてください。② 9 2023/05/25 15:28
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Excel(エクセル) Excelの関数でこんな処理ができますか 1 2023/02/08 13:46
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
このQ&Aを見た人はこんなQ&Aも見ています
-
それもChatGPT!?と驚いた使用方法を教えてください
仕事やプライベートでも利用が浸透してきたChatGPTですが、こんなときに使うの!!?とびっくりしたり、これは画期的な有効活用だ!とうなった事例があれば教えてください!
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
あなたなりのストレス発散方法を教えてください!
自分なりのストレス発散方法はありますか?
-
泣きながら食べたご飯の思い出
泣きながら食べたご飯の思い出を教えてください。
-
○印がある場合、そこから情報を抽出して上から順に表示
Excel(エクセル)
-
会員名簿から出席者のみ一覧表の作成
その他(Microsoft Office)
-
エクセル2016でfilter関数がないので、、抜き出す関数をおしえてください。
Excel(エクセル)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
2つのシート間での重複データ...
-
エクセルのシートをコピーして...
-
エクセルで1行だけ数式が反映さ...
-
指定した条件でTRANSPOSE関数を...
-
EOMONTH関数の代わり
-
エクセルを利用して、日計と累...
-
エクセルでif関数を使って、別...
-
Excelで複数のシートに列のグル...
-
EXCELで受験票を作成したい(名...
-
エクセルで○のついた項目を抽出
-
日付順で縦に並んでいるデータ...
-
エクセル 並べ替え(あいうえお...
-
エクセル(横串計算)
-
エクセル ○印がついている行を...
-
Excel VBA 12ヶ月分のシート作成
-
毎日の日計を別シートに自動で...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
A1セルに入力したら、入力時間...
-
エクセルの複数のセルを一括で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
エクセルのシートをコピーして...
-
2つのシート間での重複データ...
-
指定した条件でTRANSPOSE関数を...
-
エクセルを利用して、日計と累...
-
エクセルで1行だけ数式が反映さ...
-
エクセルで○のついた項目を抽出
-
毎日の日計を別シートに自動で...
-
エクセルでフラグがたっている...
-
EXCELで受験票を作成したい(名...
-
条件にマッチする行を抽出するV...
-
エクセルで2つのシートに同じ名...
-
複数シートのセルの 記号の数...
-
チュロス袋の代用
-
エクセル ○印がついている行を...
-
秘書検定準1級のアドバイスシー...
-
Excelで複数のシートに列のグル...
-
excel シート1の奇数(偶数)...
-
フライパンで魚を焼く時のフラ...
-
エクセルでif関数を使って、別...
おすすめ情報
説明が解りづらくて申し訳ありません。
実際のデータは人物は30人ほど、どんどん増える予定で、質問項目は50項目あります。
その中には一人も○をつけてない項目もあります。
なので、DEBU-NEKARUさんの言うようなデータの場合
名前|りんご好き|みかん好き|ぶどう好き
C男 |. | ○. |
と出して、本当に1人も○をつけてないデータだけ省略しようと思っています。
実際はC男はみかん好きだけのデータで抽出したいですが、そうすると他の人の時に項目をどうするかとなりそうなのでよろしくお願いします。
質問本文に補足しました。
もしよろしければ、回答頂けないでしょうか。
よろしくお願いします。
.は、ただの誤入力です。申し訳ありません。
説明が解りづらくて申し訳ありません。
オートフィルターはすみませんが事情があり使わず関数かVBAでと考えていますが、VBAも関数も作ってはみたんですが、上手く抽出できなくて、他の方ならどのような感じで組むのか知りたくて質問しました。
どうぞよろしくお願いします。