excel使用宏按条件赋值

Question

如图，如果A列单元格为JH，则在同行B列输入同行D列的值，在同行C列输入同行E列的值。
要用宏！不是用公式！

Answer 1

For i = 1 To [A1].End(4).Row
If Cells(i, 1) = "JH" Then
Cells(i, 2) = Cells(i, 4)
Cells(i, 3) = Cells(i, 5)
End If
Next
以上代码区分大小写。如果不想区分大小写，那么，只要增加一个Ucase函数就行了。追问

大神，请问第一行
For i = 1 To [A1].End(4).Row
是什么意思1 To [A1].End(4).Row

追答

是A列的第一行，到A列最后一个有数值单元格的行的意思。
也就是所有有数值的单元所在的行的意思。
[A1].End(4)相当于在A1单元格按ctrl+向下方向键，跳到最后一个数值单元格。
使用这种方式可以不限制你的行数，行数增加或减少都能使程序从头到尾进行运算。