根据范围创build图纸（忽略空单元格）

我试图创build新的图表命名后，我按下一个button的值的范围，但我得到以下错误：“Method'Range'Range'of object'_Worksheet失败”当我设置MyRange

我目前的工作表是“V-Class GC”，起始单元格是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类的方法。范围来引用范围。

 Set MyRange = Range(Sheets("V-Class GC").Range("U2"), Sheets("V-Class GC").Cells(Rows.Count, 21).End(xlUp)) 

当你试图了解当你引用一个范围时发生了什么，试着select它并在一个单元格中工作，在你的情况下，你可以尝试使用范围来select单个单元格范围[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 

你的问题可能来自你如何定义你的范围迭代。