- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# yueh0720 - Sub Ex()
- Dim i As Integer
- 'With 在一個單一物件或一個使用者自訂型態上執行 -> 一系列的陳述式。
- With ActiveSheet '作用中的工作表
- '*** 一系列的陳述式 前面有一 . (點) 表為 ActiveSheet的Cells(i, "P")
- '例: .Cells(i, "A"), 例: .Cells(i, "C"), 例: .Cells(i, "P")
- i = 2
- Do While .Cells(i, "A") <> "" '執行Do的條件: 由A2往下直到A欄的儲存格無資料
- If .Cells(i, "P") <> "" And IsNumeric(.Cells(i, "P")) Then
- '<> ""(不是空白) AND 是數值
- .Cells(i, "C").Resize(1, 12) = .Cells(i, "P").Resize(1, 12).Value
- '.Resize(1, 12)->傳回 1列,12欄 的範圍
- 'Resize 屬性 調整指定的範圍。傳回 Range 物件，該物件代表調整後的範圍。
- End If
- i = i + 1
- Loop
- End With
- End Sub
|
|
發表於 2013-3-11 13:02
| 