EXCEL宏命令（先判断再替换）
发布网友
共1个回答
热心网友
程序代码如下：
Sub xxx()
Dim i, j, d, p
For i = 2 To 1000 '是多少万就写多少万
d = ActiveSheet.Cells(i, 4)
p = ActiveSheet.Cells(i, 16)
If Len(d) > 4 And Len(p) < 17 Then
For j = i To 1000 '是多少万就写多少万
If ActiveSheet.Cells(j, 16) = p Then ActiveSheet.Cells(j, 16) = d
Next j
End If
Next i
End Sub
