请教了

dahanwudi

Sub BLFUZHI1()
Sheet1.Select
我们 = 100
Cells(1, 1) = " 我 "
Cells(1, 2) = " 们 "
Cells(1, 3) = Cells(1, 1) + Cells(1, 2)
End Sub
咋样在ｃｅｌｌｓ（１，３）中显示１００？

dreamedlife

这个，真不知道{:1012:}
好像发错了地方，去VBA问

zxc1152468

if Cells(1, 1) = " 我 " and  Cells(1, 2) = " 们 "  then cells(1,3)=100

end if

天马

Sub BLFUZHI1()
     Sheet1.Select
    ActiveWorkbook.Names.Add Name:="我们", RefersToR1C1:="=Sheet1!R1C1"
    Cells(1, 1) = 100
    Cells(1, 2) = "我"
    Cells(1, 3) = "们"
    Cells(1, 4) = "=" & Cells(1, 2) & Cells(1, 3)
End Sub

飞天小猪

if Cells(1, 1) = " 我 " and  Cells(1, 2) = " 们 "  then cells(1,3)=100

end if