来自userform

Question

我创建了一个带有文本框的userform（userform6）。我需要给最后5行命名。

这是我正在使用的代码。代码也会选择最后五行，但是出错了。

Dim n As Long

n = 5

Cells(Rows.Count, "A").End(xlUp).Offset(1 - n). _
Resize(n).EntireRow.Select
Selection.Name = UserForm6.TextBox8.Text

我收到运行时错误1004，错误突出显示＆＃34; selection.name = userForm6.TextBox8.Text＆＃34;。我也检查了空格，但没有成功。

任何帮助都将受到高度赞赏。

Answer 1

您实际上在寻找Range - 而不是Cells。此外，您不需要Select它，以便Name它;为什么要慢一点？

所以我们走了：

Dim n As Long
n = 5
Range("A" & Rows.Count).End(xlUp).Offset(-n + 1).Resize(n).EntireRow.Name = UserForm6.TextBox8.Text