錯誤91工作表變量的設置範圍

Question

我不知道爲什麼我可以將範圍值存儲在工作表變量的範圍屬性中，但不在範圍變量中。

Dim ws As Worksheet, rng As Range 
    Set ws = Worksheets.Add 
    ws.name = "Potato" 
    rng = ws.Range("A1:K1") 
    rng.PasteSpecial 

我能夠通過將最後2行成功運行該程序：每次我試圖運行這段代碼時遇到錯誤91

ws.Range("A1:K1").PasteSpecial 

這工作，即使它雜波我的代碼的其他部分。但我無法理解我的生活使用範圍變量的問題是什麼。

我希望任何人都可以提供澄清。

Answer 1

你必須使用Set與對象變量：

Set rng = ws.Range("A1:K1") 

Answer 2

這裏添加代碼，將確保不會有一個錯誤，如果你已經有一個名爲片「土豆」

代碼以確保Sheet（「Potato」）不存在。

Sub Button1_Click() 
    Dim ws As Worksheet, rng As Range, cRng As Range 
    Dim worksh As Integer 
    Dim worksheetexists As Boolean 
    Dim s As String 

    s = "Potato" 
    Set cRng = ActiveSheet.Range("A1:K1") 

    worksh = Application.Sheets.Count 
    worksheetexists = False 

    For x = 1 To worksh 

     If Worksheets(x).Name = s Then 
      worksheetexists = True 
      MsgBox s & ", already Exists" 
      Exit For 
     End If 

    Next x 

    If worksheetexists = False Then 
     Set ws = Worksheets.Add() 
     ws.Name = s 
     Set rng = ws.Range("A1:K1") 

     cRng.Copy 
     rng.PasteSpecial Paste:=xlPasteAll 
     Application.CutCopyMode = 0 
    End If 

End Sub