摘要： ModuleFunction Shift_Allowance(ShtName As String) 'Application.ScreenUpdating = False Dim TargetStaff As String Dim Sht As Worksheet, Sht0 As Worksheet Dim i As Integer, j As Integer, i0 As Integer, j0 As Integer, j1 As Integer Dim DateRow As Integer Dim iMax As Integer, jMax As In... 阅读全文