'价格信息'收纳黑板 批发30零售43'望远镜批发1200，零售1400'扫地机器人批发120零售1500'刮胡刀批发98零售150Private Sub CommandButton2_Click()m = Sheet3.Cells(50, 1).End(xlUp).RowSet regx = CreateObject("vbscript.regexp")With regx .Global = True .Pattern = "批发(\d+)" For Each Rng In Sheet3.Range("A3:A" & m) '下面一句是将匹配成功的数据替换为空，其他没有匹配成功的则忽略 '那么要求将匹配成功的数据提取出来放在第2列，该怎么写呢？ Sheet3.Cells(Rng.Row, 2) = .Replace(Rng, "") NextEnd WithEnd Sub
圈着的那一句改成以下看看temp= .Replace(Rng, "")if len(temp)<len(Rng) then n=n+1 Sheet3.Cells(Rng.Row+n, 2) =tempend if
