2014-09-01 5 views
-3

예를 들어, 하위 문자열을 추출합니다. 는 내가 TLD를 제거하려면 : .NET 내가 유지하려면 : sbcglobal.net토큰 화는

기타 :

는 다른 운동에 내가

원하는 lightspeed.cicril.sbcglobal 내가 유지하려면 예는 다음과 같습니다

host60-7-dynamic.48-82-r.retail.telecomitalia.it
117.120.132.27.ap.yournet.ne.jp
IP 전화-193-157-180-126 .uio.no
host251-107-dynamic.53-82-r.retail.telecomitalia.it
238.sub-97-232-125.myvzw.com
node-5wo.pool-118-174.dynamic.totbb. 순
218-172-44-88.dynamic.hinet.net
host-95-196-129-181.mobileonline.telia.com

+1

당신이 제공 한 예제에 대해서만 작동하도록하려면, 해당 중간 부분을 복사하여 붙여 넣으십시오. uate. 보다 일반적인 솔루션을 원한다면 몇 가지 예제를 제공하는 것이 좋습니다. – pnuts

+0

나는 도트 수가 다른 1 백만 행의 목록을 가지고있다. – user2085339

+0

more examples : host60-7-dynamic.48-82-r.retail.telecomitalia.it 117.120.132.27.ap.yournet.ne.jp ip-phone -193-157-180-126.uio.no host251-107-dynamic.53-82-r.retail.telecomitalia.it 238.sub-97-232-125.myvzw.com node-5wo.pool -118-174.dynamic.totbb.net 218-172-44-88.dynamic.hinet.net host-95-196-129-181.mobileonline.telia.com – user2085339

답변

2

첫 번째와 마지막 텍스트 문자열을 제거하려는 가정하면, 이 간단한 매크로를 시도해보십시오 :

Sub FixPhrases() 
    Dim r As Range, sOut As String 
     For Each r In Selection 
      ary = Split(r.Value, ".") 
      sOut = ary(1) 
      For i = 2 To UBound(ary) - 1 
       sOut = sOut & "." & ary(i) 
      Next i 
      r.Value = sOut 
     Next r 
End Sub 
관련 문제