如何在Excel中自动生成各相机陷阱的雌雄出现序列？

一、Excel内置函数方案（Excel 365/2021适用） #

不用写代码，几步就能搞定：

1. 添加辅助列转换性别代码：在表格右侧插入一列（比如D列），命名为Gender Code，在D2单元格输入公式：

   =IF(AND(B2=1,C2=1),"MF",IF(B2=1,"M",IF(C2=1,"F","")))
   

   下拉填充到所有行，这步会把每行的雌雄标记转换成对应字符：同时出现为MF，仅雄性为M，仅雌性为F，都无则留空。
2. 按站点拼接序列：找一个空白单元格（比如F2），输入以下公式，回车后自动生成所有站点的结果：

   =LET(
       grouped, GROUPBY(A:A, D:D, LAMBDA(vals, TEXTJOIN("", TRUE, vals)), 0, 1),
       HSTACK(INDEX(grouped,,1), "Camera "&INDEX(grouped,,1)&": "&INDEX(grouped,,2))
   )
   

   这个公式会先按站点分组，将每个站点的性别代码拼接成序列，再整理为Camera X: XXX的格式。

二、VBA宏方案（全Excel版本适用，大数据集更高效） #

如果你的Excel版本没有GROUPBY函数，或者6万行数据用函数运行卡顿，用VBA批量处理更靠谱：

1. 按Alt+F11打开VBA编辑器；
2. 右键左侧的工作簿名称，选择「插入」→「模块」；
3. 粘贴这段代码：

   Sub GenerateCameraGenderSequences()
       Dim sourceSheet As Worksheet
       Dim lastRow As Long, rowNum As Long
       Dim stationMap As Object
       Dim currentStation As String, genderChar As String
       
       Set sourceSheet = ActiveSheet
       Set stationMap = CreateObject("Scripting.Dictionary")
       
       lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
       
       ' 遍历所有行，按站点收集性别序列
       For rowNum = 2 To lastRow ' 假设第一行是表头
           currentStation = sourceSheet.Cells(rowNum, "A").Value
           genderChar = ""
           
           If sourceSheet.Cells(rowNum, "B").Value = 1 Then genderChar = genderChar & "M"
           If sourceSheet.Cells(rowNum, "C").Value = 1 Then genderChar = genderChar & "F"
           
           If stationMap.Exists(currentStation) Then
               stationMap(currentStation) = stationMap(currentStation) & genderChar
           Else
               stationMap(currentStation) = genderChar
           End If
       Next rowNum
       
       ' 创建结果工作表
       Dim resultSheet As Worksheet
       On Error Resume Next
       Set resultSheet = ThisWorkbook.Worksheets("Camera Sequences")
       On Error GoTo 0
       If resultSheet Is Nothing Then
           Set resultSheet = ThisWorkbook.Worksheets.Add
           resultSheet.Name = "Camera Sequences"
       End If
       
       ' 写入表头和结果
       resultSheet.Cells(1, 1).Value = "Station Number"
       resultSheet.Cells(1, 2).Value = "Gender Sequence"
       
       Dim stationKey As Variant
       rowNum = 2
       For Each stationKey In stationMap.Keys
           resultSheet.Cells(rowNum, 1).Value = stationKey
           resultSheet.Cells(rowNum, 2).Value = "Camera " & stationKey & ": " & stationMap(stationKey)
           rowNum = rowNum + 1
       Next stationKey
       
       MsgBox "处理完成！结果在「Camera Sequences」工作表里。"
   End Sub
   

4. 回到Excel，按Alt+F8，选择GenerateCameraGenderSequences并点击「执行」；
5. 运行完成后，会自动生成一个新工作表，里面就是每个站点的完整性别序列。

注意事项 #

• 函数方案需要Excel 365或2021版本，因为用到了GROUPBY和LAMBDA函数；
• VBA运行前需确保启用宏（若弹出安全提示，选择启用即可）；
• 若同一行中雌雄均标记为1，两种方案都会生成MF，符合实际场景；
• 6万行数据用VBA处理比函数更快，优先推荐此方案。

内容的提问来源于stack exchange，提问作者Ellka