- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
19#
發表於 2012-11-23 16:24
| 只看該作者
回復 18# eg0802 - Option Explicit
- Sub Ex()
- Dim Rng As Range, A As Range, i As Integer, EA As Range
- Set Rng = Range("E2", Range("E2").End(xlDown)).SpecialCells(xlCellTypeVisible)
- 'SpecialCells 方法 傳回 Range 物件，此物件代表與指定型態及值相符合的所有儲存格。Range 物件。
- 'Areas 屬性 定傳回 Areas 集合，此集合代表多重範圍中的所有範圍。唯讀。
- For Each A In Rng.Areas
- For Each EA In A.Cells
- i = i + 1
- If i <> 2 Then '<>第2列
- EA.Offset(, 2) = EA.Value
- End If
- Next
- Next
- End Sub
|
|
發表於 2012-11-1 13:58
| 
