耐心等会儿:
Sub Macro1()
Application.ScreenUpdating = False
Dim i As Long
With ActiveSheet.QueryTables.Add(Connection:="URL;http://rs.ffsky.cn/companion.htm#warrior", Destination:=Range("A1"))
.Name = "companion.htm#warrior"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "3,4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
[b:b].ColumnWidth = 5.75
For i = [a65536].End(xlUp).Row To 2 Step -1
If Cells(i, 1) Like "#*" Then
Rows(i).RowHeight = 38.25
Cells(i, 2).Select
ActiveSheet.Pictures.Insert "http://rs.ffsky.cn/img/character/small_pic/" & Right("000" & Cells(i, 1), 3) & ".jpg"
Else
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub