麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 物件變數與區塊變數問題請教 [打印本頁]

作者: rouber590324 時間: 2014-12-31 14:42 標題: 物件變數與區塊變數問題請教

dear all 大大
1 如下Sub yy()原可使用  copy 至另一excel 出現沒有設定物件變數或 with區塊變數  無法作業
  1.1 停於 c.Copy Sheet2.[a1]
2 請問如何處理煩不吝賜教  thanks *10000

Sub yy()
Dim n%, i%, ci%, c As Range
n = [a65536].End(xlUp).Row
For i = 2 To n
      If Application.CountIf(Range("a2:b" & n), Cells(i, 1)) > 1 Then
         If c Is Nothing Then
            Set c = Rows(i)
            ci = 1
         Else
            Set c = Union(c, Rows(i))
            ci = ci + 1
         End If
      End If
Next i
c.Copy Sheet2.[a1]
With Sheet2
      .Range("A1:b" & ci).Sort Key1:=.Range("a1")
End With
End Sub

作者: luhpro 時間: 2015-1-1 09:07

dear all 大大
1 如下Sub yy()原可使用 copy 至另一excel 出現沒有設定物件變數或 with區塊變數無法作 ...
rouber590324 發表於 2014-12-31 14:42

你確認一下,
當 A 欄全部沒資料時,
就會發生此情形.

一開始 n = [a65536].End(xlUp).Row 的 n 會等於 1,
接著迴圈不會執行,
c=Nothing
c.Copy 無法執行 => 沒有設定物件變數或 with區塊變數

作者: rouber590324 時間: 2015-1-5 11:33

DEAR luhpro
OK 啦感謝您之指導 THANKS*10000

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)