用户表单的名称框

Question

我用文本框创建了一个用户表单（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，错误突出显示“selection.name = userForm6.TextBox8.Text”。我也检查了空间，但没有成功。

任何帮助将不胜感激。

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