Dim c As Range
Dim firstAddress As String
Dim temp(10)<--用來暫存地址
With Worksheets(1).Range("A1:A500") <---Worksheet(1)要改你成你sheet個名
Set c = .Find(2, lookin:=xlValues) 把紅色成你要找的人名,要留意Cells內的人名有沒有空格
If Not c Is Nothing Then
firstAddress = c.Address Delete這行
Do
c.Value = 5 -->改成temp(i)=c.Address
Set c = .FindNext(c)
i=i+1
Loop While Not c Is Nothing
End If
End With
return temp<--把Cells的地址傳出去
End Sub
之後要寫個Sub用來轉時間資料,上網找找會有,不轉會不能比較所以一定要轉
轉完要再寫個Sub用來檢查之前轉完的時間有沒有重疊<--這個真的很難去一些討論區找人會不會,我不太會
之後要再寫一個Sub用來做Main program把上面那些Sub用這個來call out用