基於範圍創建工作表（忽略空單元格）

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 

你的問題很可能是從你如何定義你的範圍進行迭代的到來。