VBA对A列单元格Trim去空格回写时报Range对象Value方法失败

• Mac端Office 365 VBA的Application.Transpose存在已知兼容缺陷：该函数在Mac环境下的容错性远低于Windows版本，当数组包含空值、特殊字符或者数组长度超过阈值时，很容易出现转换失败，最终导致回写时值类型和Range不匹配，触发Value方法执行报错。
• 遗漏边界判断：如果shCust工作表A列只有表头（即最后一行行号LastRow=1），此时你定义的Range("A2:A" & LastRow)是无效的交叉区域，赋值必然报错。
• 工作表权限问题：如果shCust设置了编辑保护、目标单元格被锁定，也会触发写入失败报错。

直接使用二维数组读写，完全规避Transpose函数的Mac兼容问题，同时增加边界判断：

Sub TrimIDCUST()
    Dim wks As Worksheet
    Set wks = ShCust
    Dim LastRow As Long
    ' 统一使用wks对象调用属性，避免隐式调用工作表出错
    LastRow = wks.Range("A" & wks.Rows.Count).End(xlUp).Row
    
    ' 无有效数据直接退出，避免无效区域赋值报错
    If LastRow < 2 Then Exit Sub
    
    Dim CustID As Variant
    ' 直接读取为二维数组，无需转置
    CustID = wks.Range("A2:A" & LastRow).Value
    
    Dim i As Long
    For i = LBound(CustID, 1) To UBound(CustID, 1)
        ' VBA内置Trim兼容性更好，仅去除首尾空格；如果需要去除中间多余空格，替换为Application.WorksheetFunction.Trim即可
        CustID(i, 1) = Trim(CustID(i, 1))
    Next i
    
    ' 直接回写二维数组，无需二次转置
    wks.Range("A2:A" & LastRow).Value = CustID
End Sub

运行代码前请确认shCust工作表未开启编辑保护，A列目标单元格未设置锁定禁止编辑。

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