anonymous No title
No License VisualBasic
2020年05月12日
Copy Clone
Sub test()
    Dim 一覧() As String

    '処理の都合で最初の一人だけ名前をセットしておく
    ReDim Preserve 一覧(10, 0)
    一覧(0, 0) = Range("B2")

    For r = 2 To Cells(Rows.Count, 2).End(xlUp).Row  '2行目から最後まで調べる
        名前 = Cells(r, "B")  'B列から名前を取り出す

        '名前が一覧の配列の中にあるか調べる
        n = -1
        For i = 0 To UBound(一覧, 2)
            If 一覧(0, i) = 名前 Then n = i
        Next i

        'なかったらその人の行を追加
        If n = -1 Then
            n = UBound(一覧, 2) + 1
            ReDim Preserve 一覧(10, n)
            一覧(0, n) = 名前
        End If

        'D列とF列の数字の範囲に札を持っているフラグをセット
        For i = Cells(r, "D") To Cells(r, "F")
            一覧(i, n) = 1
        Next i
    Next r

    '結果を整理して出力
    For r = 0 To UBound(一覧, 2)
        '一人ずつフラグを見ながら、変数sに数字をまとめる
        s = ""
        For i = 1 To 10
            If 一覧(i, r) <> "" Then s = s & "、" & i  'どんどん追加
        Next i
        s = Mid(s, 2, 30)  '先頭の読点を消す
        Debug.Print 一覧(0, r), s
    Next r

End Sub

Sub test()
    Dim 一覧() As String

    '処理の都合で最初の一人だけ名前をセットしておく
    ReDim Preserve 一覧(10, 0)
    一覧(0, 0) = Range("B2")

    For r = 2 To Cells(Rows.Count, 2).End(xlUp).Row  '2行目から最後まで調べる
        名前 = Cells(r, "B")  'B列から名前を取り出す

        '名前が一覧の配列の中にあるか調べる
        n = -1
        For i = 0 To UBound(一覧, 2)
            If 一覧(0, i) = 名前 Then n = i
        Next i

        'なかったらその人の行を追加
        If n = -1 Then
            n = UBound(一覧, 2) + 1
            ReDim Preserve 一覧(10, n)
            一覧(0, n) = 名前
        End If

        'D列とF列の数字の範囲に札を持っているフラグをセット
        For i = Cells(r, "D") To Cells(r, "F")
            一覧(i, n) = 1
        Next i
    Next r

    '結果を整理して出力
    For r = 0 To UBound(一覧, 2)
        '一人ずつフラグを見ながら、変数sに数字をまとめる
        s = ""
        For i = 1 To 10
            If 一覧(i, r) <> "" Then s = s & "、" & i  'どんどん追加
        Next i
        s = Mid(s, 2, 30)  '先頭の読点を消す
        Debug.Print 一覧(0, r), s
    Next r

End Sub

