VBA记录

下拉 并其它Sheet

=INDIRECT("Res!$A$4:$A$6")

条件

=IF(F12(C9-I9)>(I9*0.1),"5","8")

=SUMIF(J7:J125,"调休",I7:I125)

=IF((C9-I9)>(I9*0.1),"5","8")
=IF((C9-I9)>(I9*(INDIRECT("Res!B4")/100)),INDIRECT("Res!A4"),INDIRECT("Res!A5"))

=IF((B9-I9)/I9>=(INDIRECT("Res!B4")/100),INDIRECT("Res!A5"),INDIRECT("Res!A6"))

=IF(isblank(B9),0,IF((B9-I9)/I9>=(INDIRECT("Res!B4")/100),IF((B9-I9)/I9>=(INDIRECT("Res!B5")/100),INDIRECT("Res!A4"),INDIRECT("Res!A5")),INDIRECT("Res!A6")))

=IF(OR(ISBLANK(B9),B9=0),0,IF((B9-I9)/I9>=(INDIRECT("Res!B4")/100),IF((B9-I9)/I9>=(INDIRECT("Res!B5")/100),INDIRECT("Res!A4"),INDIRECT("Res!A5")),INDIRECT("Res!A6")))

=IF((B9-I9)/I9>=(INDIRECT("Res!B4")/100),IF((B9-I9)/I9>=(INDIRECT("Res!B5")/100),INDIRECT("Res!A4"),INDIRECT("Res!A5")),INDIRECT("Res!A6"))

IF((B9-I9)/I9>=(INDIRECT("Res!B5")/100),INDIRECT("Res!A4"),INDIRECT("Res!A5"))

四舍五入
=ROUND(B9*(1-D9/100),1)

---删除行，CSV文件导入到删除行中-----******************-------------------

Private Sub btnGetData_Click()
Dim lRetMsg
lRetMsg = MsgBox("删除数据比较慢，请稍等。。。", vbOKOnly, "SystemInfo")
ClearRows
InputCSV
End Sub
Public Function ClearRows()
Dim iIndex As Integer
Dim iCount As Integer
iCount = Sheet1.UsedRange.Rows.Count
For iIndex = iCount To 4 Step -1
   Rows(iIndex).Delete
Next
End Function

Sub InputCSV()
    Dim Wb As Workbook
    Dim Arr
    Dim rng As Range
    On Error GoTo Err_Handle
    Set Wb = GetObject(Application.GetOpenFilename("csv File,*.csv", , "Select csv file", , False))
    If TypeName(MyFile) = "Boolean" Then Exit Sub
    Wb.ActiveSheet.Activate
   Arr = Wb.ActiveSheet.Range("A1").CurrentRegion
    Wb.Close False
    Range("A4").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
    Sheet1.Activate
    Rows(4).Delete
Err_Handle:
End Sub

--------******************-------------------