記號化在Excel中只提取

-3

例如串：76-221-161-164.lightspeed.cicril.sbcglobal.net記號化在Excel中只提取

我想刪除主機名：76-221-161-164。我想刪除TLD：.NET 我想保留：lightspeed.cicril.sbcglobal

也在不同的練習，我想

我想保留：sbcglobal.net

其他例子是：

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

來源

2014-09-01 user2085339

如果你想要的東西只適用於你提供的例子，然後複製，粘貼相關的中間部分似乎adeq審視你們。如果你想要更通用的解決方案，我建議提供更多的例子。 – pnuts 2014-09-01 13:48:04

我有100萬行不同點數的列表 – user2085339 2014-09-01 13:49:09

更多示例：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 2014-09-01 13:49:51

假設你要刪除的第一個和最後一個文本字符串，試試這個簡單的宏：

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

來源

2014-09-01 13:53:43

記號化在Excel中只提取

回答

相關問題