(1 )因为你没有给出确切信息,所以用代码吧,把下面代码全复制EXCEL的代码筐Public Function 数字(var)For i = 1 To Len(var)Select Case Mid(var, i, 1)Case 0 To 9y = y & Mid(var, i, 1)End SelectNext数字 = yEnd FunctionSub 日期相减()For i = 1 To [A60000].End(xlUp).Row'以下1为A列,2为B列,3为C列,下面的意思就是 B列减A列,把值赋予C列,根据需要自己改Cells(i, 3) = WorksheetFunction.Te...