一个execl表，有字段(编号，电量)导出每个编号第一条数据和电量开始为0/电量最小的数据

针对您的问题，我提供两种方法：

方法一：使用Excel自带函数实现

1. 首先，选中编号和电量这两列，然后点击“数据”选项卡中的“高级”按钮。

2. 在弹出的“高级筛选”对话框中，选择“复制到其他位置”选项，然后在“列表区域”中选择编号和电量这两列的数据区域。

3. 在“复制到”区域中输入一个空白单元格的地址，例如D1，然后勾选“不重复记录”选项。

4. 点击“确定”按钮，即可在D1单元格中生成第一个编号的数据。

5. 接着，使用IF和MIN函数，判断电量是否为0或最小值，例如：

- 如果要求电量开始为0，则在第二列中输入以下公式：=IF(B1=0,C1,"")

- 如果要求电量最小，则在第二列中输入以下公式：=IF(B1=MIN($B$1:$B$10),C1,"")

其中B1:B10为电量列的数据区域，C1:C10为编号列的数据区域。

方法二：使用VBA宏实现

1. 首先，按下Alt + F11键，打开VBA编辑器。

2. 在左侧的“项目资源管理器”窗口中，双击“Sheet1”工作表，打开代码编辑器。

3. 在代码编辑器中输入以下VBA代码：

Sub FindFirstData()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim lastRow As Long
    lastRow = Range("A1").End(xlDown).Row
    
    Dim i As Long
    For i = 2 To lastRow
        If Not dict.Exists(Range("A" & i).Value) Then
            dict.Add Range("A" & i).Value, Range("B" & i).Value
        End If
    Next i
    
    Range("D1").Value = dict.Keys()(0)
    
    Dim minValue As Double
    minValue = WorksheetFunction.Min(Range("B:B"))
    
    For i = 2 To lastRow
        If Range("B" & i).Value = 0 Then
            Range("E" & i).Value = Range("C" & i).Value
        ElseIf Range("B" & i).Value = minValue Then
            Range("E" & i).Value = Range("C" & i).Value
        End If
    Next i
End Sub

4. 点击“保存”按钮，然后关闭VBA编辑器。

5. 返回Excel界面，选中任意一个单元格，然后按下Alt + F8键，打开宏窗口。

6. 双击“FindFirstData”宏，即可在D1单元格中生成第一个编号的数据，并在第二列中标记出符合要求的数据。

以上就是两种实现方法，希望能够帮助到您。