关于vb内写内容的_Office

关于vb内写内容的求助
我需要给多个excel进行相同操作，所以想写一个vb自动完成。
删除列和插入行已经实现，但写入一段分列字段时候报错。不知道如何在vb里写入内容。
Sub Worksheet()
'
' worksheet Macro
' worksheet表整理
'

'
    Rows("1:14").Select
    Selection.Delete Shift:=xlUp
    Range("D:D").Delete
    Range("E:E").Delete
    Columns("C:C").Insert
    Range("C1").Select
    Range("C1").Value = Val(=RIGHT(B1,LEN(B1)-FIND("#",(SUBSTITUTE(B1,":","#",LEN(B1)-LEN(SUBSTITUTE(B1,":",)))))))
    Selection.AutoFill Destination:=Range("C1:C502")
    Range("C1:C502").Select
    Columns("C:C").EntireColumn.AutoFit
    Range("E1").Select
End Sub
我需要在excel上执行这段，怎么可以在vb里运行啊？求助！

excel vb

------解决方案--------------------------------------------------------
你是要向C1单元格写入公式吧
如果是的话
把
Range("C1").Value = Val(=RIGHT(B1,LEN(B1)-FIND("#",(SUBSTITUTE(B1,":","#",LEN(B1)-LEN(SUBSTITUTE(B1,":",)))))))
改成


Range("C1").Value = "=RIGHT(B1,LEN(B1)-FIND(""#"",(SUBSTITUTE(B1,"":"",""#"",LEN(B1)-LEN(SUBSTITUTE(B1,"":"",))))))"

试试