ExcelのVBAを使って取得したwebデータの切り出しについて。

コメントいただいた、thump，merelyについても発音・意味を取得できるように修正しました。

以下のマクロをお試しください。
簡単なエラー処理も加えてあります。

Option Explicit

Sub getALC()
    Dim url As String, word As String, html As String
    Dim http As Object
    Dim arr() As String, sense As String, pronun As String
    Dim i As Long

    word = Sheet1.Range("A2:A2").Value
    url = "http://eow.alc.co.jp/search?q=" & word
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", url, False
    http.Send
    html = http.responseText
    arr = Split(html, vbCrLf)
    i = toSense(word, arr)
    If (i > 0) Then
        pronun = getPronun(arr(i))
        If (pronun = "") Then pronun = "★発音が見当たりません"
        sense = getSense(arr(i))
        If (sense = "") Then sense = "★意味が見当たりません"
    Else
        pronun = "★発音が見当たりません"
        sense = "★意味が見当たりません"
    End If
    Sheet1.Range("B2").Value = pronun
    Sheet1.Range("C2").Value = sense
End Sub

'意味が記述されている行番号を取り出す
Function toSense(word As String, arr() As String) As Long
    Dim i As Integer, n As Integer
    Dim re As Object
    Dim flag As Boolean
    Set re = CreateObject("VBScript.RegExp")
   
    n = UBound(arr)
    '探索
    With re
        .Pattern = "<font class='searchwordfont' color='#BF0000'>" & word & "</font>"
        .IgnoreCase = True
        .Global = True
        flag = False
        i = 0
        While (i <= n And flag = False)
            If .test(arr(i)) Then flag = True
            i = i + 1
        Wend
    End With
    If (flag = True) Then
        toSense = i
        With re
            .Pattern = "<span class=""wordclass"">"
            .IgnoreCase = True
            .Global = True
            flag = False
            If .test(arr(toSense - 1)) Then toSense = toSense - 1
        End With
    Else
        toSense = 0
    End If
    Set re = Nothing

End Function

'意味のHTML文をプレーンテキストに加工
Function getSense(sour As String) As String
    Dim re As Object
    Dim remat
    
    getSense = ""
    Set re = CreateObject("VBScript.RegExp")
    '意味部分の抽出
    With re
        .Pattern = "<span class=""wordclass"">(.+)(<span class=""label"">【レベル】).+"
        .IgnoreCase = True
        .Global = True
        Set remat = .Execute(sour)
        If remat.Count > 0 Then
            getSense = remat(0).submatches(0)
        End If
    End With
    'プレーンテキストに変換
    With re
        .Pattern = "</li></ol>|<ol>|</li>|</ol>"
        .IgnoreCase = True
        .Global = True
        getSense = .Replace(getSense, vbCrLf)
    End With
    With re
        .Pattern = "<[0-9a-z/\=""' #]+>"
        .IgnoreCase = True
        .Global = True
        getSense = .Replace(getSense, "")
    End With
    Set re = Nothing
End Function

'発音のHTML文をプレーンテキストに加工
Function getPronun(sour As String) As String
    Dim re As Object
    Dim remat
   
    getPronun = ""
    Set re = CreateObject("VBScript.RegExp")
    '発音部分の抽出
    With re
        .Pattern = "<span class=""pron"">([^、]+)、</span>"
        .IgnoreCase = True
        .Global = True
        Set remat = .Execute(sour)
        If remat.Count > 0 Then
            getPronun = remat(0).submatches(0)
        End If
    End With
    'プレーンテキストに変換
    With re
        .Pattern = "<[0-9a-z/\=""' #]+>"
        .IgnoreCase = True
        .Global = True
        getPronun = .Replace(getPronun, "")
    End With
    
    Set re = Nothing
End Function