关于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,"":"",))))))"
