求助关于使用VBA新建+更改自定义名称SHEET页的问题

excel真的好难

需求是，想使用某一个SHEET的某一列单元格内容作为新建的N的SHEET页的标题
VBA代码使用论坛大大的代码
Sub NewSht()

Dim Sht As Worksheet, Rng As Range

Dim Sn, t$

Set Rng = Range(a2a & Cells(Rows.Count, 1).End(xlUp).Row)

On Error Resume Next

For Each Sn In Rng
t = Sn

Set Sht = Sheets(t)

If Err Then

Worksheets.Add , Sheets(Sheets.Count)

ActiveSheet.Name = t

Err.Clear

End If

Next

Rng.Parent.Activate

End Sub



新建一个EXCEL文件，这个功能可以实现。
但是在本来就有多个SHEET页的时候，会报1004错误
这该怎么办呢？我在网上查可能是range的时候没有指定特定的sheet页去调用cell方法
但是怎么调也不对，请各位大大赐教

活在理想的世界

这句话前面加上表名Range(a2a & Cells(Rows.Count, 1).End(xlUp).Row)

range是哪个表的range？你一建新表range就成新表的range了。

活在理想的世界

还有Cells是哪个表的Cells？

同理Rows呢？哪个表的？

你不说清楚电脑搞不清啊？电脑那有你这么聪明啊？？？

excel真的好难

活在理想的世界 发表于 2018-3-9 12:58
还有Cells是哪个表的Cells？

同理Rows呢？哪个表的？

是不是我在每一个未指定表的函数前面加上Sheets("Sheet1")呢？

活在理想的世界

excel真的好难 发表于 2018-3-9 15:21
是不是我在每一个未指定表的函数前面加上Sheets("Sheet1")呢？

你自己试试吧。

反正对象要搞清楚，搞不清楚对象就执行不了。

单元格是谁的单元格？就问自己这句话。