作者：乔山办公网日期：
返回目录：excel表格制作
Cells(1, 3) = Left(Cells(1, 1), Application.Find(",", Cells(1, 1), 1) - 1)
[c1] = Left([a1], Application.Find(",", [a1], 1) - 1)
Sub 按钮1_Click()
Dim myRow As Single
myRow = ActiveSheet.Cells(65536, 2).End(xlUp).Row
ActiveSheet.Cells(myRow + 1, 2) = ActiveSheet.Range("A1")
End Su
例子百中，在C1输入 =MID(A1,FIND("user_work_date=",A1)+16,14) 如果两边的度双引号也需回要要的话，公式答改为 =MID(A1,FIND("user_work_date=",A1)+15,16)
利用vba的自定义函数吧
在工作表界面百作如下操作度：
按Alt+F11->打开vixual basic编辑器
在打开的vixual basic编辑器窗口作如下操作：
标题栏->视图->工程资源管理器(单击打开)
插入-模块（知这时会插入一个名称为“模块1”的模块)
右边道出现一大片空白区域
将下述代码复制->粘贴进去:
Function Hasf(rng As Range)
If rng.HasFormula Then
Hasf = rng.Formula
Else
Hasf = ""
End If
End Function
'这样专在工作表界面就可以直接用函数hasf了，跟excel内置函数一样使用属
'如A2里有公式=IF(A1="","",A3+A4)
'那么B2里输入公式=hasf(A2) 确定即可