<em>excel</em> 宏替换

''ALT+F11,打开的窗口,双击要实现功能的工作表,将以下代zd码粘入打开的窗口中.
''注意设置单元格式为文本,因为输入的是 9:00 ,如果不将单内元格式设置成文本格式,输入的内容将以时间格式储存无法替换.
'已测试通过'
Private Sub Worksheet_Change(ByVal Target As Range)

    i = Target.Row '取出行号
    j = Target.Column '取出列容号

    If Cells(i, j) = "9:00" Then
        Cells(i, j) = "A"
    End If

    If Cells(i, j) = "10:00" Then
        Cells(i, j) = "B"
    End If
End Sub

excel替换

这个只需要公式就可以了嘛

H2公式：知

=if(a2=1,b2*4,b2)

I2公式：

=if(a2=2,c2*4,c2)

选中H2:I2，下拉复制公式即可得到你现在的H,I列数据。

也可以在将你的道空列数据作为我上面的公式列。

得到结果以后，内再复制结果，选择性粘贴——数值——粘贴到B,C列

如果非要容用宏。我帮你写一个吧。

sub a()
for i=2 to [a65536].end(3).row
     if range("A"&i)=1 then
        range("B"&i)= range("B"&i)*4
     elseif range("A"&i)=2 then
        range("C"&i)= range("C"&i)*4
     end if
 next i
 end sub

下列代码将B列等于3、4、5的单元格分别替换为知“张三”、“李四”、“王五”。如果数字和对应的名字道太多，可用两列辅助列将数字和人名一一对应，再循环用回查找替换的方法。注意因循环次数太多，循环前要停止屏幕刷新，答否则运行时间很长。
Sub ABC()
For Each Ra In Range("B1:B" & [B65536].End(xlUp).Row)
Select Case Ra.Value
Case 3
Ra.Value = "张三"
Case 4
Ra.Value = "李四"
Case 5
Ra.Value = "王五"
End Select
Next
End Sub