VBA单元格赋值后仍为空的技术求助

执行VBA单元格赋值操作后，目标单元格始终为空。代码中类似.Cells(outRow, 10).Value = providerLast的赋值操作均未更新单元格值，已确认待赋值变量均有有效值且非空，赋值过程也未出现报错信息。相关代码片段如下：

Dim providerLast As String
Dim providerFirst As String

Dim providerEmail As String

Dim staffString As String
Dim staffList() As String
Dim staffEmail As String
        
With Workbooks("1-May-2024 MASTERS LEVEL SUPERVISOR_SUPERVISEE SPREADSHEET.xlsm").Worksheets("Current")

    outRow = 2
    currentRow = 2
    
    While Not (IsEmpty(.Cells(currentRow, 1).Value) And IsEmpty(.Cells(currentRow, 2).Value))
    
        ' 获取当前提供者信息
        providerLast = .Cells(currentRow, 1).Value
        providerFirst = .Cells(currentRow, 2).Value  
        
        providerEmail = LookupEmail(RTrim(providerFirst) & " " & RTrim(providerLast))
        
        staffString = .Cells(currentRow, 5).Value
    
        If Len(RTrim(staffString)) > 0 Then
        
            staffList = Split(staffString, ",")
            
            For i = LBound(staffList, 1) To UBound(staffList, 1)
            
                staffEmail = LookupEmail(staffList(i))
            
                Debug.Print providerLast
                ' 赋值未生效
                .Cells(outRow, 10).Value = providerLast 

                Debug.Print providerFirst
                ' 赋值未生效
                .Cells(outRow, 11).Value = providerFirst

                .Cells(outRow, 12).Value = staffList(i)
                .Cells(outRow, 13).Value = providerEmail
                .Cells(outRow, 14).Value = staffEmail

可能的解决方向 #

• 检查outRow是否递增：当前代码的For循环中，每次赋值都使用同一个outRow，如果没有在循环末尾添加outRow = outRow + 1，后续赋值会覆盖同一行数据，甚至可能因逻辑错误导致单元格被清空。需在For循环末尾增加该行代码，确保每处理一个staff成员就移动到下一行。

• 验证工作簿/工作表引用正确性：确认Workbooks("1-May-2024 MASTERS LEVEL SUPERVISOR_SUPERVISEE SPREADSHEET.xlsm")是当前打开的工作簿，名称完全匹配（包括扩展名、空格、大小写）。若名称有误，代码会引用错误对象，导致赋值未作用到目标工作表。

• 检查计算模式：如果Excel设置为手动计算模式，单元格赋值后可能不会即时刷新。可在代码末尾（With块内）添加.Calculate，或使用Application.Calculate强制刷新所有数据。

• 确认工作表/单元格未被保护：若目标工作表处于保护状态且目标单元格未解锁，赋值操作会静默失败。可在代码开头添加.Unprotect（需密码则补充密码参数），赋值完成后再执行.Protect恢复保护。

• 检查赋值逻辑是否执行：虽然Debug.Print有输出，但可确认staffString经RTrim后长度确实大于0，确保进入了If块和For循环。还可添加Debug.Print outRow查看赋值行号是否正确，是否超出工作表有效范围。

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