Sub kao() [a2:c2] = Split("统计时间 在线人数 波动值") Dim regx, i%, mh, tt, p, m, PostData Set regx = CreateObject("vbscript.regexp") regx.Pattern = "(.*?)" '注意中文的括号（全角） regx.Global = True For p = 1 To 7 PostData = "PageIndex=" & p & "&__RequestVerificationToken=CfDJ8Oxgi0PF5dtKgteCEWR3ZKKzhWUHnMIkczUHpAA12yTUk-KolOww9ZYTIz6y8-tIfgH2yCgFH-DCVvplmsOa2aRf8VuJtozMmUX_clPPMks-XT6jl3vSufB9_l7nCiRKDdhrvCjTdqPEx7XgPW2-DTk" With CreateObject("msxml2.xmlhttp") .Open "POST", "http://www.77tj.org/tencent/", False .setRequestHeader "Content-Type", "application/x-www-form-urlencoded" .send (PostData) tt = .responsetext End With tt = Split(tt, "")(1) Set mh = regx.Execute(tt) For i = 0 To mh.Count - 1 Step 3 m = m + 1 For j = 1 To 3 Cells(m + 2, j) = Replace(mh(i + j - 1).submatches(0), "+", "+") Next Next Next Columns("A:C").Columns.AutoFit Calculate End Sub