Question

我目前正在尝试在工作表底部创建一个总计，最小值，最大值和平均值表。我还希望“表格”在最后一个填充的单元格下面开始两个单元格。

我正在提取不同数量的数据，这可能是一天，或多达100个。

Sub max()

Dim N As Long

N = Cells(Rows.COUNT, "B").End(xlUp).Row

'Cells(N + 1, "B").Formula = "=MAX(B$13:B$44" & N & ")" <-COMMENTED OUT / THIS WORKS

Cells(N + 1, "B").Formula = "=IF(COUNT(B$13:B$44)=0,"",MAX(B$13:B$44))" & N & ")"

End Sub

这是我到目前为止所拥有的。我收到1004错误，并意识到我没有正确调用变量。我还需要在大约200列中执行此操作。我哪里错了？

Answer 1

当尝试使用VBA创建公式时，在该公式中，您想要使用引号，您必须“加倍”：

Cells(N + 1, "B").Formula = "=IF(COUNT(B$13:B$44)=0,"""",MAX(B$13:B$44))" & N & ")"

Answer 2

您可以使用wd:Job_Classification_Group_Data将其附加到公式中。

Chr(34)

Answer 3

编辑：更新非连续表格。

这假设您在工作表的表格下方或右侧没有任何内容，并且您的表格从B13开始（标题将是第12行）：

var options = [].slice.call(document.querySelectorAll("option"));

options.forEach(function (element)
{
    // console.log("element", element);
    element.addEventListener("mousedown", 
        function (e)
        {
            e.preventDefault();
            element.parentElement.focus();
            this.selected = !this.selected;
            return false;
        }
        , false
    );
});

使用VBA创建总计

3 个答案: