作者：乔山办公网日期：
返回目录：excel表格制作
这个只需要公式就可以了嘛来
H2公式：
=if(a2=1,b2*4,b2)
I2公式：
=if(a2=2,c2*4,c2)
选中H2:I2，下拉复制公式即可得到你现在的源H,I列数据。
也可以在将你的空列数据作为我上面的公式列。
得到结果以后，再复制结果，选择性粘贴——数值——粘贴到B,C列
如果非要用宏。zhidao我帮你写一个吧。
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
鼠标移至工作表标签名处，右键，查看zhidao代码，将下列代码粘贴进去
Sub 替换()
For i = 1 To [H65536].End(xlUp).Row
Cells(i, 8).Replace What:="beijing", Replacement:="北京版"
Cells(i, 8).Replace What:="shanghai", Replacement:="上海"
Cells(i, 8).Replace What:="xinjiang", Replacement:="新疆"
Cells(i, 8).Replace What:="", Replacement:="江西"
Next
End Sub
退出VB窗口，ALT+F8，运权行替换宏。
excel替换