Excel（offcie 365）中使用quicker运行VBA代码出错

这个错看起来不是quicker里报的。有可能和VBA代码有关，和网络应该没有关系。

试试重启一下电脑。 

我也是出现这个问题，我担心代码复杂，就用了一个非常简单的代码，同样出现问题。word vba 是正常的，但是excel就不行了。出现the RPC server is unavailable 的错误（0x800706BA）的错误提示。我的也是office365

希望管理能看到，早点解决

Sub beautifyTable()
    ' 声明变量
    Dim selectedRange As Range
    
    ' 获取选中的表格区域
    Set selectedRange = Selection
    
    ' 修改单元格字体样式、大小和颜色
    selectedRange.Font.Name = "微软雅黑"
    selectedRange.Font.Size = 12
    selectedRange.Font.ColorIndex = 1 ' 黑色
    
    ' 修改单元格背景颜色
    selectedRange.Interior.Color = RGB(230, 230, 230) ' 浅灰色
    
    ' 添加边框线
    With selectedRange.Borders
        .LineStyle = xlContinuous ' 连续实线
        .Weight = xlThin ' 细线条
        .ColorIndex = 1 ' 黑色边框
    End With
    
    ' 自适应列宽
    selectedRange.EntireColumn.AutoFit
    
End Sub

这是一个简单的美化excel的vba代码，我将它设为动作，出现错误，大佬些请教一下，哪里出问题了

好的，我重新安装一个office试试，谢谢

重新装了office365，还是出现问题，第一次无法正常运行，必须重新点出动作编辑确定后才能正常运行。我录了屏，

@回复CL：

重启电脑就录屏，没有多余的excel进程。

我也遇到同样的问题，用的是Office 365，没有安装WPS。

以下是让CHATGPT创建的一个简单的求A列和B列之和，将结果放入C列的VBA代码。运行后，能够顺利出结果，但是Excel立马卡死崩溃，然后Quicker弹出报错：命令返回失败，错误：RPC服务器不可用。（异常来自HRESULT:0x800706BA)(--执行VBA脚本：Office软件辅助--)

以下是代码：

Sub SumColumns()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") 'Replace "Sheet1" with the name of your sheet
    
    Dim LastRow As Long
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    If ws.Cells(ws.Rows.Count, "B").End(xlUp).Row > LastRow Then
        LastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    End If

    Dim i As Long
    For i = 1 To LastRow
        ws.Cells(i, "C").Value = ws.Cells(i, "A").Value + ws.Cells(i, "B").Value
    Next i

End Sub

我觉得这个问题似乎，也许，可能和内存有关，因为我只要把桌面任务栏的程序关掉一部分，就能大大提高vba运行成功的概率。