anonymous
Anonymous
2021年04月25日
Medication information for patients. Long-Term Effects. <a href="https://pregabalininfo.top">order cheap pregabalin uk</a> in the USA Best trends of medication. Get here.
anonymous
Anonymous
2021年04月28日
Meds information for patients. Brand names. <a href="https://pregabalininfo.top">can i buy generic lyrica online</a> in US Best about pills. Get here.
anonymous
Anonymous
2021年04月30日
how to use cialis <a href="https://mycialistabs.com/">tadalafil 20 mg</a> cialis and viagra
anonymous
Anonymous
2021年04月30日
cialis dose <a href="https://mycialistabs.com/">generic cialis cost</a> does cialis make you bigger
anonymous
Anonymous
2021年05月01日
cialis alternative over the counter <a href="https://toptadalafiltabs.com/">buy tadalafil</a> free trial of cialis
anonymous
Anonymous
2021年05月03日
how to write an application essay <a href="https://topessaywriterfas.com/">write an essay for me</a> how to write an essay structure
anonymous
Anonymous
2021年05月03日
cialis amazon <a href="https://toptadalafiltabs.com/">cialis directions</a> cialis generics
anonymous
Anonymous
2021年05月05日
essay service scam <a href="http://writemyessayslfd.com/">write essays online</a> best quality essay service
anonymous
Anonymous
2021年05月05日
how to write a self reflection essay <a href="https://topessaywriterfas.com/">college essay conclusion</a> how to write a fairy tale essay
anonymous
Anonymous
2021年05月06日
canada viagra <a href="https://mrviagrashop.com">viagra falls</a> sildenafil citrate 50mg
anonymous
Anonymous
2021年05月07日
best essay writing service reviews 2018 <a href="http://writemyessayslfd.com/">writing an essay online</a> writing a good argumentative essay
anonymous
Anonymous
2021年05月07日
discount viagra <a href="https://mysildenafilkr.com/">viagra canada</a> sildenafil without prescription
anonymous
Anonymous
2021年05月07日
sildenafil citrate tablets <a href="https://mrviagrashop.com">cheap sildenafil</a> viagra for sale online
anonymous
Anonymous
2021年05月08日
price of viagra <a href="https://mysildenafilkr.com/">buying viagra online</a> viagra pill
anonymous
Anonymous
2021年05月11日
how long before sex should you take cialis <a href="http://tadalafilled.com/">cialis viagra</a> cialis 20 milligram
anonymous
Anonymous
2021年05月11日
action verbs resume <a href="http://coverletterforresumetop.com/">writing a professional resume</a> resume google docs
anonymous
Anonymous
2021年05月12日
paralegal resume <a href="http://coverletterforresumetop.com/">resume editor</a> build my resume
anonymous
Anonymous
2021年05月12日
cialis uses <a href="http://tadalafilled.com/">cialis vs viagra</a> cialis not working
anonymous
Anonymous
2021年05月12日
resume title <a href="https://writingacoverletteronline.com/">build my resume</a> cover letter address
anonymous
Anonymous
2021年05月13日
job skills for resume <a href="https://writingacoverletteronline.com/">linkedin writer</a> best font for a resume
anonymous
Anonymous
2021年05月13日
viagra connect <a href="https://edviagramaster.net/">viagra</a> sildenafil citrate over the counter
anonymous
Anonymous
2021年05月14日
buy viagra online cheap <a href="https://edviagramaster.net/">sildenafil 20mg</a> viagra alternatives
anonymous
Anonymous
2021年05月15日
online pharmacy ezzz viagra <a href="https://sildenafilviagratop.com">sildenafil generic</a> taking viagra
anonymous
Anonymous
2021年05月15日
does cialis lower blood pressure <a href="https://cialisortadalafil.com/">buying tadalafil online</a> how long does 5mg cialis last
anonymous
Anonymous
2021年05月16日
is cialis covered by insurance <a href="https://cialisortadalafil.com/">tadalafil generic cost</a> cheapest cialis
anonymous
Anonymous
2021年05月16日
generic for viagra <a href="https://sildenafilviagratop.com">buy viagra online</a> walgreens viagra
anonymous
Anonymous
2022年03月28日
isa essay about service teaching <a href="https://englishessayblog.com/">buy essay service</a> involvement in community service essay
anonymous
Anonymous
2021年05月16日
cost of cialis <a href="https://topcialistabs.com/">canadian pharmacy ezzz cialis</a> cialis 40 mg
anonymous
Anonymous
2022年03月28日
essay about civil service <a href="https://englishessayblog.com/">do my essay cheap</a> what to write for a community service essay
anonymous
Anonymous
2021年05月17日
order cialis <a href="https://topcialistabs.com/">cialis versus viagra</a> cialis online without pres
anonymous
Anonymous
2021年05月17日
Drug prescribing information. Effects of Drug Abuse. <a href="https://lyrica24x7.top">lyrica online</a> in Canada Best news about medicine. Read information here.
anonymous
Anonymous
2021年05月21日
<a href="https://5bz.ru/">информационная база предприятий россии</a>
anonymous
Anonymous
2021年06月01日
Medicines prescribing information. What side effects can this medication cause? <a href="https://baclofen2021.top">where buy baclofen without insurance</a> in the USA Some information about medication. Read here.
anonymous
Anonymous
2021年08月14日
what does hydroxychloroquine do https://plaquenilx.com/# lupus usmle
anonymous
Anonymous
2022年05月06日
hydroxychloroquine treats https://keys-chloroquinehydro.com/
anonymous
Anonymous
2022年05月22日
https://newfasttadalafil.com/ - Cialis Come Viagra Senza Ricetta <a href=https://newfasttadalafil.com/>Cialis</a> Wrjzpg soft cialis https://newfasttadalafil.com/ - where to buy cialis online forum