试试这个是不是你想要的结果
Sub test()
Dim i,j as integer
For i=1 to 10000
For j=1 to 256
If cells(i,j) = "2012年度考核"
cells(i+1,j+1) = 2013
cells(i+1,j+2) = 8
cells(i+1,j+3) = 8
cells(i+2,j+1) = 2014
cells(i+2,j+2) = 4
cells(i+2,j+3) = 5
End If
Next
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024