咱们先把需求的核心点理清楚：

• 从工作簿其他工作表里找到最后一个已存在的MAC地址
• 基于这个地址连续生成唯一的新MAC（严格遵循xx:xx:xx:xx:xx:xx格式）
• 只把新生成的MAC导出到CSV文件，不包含旧数据

下面是我帮你完善后的完整代码，每一步都加了注释，同时会在后面解释关键逻辑：

' 首先要新建一个标准模块（Module1），用来存储跨过程的变量
' 模块里只需要这一行代码：
Public LastMAC As String

' 第一个按钮：查找历史最后一个MAC地址
Private Sub CommandButton1_Click()
    Dim lastMac As String
    Dim targetWs As Worksheet
    Dim lastRow As Long
    
    ' 遍历所有工作表，跳过当前按钮所在的表（避免误读新生成的MAC）
    For Each targetWs In ThisWorkbook.Worksheets
        If targetWs.Name <> Me.Name Then
            ' 找到当前工作表A列最后一行有数据的位置
            On Error Resume Next
            lastRow = targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row
            On Error GoTo 0
            
            ' 如果找到有效数据，记录最后一个MAC并停止遍历
            If lastRow >= 1 Then
                lastMac = targetWs.Range("A" & lastRow).Value
                Exit For
            End If
        End If
    Next targetWs
    
    ' 处理没有找到历史MAC的情况，用默认起始地址（可自行修改）
    If lastMac = "" Then
        lastMac = "00:06:9C:10:07:00"
        MsgBox "未找到历史MAC地址，将从默认地址开始生成：" & lastMac
    Else
        MsgBox "找到最后一个历史MAC地址：" & lastMac
    End If
    
    ' 把找到的MAC存到模块级变量，供导出按钮使用
    Module1.LastMAC = lastMac
End Sub

' 第二个按钮：生成新MAC并导出到CSV
Private Sub exportText_Click()
    Dim startMac As String
    Dim macParts() As String
    Dim lastByte As Long
    Dim numToGenerate As Integer
    Dim newMacs As Collection
    Dim i As Integer
    Dim csvPath As String
    Dim fso As Object
    Dim ts As Object
    
    ' 验证输入的生成数量是否有效
    If Not IsNumeric(TextBox1.Value) Then
        MsgBox "请输入有效的数字！"
        Exit Sub
    End If
    numToGenerate = CInt(TextBox1.Value)
    If numToGenerate <= 0 Then
        MsgBox "生成数量必须大于0！"
        Exit Sub
    End If
    
    ' 获取之前找到的历史最后MAC
    startMac = Module1.LastMAC
    If startMac = "" Then
        MsgBox "请先点击第一个按钮获取历史MAC地址！"
        Exit Sub
    End If
    
    ' 把MAC拆分成数组，方便修改最后一个字节
    macParts = Split(startMac, ":")
    ' 将最后一个十六进制字节转为十进制数
    lastByte = CLng("&H" & macParts(5))
    
    ' 创建集合存储新生成的MAC
    Set newMacs = New Collection
    
    ' 批量生成新MAC
    For i = 1 To numToGenerate
        lastByte = lastByte + 1
        ' 处理最后一个字节溢出的情况（比如从FF到00，如需多字节进位可扩展）
        If lastByte > 255 Then
            lastByte = 0
            ' 这里可以添加前一个字节的进位逻辑，示例：
            ' macParts(4) = Right("00" & Hex(CLng("&H" & macParts(4)) + 1), 2)
        End If
        ' 确保每个字节都是两位十六进制（自动补零）
        macParts(5) = Right("00" & Hex(lastByte), 2)
        newMacs.Add Join(macParts, ":")
    Next i
    
    ' 让用户选择CSV保存路径
    csvPath = Application.GetSaveAsFilename(fileFilter:="CSV文件 (*.csv), *.csv")
    If csvPath = "False" Then Exit Sub ' 用户取消保存
    
    ' 写入CSV文件（用UTF-8编码避免乱码）
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.CreateTextFile(csvPath, True, True)
    
    ' 把所有新MAC写入CSV
    For Each mac In newMacs
        ts.WriteLine mac
    Next mac
    
    ts.Close
    MsgBox "成功生成并导出" & numToGenerate & "个新MAC地址到：" & csvPath
End Sub

关键逻辑说明 #

1. 历史MAC查找：遍历所有工作表，跳过当前按钮所在的表，精准定位A列最后一行的MAC；如果没有历史数据，自动使用预设的默认起始地址。
2. MAC递增处理：将MAC拆分为数组，把最后一个字节转成十进制递增，溢出时自动重置（如需多字节进位，可按注释里的示例扩展），同时保证每个字节都是两位十六进制格式（自动补零）。
3. CSV导出：用FileSystemObject写入CSV，支持UTF-8编码避免乱码；通过GetSaveAsFilename让用户自主选择保存路径，更灵活。
4. 输入校验：添加了生成数量的有效性检查，避免无效输入导致的错误。

使用注意事项 #

• 如果你的历史MAC存储在其他列（不是A列），修改代码里的列标识即可（比如把"A"改成"B"）。
• 如果需要多字节连续进位（比如最后一个字节到FF后，前一个字节加1），直接扩展注释里的进位逻辑就行。
• 导出的CSV文件每行一个MAC，完全符合"仅包含新MAC"的要求。

内容的提问来源于stack exchange，提问作者Mr. Chat