Question

我正在Excel中构建待办事项列表。对于多个KPI，用户每个KPI最多可以填充10行。宽度固定为8列。然后，我将没有空行的相同列表提取到另一张表（没有VBA）。然后我通过VBA将其导出为ppt作为OLE对象。现在的问题是：无法读取KPI标题，因为即使下一个单元格明显为空（仅有一个公式在那里为空单元格输入“），当单元格结束时它被切断，并且激活了选择中心。

我不知何故需要使该KPI名称可见（最好没有VBA）。

注意：由于幻灯片尺寸的宽度限制，在每行前面添加它是不可行的。另外复制然后粘贴特殊的OLE数据不起作用。 Input

Selection without empty rows. Problem is Cell A3 for example

Answer 1

没有VBA，不确定如何快速做到这一点。也许找到/替换你的公式，但这甚至会找到不等同于singleTapTask的公式。

如果你只想清除这样的细胞，这个子可能会起作用。将范围更改为您所需的范围：

""

Answer 2

@BruceWayne：很抱歉发布评论作为答案，但它不合适。我还没有关闭它，因为我大多数时候（但并不总是）得到运行时错误'430'：“类不支持自动化或不支持预期的接口”。我不知道如何摆脱这个。如果它工作，它适用于所有创建的幻灯片;然而，这种情况很少发生。以下是代码：

Set New_slide = myPresentation.Slides.AddSlide(Position, myPresentation.SlideMaster.CustomLayouts(7))

使用New_slide .Shapes.PasteSpecial DataType：= ppPasteOLEObject，Link：= msoFalse

      With New_Table.OLEFormat.Object.Sheets("Powerpoint feeder")  'Debugger directs me here   
        Set rng = .Range(.Cells(rng.Row, rng.Column), .Cells(rng.Row + num_rows - 1, rng.Column))
        For Each cel In rng
            If Left(cel.Value, 1) = "A" Then
                For x = 1 To 5
                    cel.Offset(0, x).ClearContents 
                Next x
            End If
        Next cel
    End With

非常感谢帮助。

Excel：选择中心，单元格不包含任何内容（如“”），但公式

2 个答案: