2016. 6. 24. 22:05
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.
comp2(a,b)
Function comp2(a1 As Range, a2 As Range)
Dim chkStr1, chkStr2, comStr As StringDim t, y As Integer
If Len(a1.Value) > Len(a2.Value) Then
chkStr1 = a1.Value
chkStr2 = a2.Value
Else
chkStr2 = a1.Value
chkStr1 = a2.Value
End If
For t = 1 To Len(chkStr2)
For y = 1 To Len(chkStr2) - t + 1
If InStr(chkStr1, Mid(chkStr2, y, t)) > 0 Then
comStr = Mid(chkStr2, y, t)
Exit For
End If
Next
Next
comp2 = comStr
End Function
'정리중 > 쓰레기통' 카테고리의 다른 글
| 게임에 들어가는 데이터 산정식 (1) | 2016.06.24 |
|---|---|
| 중복엑셀 색깔표기. (0) | 2016.06.24 |
| TEST (0) | 2016.06.24 |
| 파일명긁어오는 응용한 파일경로 긁어오기. (0) | 2014.03.13 |
| 우리나라 명의 목록 (0) | 2013.07.17 |