如何在网页下载后提取方框的值

志65

大家好，我在网页复制这些内容到excel中，有些方框的值要怎么才能提取并放在指定的列中，如图及附件。在图中，A5，A9，A13等有方框，我想要提取方框里面的值到M列中，怎么操作？多谢

爱疯

想要的值2.rar (26.4 KB, 下载次数: 1)

2017-2-10 15:54 上传

点击文件名下载附件
不知简单的表达，感觉我的好麻烦




Sub test()
    Dim x, c
    c = "m"    '指定输出列
    Cells(2, c).Resize(Rows.Count - 1).ClearContents
    For Each x In Sheet1.Shapes
        If InStr(x.Name, "HTMLText") Then Cells(x.TopLeftCell.Row, c) = x.OLEFormat.Object.Object
    Next
End Sub