Re: [算表] 搜尋重複的值，然後顯示在同一格

[ramblelife (青山遮不住 畢竟東流去)]

試試看囉
不過要在D1:D10打進你的班表種類

Sub 班表()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myStr As String
    Dim i As Long
    Dim j As Long
    Set myRng1 = Range("A1:B80")        '這裡是一開始的資料
    Set myRng2 = Range("D1:CZ10")       '這裡是你所想要成果的資料
    For i = 1 To 10                     '後面的10可以換成是你的班數
        myStr = ""
        For j = 1 To 80                 '後面的80可以換成是你有的人數
            If myRng1.Cells(j, 2).Value = myRng2.Cells(i, 1).Value Then
                myStr = myStr & "、" & myRng1.Cells(j, 1).Value
            End If
        Next j
        myRng2.Cells(i, 2).Value = myStr
    Next i
End Sub



--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.42.134.137
※ 編輯: ramblelife      來自: 114.42.134.137       (05/28 11:09)