VBA代码:Sub ZD()
Declare PtrSafe Function apiSendKeys Lib "user32" Alias "SendKeys" (ByVal lpString As String) As Long
Application.ScreenUpdating = False
apiSendKeys "{DOWN}"
apiSendKeys "^v"
apiSendKeys "{UP}"
apiSendKeys "="
apiSendKeys "TRAN"
apiSendKeys "{TAB}"
apiSendKeys "{DOWN}"
apiSendKeys "^+{ENTER}"
apiSendKeys "{DOWN}"
apiSendKeys "{ENTER}"
apiSendKeys "{UP}"
apiSendKeys "^+{LEFT}"
apiSendKeys "^c"
apiSendKeys "^v"
apiSendKeys "^"
apiSendKeys "v"
apiSendKeys "{DOWN}"
apiSendKeys "^+{DOWN}"
apiSendKeys "{DELETE}"
Application.ScreenUpdating = True
End Sub
Declare PtrSafe Function apiSendKeys Lib "user32" Alias "SendKeys" (ByVal lpString As String) As Long
Application.ScreenUpdating = False
apiSendKeys "{DOWN}"
apiSendKeys "^v"
apiSendKeys "{UP}"
apiSendKeys "="
apiSendKeys "TRAN"
apiSendKeys "{TAB}"
apiSendKeys "{DOWN}"
apiSendKeys "^+{ENTER}"
apiSendKeys "{DOWN}"
apiSendKeys "{ENTER}"
apiSendKeys "{UP}"
apiSendKeys "^+{LEFT}"
apiSendKeys "^c"
apiSendKeys "^v"
apiSendKeys "^"
apiSendKeys "v"
apiSendKeys "{DOWN}"
apiSendKeys "^+{DOWN}"
apiSendKeys "{DELETE}"
Application.ScreenUpdating = True
End Sub