用<em>VBA</em>在<em>excel</em>中插入函数<

什么叫做vba自定义的函数公式？
你是想说：如何进入vba代码编辑窗口吗？

不要把代码放在表格的代码里，插入一个新模块，代码放在模块里

Sub Macro1()
X = [A65536].End(3).Row
Range("B2").FormulaR1C1 = "=IF(RC[-1]="""","""",TEXT(RC[-1],""AAAA""))"
Range("B2").AutoFill Destination:=Range("B2:B" & X)
Range("B2:B" & X) = Range("B2:B" & X).Value '如果要保留公zd式,取消这一句.
Range("A1").Select
End Sub

注:假定第一行为表头回答,如果无表头,将所有"B2"改为"B1"即可.

把提取字符百的公度式写入问sheet2单元格
Sub aa()
Sheet2.Range("A1").Formula = "=left(sheet1!答A1,5)"
End Sub
直接把结专果写入sheet2单元格属
sub aa()
sheet2.range("A1").value=left(sheet1.range("A1").value,5)
end sub