创建一个VBA代码，让当前excel表格的sheet3中对满足条件1：报销月份是2020年5月1日，2：所在部门是sales，对满足这两个条件的报销合计进行求和，求和结果显示在N7单元格 补充，报销月份位于E列，所在部门是D列

好的，我理解了您的问题。以下是对应的VBA代码：

Sub SumSalesMay2020()

Dim salesMay2020 As Double
Dim lastRow As Long
Dim i As Long

lastRow = ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row

For i = 2 To lastRow
If Cells(i, "D").Value = "sales" And Month(Cells(i, "E")) = 5 And Year(Cells(i, "E")) = 2020 Then
salesMay2020 = salesMay2020 + Cells(i, "N")
End If
Next i

Range("N7").Value = salesMay2020

End Sub

请将上述代码复制粘贴到VBA编辑器中，然后按F5运行即可。注意，为了确保代码可用，请确保所在部门列为D列，报销月份列为E列，求和结果会显示在N7单元格。