Re: [算表] 搜尋重複的值，然後顯示在同一格
試試看囉
不過要在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)
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
1
12
Office 近期熱門文章
PTT數位生活區 即時熱門文章
