如何用vba筛选同一天出现2次一般诊疗费的数据并提取当天的所有数据

你可以使用VBA编写以下代码来筛选同一天出现2次一般诊疗费的数据，并提取当天的所有数据：

Sub filterData()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To lastRow
If Cells(i, "B").Value = "一般诊疗费" Then
If WorksheetFunction.CountIf(Range("A:A"), Cells(i, "A").Value) = 2 Then
Range(Cells(i, "A"), Cells(i, "B")).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
End If
End If
Next i
End Sub

这段代码首先获取表格中最后一行的行数，并遍历表格中的每一行。如果当前行是一般诊疗费的数据，并且在整个表格中出现了两次，则将该行数据复制到一个新的工作表中（例如第二个工作表）。最后返回到原始工作表。记得将“Sheet1”和“Sheet2”更改为实际的工作表名称。