<pre id=\"best-answer-content\" class=\"reply-text mb10\">主要是处理 重复符合项 时的公式不好写:
----------
Public Sub sss()
Dim s$: s = \"P/N\" \'定位数据的标题行
Dim sA: sA = Array(\"600\", \"601\", \"700\") \'对比的数据
Dim c1$: c1 = \"B\" \'对比数据的列
Dim c2$: c2 = \"C\" \'需要复制的列
Dim c3$: c3 = \"G\" \'需要写入公式的列
Dim rC vbOK Then Exit Sub
Else
n = n 1: m = m 1
ss = ssvbOK Then Exit Sub
End If
Exit For
End If
Next
Next
MsgBox \"已完成!\" defds123 Chr(10) defds123 Chr(10) defds123 _