1

У меня есть книга Excel, в столбце A каждая ячейка содержит все URL-адреса сайта (это означает сотни URL-адресов в одной ячейке).

Из всех URL-адресов в одной ячейке я хочу извлечь только URL-адрес, содержащий слово contact

Например:

Ячейка A1: http://examplesite.com/index.html; http://examplesite.com/login.php; http://examplesite.com/contact.html; http://examplesite.com/about.html

Ячейка A2: http://hello.publish.com/alumni; http://hello.publish.com/contact-us; http://hello.publish.com/sitemap; http://hellopublish.com/projects

И так далее

Я хотел бы иметь этот вывод в столбце B

Ячейка B1: http://examplesite.com/contact.html

Ячейка B2: http://hello.publish.com/contact-us

2 ответа2

1

Попробуйте следующее U сер D efined F помазание (UDF):

Public Function FindContact(inpt As String) As String
   ary = Split(inpt, "; ")
   For Each a In ary
      If InStr(1, a, "contact") > 0 Then
         FindContact = a
         Exit Function
      End If
   Next a
   FindContact = ""
End Function

Пользовательские функции (UDF) очень просты в установке и использовании:

  1. ALT-F11 открывает окно VBE
  2. ALT-I ALT-M открывает новый модуль
  3. вставьте материал и закройте окно VBE

Если вы сохраните книгу, UDF будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить UDF:

  1. откройте окно VBE, как указано выше
  2. очистить код
  3. закройте окно VBE

Чтобы использовать UDF из Excel:

= FindContact(А1)

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

а подробности о UDF смотрите в:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

Макросы должны быть включены, чтобы это работало!

-1

Поскольку все ваши данные перемещаются по вертикали, команда для вас - команда VLookup . Сначала в столбце B установите идентификатор для каждого URL-адреса, начиная с 1 и продолжая до конца. Сделайте это, перетаскивая черную точку в углу до конца, пока не будет достигнут конечный URL. Пример: VLookup("contact",$A1:$B13,2,TRUE) .

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .