嗨，我来帮你搞定这个问题！你想要的是让自定义函数只在单元格第一次调用时生成UUID，之后不管工作表怎么重新计算，这个值都稳稳不变对吧？之前你尝试的判断逻辑没生效，主要是因为没找对正确的判断方式，咱们来一步步解决。

核心思路 #

Excel的自定义函数（UDF）默认会在工作表重计算时重新运行，咱们要做的就是让函数“记住”单元格已经生成过UUID，下次运行时直接返回现有值，不再重新生成。这里的关键是利用Application.Caller获取调用函数的单元格，判断它是否已经有有效值，再决定是生成新UUID还是返回原值。

完整代码实现 #

首先把生成UUID的逻辑封装成私有函数，再写主函数控制是否生成新值：

' 模块顶部的API声明，兼容32位和64位Excel
#If VBA7 Then
    Private Declare PtrSafe Function CoCreateGuid Lib "ole32" (id As Any) As Long
#Else
    Private Declare Function CoCreateGuid Lib "ole32" (id As Any) As Long
#End If

' 私有函数：负责生成标准格式的UUID
Private Function GenerateUUID() As String
    Const S_OK As Long = 0
    Dim id(0 To 15) As Byte
    Dim Cnt As Long
    
    If CoCreateGuid(id(0)) = S_OK Then
        For Cnt = 0 To 15
            GenerateUUID = GenerateUUID & IIf(id(Cnt) < 16, "0", "") & Hex$(id(Cnt))
        Next Cnt
        ' 格式化为标准UUID样式：8-4-4-4-12
        GenerateUUID = LCase(Left$(GenerateUUID, 8) & "-" & _
                           Mid$(GenerateUUID, 9, 4) & "-" & _
                           Mid$(GenerateUUID, 13, 4) & "-" & _
                           Mid$(GenerateUUID, 17, 4) & "-" & _
                           Right$(GenerateUUID, 12))
    Else
        MsgBox "生成UUID时出错！"
        GenerateUUID = ""
    End If
End Function

' 公开函数：对外调用的UUID生成函数，只在首次运行时生成新值
Public Function CreateGUID() As String
    Dim callerCell As Range
    Set callerCell = Application.Caller
    
    ' 设置函数为非易失性，避免不必要的重计算
    Application.Volatile False
    
    ' 判断逻辑：如果单元格为空，生成新UUID；否则直接返回现有值
    If callerCell.Value = "" Then
        CreateGUID = GenerateUUID()
    Else
        CreateGUID = callerCell.Value
    End If
End Function

代码解释 #

1. API声明：兼容32位和64位Excel，调用系统的CoCreateGuid函数生成原生UUID，比纯VBA生成的更可靠。
2. GenerateUUID函数：专注于生成标准格式的UUID，把生成逻辑单独封装，主函数更简洁。
3. CreateGUID函数：
   • Application.Caller：获取当前调用函数的单元格，知道是哪个单元格在请求UUID。
   • Application.Volatile False：标记函数为非易失性，只有当调用它的单元格本身被修改时才会重新运行，避免无意义的重计算。
   • 判断逻辑：单元格为空时生成新UUID，否则直接返回已有值，这样第一次输入公式会生成UUID，之后重计算都不会变。

进阶优化（可选） #

如果担心用户手动清空单元格或输入非UUID内容后会重新生成，可以加一个UUID格式验证，只有当单元格内容不是有效UUID时才生成新值：

' 新增私有函数：验证字符串是否为标准UUID格式
Private Function IsValidUUID(ByVal uuid As String) As Boolean
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    ' 匹配标准UUID的正则表达式
    regex.Pattern = "^[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}$"
    regex.IgnoreCase = True
    IsValidUUID = regex.Test(uuid)
End Function

' 修改主函数的判断逻辑
Public Function CreateGUID() As String
    Dim callerCell As Range
    Set callerCell = Application.Caller
    
    Application.Volatile False
    
    ' 只有单元格为空或内容不是有效UUID时，才生成新值
    If callerCell.Value = "" Or Not IsValidUUID(callerCell.Value) Then
        CreateGUID = GenerateUUID()
    Else
        CreateGUID = callerCell.Value
    End If
End Function

为什么之前的方法没生效？ #

你之前用Application.thisCell.Characters = ""判断是不对的，Characters返回的是单元格的字符对象，不是单元格的值，而且UDF在计算时，单元格的内容还没完成更新，这个判断逻辑根本不成立。咱们现在用callerCell.Value判断，直接读取单元格的当前值，逻辑才准确。

备注：内容来源于stack exchange，提问作者vorpal