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

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

rouber590324

高中生 Rank: 3 Rank: 3

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

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

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