首页 文章

插入列并添加公式时出现“运行时错误13”

提问于
浏览 次
-1

这很简单：插入一列并将公式添加到范围B2：B1 . 该公式适用于工作表，但不适用于宏 . 放入新列，清除内容（以防万一）不再进一步：

运行时错误13 .

这是代码：

Columns("B:B").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("B:B").Select
Selection.ClearContents
Range("B2:B100").Formula = "=IF(A2=ISBLANK(TRUE),"",RIGHT(A2,2)&" / "&MID(A2,5,2)&" / "&LEFT(A2,4))"
End Sub
excel excel-vba vba

1 回答

  • 0

    VBA不知道如何处理公式中包含的引号 - 它认为你试图结束一个字符串并启动另一个字符串 .

    要解决此问题，请对公式中包含的任何内容使用双引号，如下所示：

    Range("B2:B100").Formula = "=IF(A2=ISBLANK(TRUE),"""",RIGHT(A2,2)&"" / ""&MID(A2,5,2)&"" / ""&LEFT(A2,4))"
    回复于

相关问题