Question

我按下按钮后尝试创建以一系列值命名的新工作表，但我收到以下错误：＆＃34;方法＆＃39;范围＆＃39;对象＆＃39; _Worksheet失败＆＃34;当我设置MyRange

时

我目前的表格是＆＃34; V-Class GC＆＃34;起始单元格是U2 这是我到目前为止所得到的：

Dim MyCell As Range, MyRange As Range

Set MyRange = Range(Sheets("V-Class GC").[u2], Sheets("V-Class GC").Cells(Rows.Count, "U").End(xlUp))

For Each MyCell In MyRange
    If Len(MyCell.Text) > 0 Then
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = MyCell.Value
    End If
Next MyCell

谢谢！

Answer 1

您应该使用Sheets类的方法.Range引用范围。

db.run

当您尝试了解引用范围时发生的情况时，请尝试选择它并在时间使用单个单元格，在您的情况下，您可以尝试使用范围选择单个单元格范围。[u2]你会很快发现错误，因为excel引发了错误。

Answer 2

尝试

Dim Foo As Variant, FooRange As Range

Sheets("V-Class GC").Select
Set FooRange = Range("u2", Range("u2").End(xLDown))

For Each Foo In FooRange
    If Len(Foo.Value) > 0 Then
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = Foo.Value
    End If
Next

您的问题很可能来自于如何定义要迭代的范围。

根据范围创建工作表（忽略空单元格）

2 个答案: