请教：下面这段代码如果用循环语句该怎么写：

老鬼

i=0

for each cel in range("c4:c6")

    cel.formular1c1="=电视机!r["&(52-i)&"]c[1]"

    i=i+1

next

老鬼

i = 0
For Each CEL In Range("c4:c7")
    CEL.FormulaR1C1 = "=" & Choose(i + 1, "电视机", "电冰箱", "洗衣机", "空调") & "!r[" & (3 - i) & "]c[1]"
    i = i + 1
Next