时间戳

首页 > 解决方案 > VBA 查找第一个空单元格并输入文本

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

问题描述

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

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 列中找到第一个空白单元格并粘贴文本，然后合并单元格行。

我感谢任何见解或帮助。

标签： excelvba

解决方案

您不能在子名称中使用空格。使用不带空格或用其他有效字符替换空格。

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”行。

推荐阅读