Question

我发布了一个简单的价格表。现在，我需要在最后一个条目的末尾添加“注释”。带有注释的单元格很少会是相同的，因为我们不断添加和删除产品。我还希望合并该行中的所有单元格，因此当我进行自动调整时，格式不会丢失。

Sub Append Notes to last page()
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.Value = "*Logo Quantity - Some items may be combined. See Account Manager."
    ActiveCell.Resize(1, 20).MergeCells
End Sub

我希望这只是价格表的末尾，在A列中找到第一个空白单元格，然后粘贴文本，然后合并单元格行。

感谢您的见解或帮助。

Answer 1

您不能在Sub名称中使用空格。不能使用空格，也可以用其他有效字符替换空格。

Sub AppendNotestolastpage()
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveCell.Value = "*Logo Quantity - Some items may be combined. See Account Manager."
    ActiveCell.Resize(1, 20).Merge
End Sub

尝试上面的代码。我仅更改了“ ActiveCell.Resize（1，20）.Merge”行。

VBA查找第一个空单元格并输入文本

1 个答案: