Question

我目前正面临一个非常恼人的Excel工作簿问题，我想请求您的帮助。

我的工作簿作为报价工具，之后生成PDF。

首先，您需要将来自不同来源（例如PDF，Excel工作簿等）的数据输入到名为Master的工作表中。您可以使用简单公式进行一些计算，并将结果导出到另一个名为Calc_Overview的工作表中。在此过程中，数据也被格式化为正确的字体，颜色和大小。

With ActiveWorkbook.Worksheets("Master")
    For i = 12 To .UsedRange.rows.Count
       If .Cells(i, 2) <> "" Then
           .Cells(i, 2).Copy Destination:=Target.Cells(k, 4)
           .Range(.Cells(i, 4), .Cells(i, 5)).Copy _
             Target.Range("F" + k, "G" + k).PasteSpecial xlPasteValues

           .Range(.Cells(i, 6), .Cells(i, 7)).Copy _
             Destination:=Target.Range("I" + k, "J" + k)

           .Cells(i, 8).Copy _
             Destination:=Target.Cells(k, 8)
           k = k + 1               
      End If
    Next i
End With

在此操作之后，用户可以看到他输入和计算的数据的摘要。使用另一个宏，将行复制到3个不同的工作表（取决于种类），计算过程结束。

这是我的复制功能：

    Function CopyTable(Typ As String, Counter As Integer, Count As Integer) As Integer

    With Worksheets("Calc_Overview")
        .Range("A" & Count & ":" & "D" & Count).Copy _
            Destination:=Sheets(Typ).Range("A" & 5 + Counter)

        .Range("G" & Count & ":" & "H" & Count).Copy _
            Destination:=Worksheets(Typ).Range("E" & 5 + Counter)
    End With

    CopyTable = Counter + 1

   End Function

现在我的问题： 如果您尝试编辑已转移到最终工作表中的数据，则Excel经常会在没有任何原因的情况下崩溃。编辑单元格值后，按Enter或单击另一个单元格将使Excel崩溃。

我已经关闭了＆＃39;自动闪光补充＆＃39;和＆＃39;显示快速分析＆＃39;选项，但问题仍然存在..

有谁知道可能导致这个问题的原因是什么？我已经用新的工作表替换了最终的工作表而没有复制任何来自“破碎”的工作表。那些 - 也没有任何成功。我使用的是带有32位Microsoft Office 2013的Windows 10 PC（x64）。

我真的希望找到有关此问题的任何提示或解决方案！

非常感谢

Moritz的

Answer 1

我有一个更新：

更改复制方法不会改变任何内容 - 问题仍然存在。
This is how is looks after you edit the cell - the cell expands and excel is freezing without any reason with a very high cpu load

MS Excel 2013 - 编辑单元格值后崩溃

1 个答案: