Question

excel，vba代码问题

Sub convert()
Set sel1 = Selection
For Each c In sel1
a = c.Formula
c.Formula = Round(c.Value / 1000, 2)
Next
End Sub

循环的时候，变量c不用定义就可以使用啊
还有 a = c.Formula，
a不用定义，c.Formula表示什么意思

Answer 1

'Option Explicit '如果不用此语句,则下面的变量可不用定义直接使用；如果使用此语句,则下面的变量必须定义后才能使用

Sub convert()
Set sel1 = Selection '选取的单元格(一个或多个)赋给sel1
For Each c In sel1 '在选取的单元格中循环,c为其中的一个单元格
a = c.Formula '在此程序中没有用到,可删除
c.Formula = Round(c.Value / 1000, 2) '单元格的值等于原来的值除以1000,保留2位小数的(第三位小数四舍五入)
Next
End Sub

Answer 2

sel1是Selection
c是sel1的元素，即是Selection的元素，也就是Selection中的单元格。
c.Formula是指单元格的公式。

如果你的程序只有这几句，似乎a = c.Formula（把c的公式赋给变量a）这句没有什么意义，后面也没有用到它。

VBA中如果开头声明部分没有用Option Explicit语句，所有变量都可以不定义而直接使用，虽然一般不建议这么做。

Answer 3

c.Formula 表示在c所代表的单元格（或者区域）里输入Round(c.Value / 1000, 2)得到的值