VBA如何实现连续双击单元格？

=.=

1234567sub test()    arr=range('F1:F10')    for i=1 to 10        arr(i,1)=evaluate(arr(i,1))    next    range('F1:F10')=arrend sub

追问 : 高手！ 能否解释下语句的含义呢，兄弟，请您赐教！

追答 : sub test() arr=range('F1:F10')'读取F1：F10到数组中 for i=1 to 10'数组循环 arr(i,1)=evaluate(arr(i,1))'evaluate的作用就是把文本型的计算式，计算出结果 next range('F1:F10')=arr'将数组填充到原区域 end sub