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