麻辣家族討論版版 » Excel程式區 » 物件變數與區塊變數問題請教

返回列表下一主題上一主題發帖

[發問] 物件變數與區塊變數問題請教

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 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

樓主熱帖

收藏

羅

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 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區塊變數

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2015-1-5 11:33 | 只看該作者

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

羅

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

返回列表下一主題上一主題