基于范围创建工作表（忽略空单元格）

Question

我试图在按下按钮后创建一个以值为范围的新工作表，但出现以下错误：“对象_工作表的方法'范围失败“当我设置MyRange

我现在的表是‘V级气相色谱法’和起动电池是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来引用范围。

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

当你试图了解发生了什么，当你引用一个范围内，尽量选择它，并在时间与单细胞的工作，你的情况，你可以尝试选择一个单元格范围，使用范围。[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 

你的问题很可能是从你如何定义你的范围进行迭代的到来。