【令和３年自民党総裁選挙】のアンケート

　皆さん、アンケートの回答・コメントありがとうございました。
　はてな民的には、河野さんが人気のようです。(^_^;
P.S.
　おめでとうございます。岸田さんが当選されました。正解者は３名でした。

岸田ビジョン 分断から協調へ

LMYK『0 (zero)』

　何かいい感じなので、はってみました。何かおしゃれな感じがいいですね。(^_^;
　ちなみに、アニメ「ヴァニタスの手記」のEDですが、日本語バージョンと英語バージョンがあるようです。
●LMYK『0 (zero)』Japanese ver.

●LMYK『0 (zero)』English ver.

0 (zero) (期間生産限定盤) (特典なし)

Sasanomaly（ササノマリイ）『空と虚』

　何かいい感じなので、はってみました。(^_^;
　ちなみに、アニメ「ヴァニタスの手記」のOPです。最近、アニメの曲はいいのが多いですね。
●Sasanomaly（ササノマリイ）『空と虚』

空と虚 (通常盤) (特典なし)

聖者の行進 ／ キタニタツヤ

　何かいい感じなので、はってみました。(^_^;
　ちなみに、アニメ『平穏世代の韋駄天達』のOPです。(^_^;
●聖者の行進 / キタニタツヤ - When The Weak Go Marching In / Tatsuya Kitani

聖者の行進 (通常盤) (特典なし)

【2次式の因数分解のたすき掛け】のアンケート

　皆さん、アンケートの回答・コメントありがとうございました。
　やはり、「解き方は一通りではない」ということを教えることは、すごく大切なことですね。

質問のExcelの問題をVBAでやってみた。

　質問のExcelの問題をVBAでやってみました。(^_^;
　「.NET Framework」のArrayListクラスを使って、Unique()関数もどきを作ってみました。(^_^;
　3番目の参考URLをベースにして、5番目の参考URLから、sort付きのArrayList版に変形してみました。

Function mUnique(ary As Variant) As Variant
    Dim aryList As Object   '// ArrayList
    '// .NET FrameworkのArrayListクラスを利用する
    Set aryList = CreateObject("System.Collections.ArrayList")

    '// 配列をArrayListに重複なくコピー
    Dim a As Variant
    For Each a In ary
        If Not aryList.contains(a) Then
            aryList.Add (a)
        End If
    Next
    '// 並べ替え
    Call aryList.Sort

    '// 配列に再格納
    mUnique = aryList.ToArray
    Set aryList = Nothing
End Function

Sub macro1()
    Dim rng1 As Range: Set rng1 = Range("A3:A19")
    Dim rng2 As Range: Set rng2 = Range("B3:B19")
    Dim rng3 As Range: Set rng3 = Range("C3:C19")

    Dim uqAry1: uqAry1 = mUnique(rng1.Value)
    Dim cnt1 As Integer: cnt1 = UBound(uqAry1) - LBound(uqAry1) + 1
    Dim uqAry2: uqAry2 = mUnique(rng2.Value)
    Dim cnt2 As Integer: cnt2 = UBound(uqAry2) - LBound(uqAry2) + 1
    
    Dim i, j As Integer
    
    j = 0
    For i = 6 To 6 + cnt1 - 1
        Cells(2, i).Value = uqAry1(j)
        j = j + 1
    Next i

    j = 0
    For i = 3 To 3 + cnt2 - 1
        Cells(i, "E").Value = uqAry2(j)
        j = j + 1
    Next i
    
    For i = 6 To 6 + cnt1 - 1
        For j = 3 To 3 + cnt2 - 1
            Cells(j, i).Value = WorksheetFunction.SumIfs(rng3, rng1, Cells(2, i).Value, rng2, Cells(j, "E").Value)
        Next j
    Next i
    For j = 3 To 3 + cnt2 - 1
        Cells(j, "L").Value = WorksheetFunction.SumIfs(rng3, rng2, Cells(j, "E").Value)
    Next j        
End Sub

※参考URL
●Excelの表データから各月毎の集計表を作成したいです - 人力検索はてな
●UNIQUE関数で重複しない値を取り出す:Excel関数
●VBAで重複のない配列(ユニーク,一意の配列)を作成する関数 - Qiita
●Office TANAKA - Excel VBA Tips[重複しないリストを作る(1)]
●VBAの配列を.NETのArrayListのSortで並べ替え ｜ Excel作業をVBAで効率化

Excel関数の質問をVBAでやってみた。

　ポイント、沢山ありがとうございました。なんか、いただき過ぎた感があるので、参考までに質問をVBAでもやってみました。(^_^;

Sub macro1()
    Dim i, j As Integer
    
    j = 3
    For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, "C").Value = 1 And Cells(i, "D").Value = 1 And Cells(i, "E").Value = 0 Then
            Range(Cells(j, "I"), Cells(j, "N")).Value = Range(Cells(i, "A"), Cells(i, "F")).Value
            j = j + 1
        End If
    Next i
End Sub

※参考URL
●Excelで3つの条件に一致する行のみを抽出したいです - 人力検索はてな
●RangeとCellsの使い方｜VBA入門
●最終行の取得（End,Rows.Count）｜VBA入門