儲存格程式該如何陣列循環 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 儲存格程式該如何陣列循環

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

儲存格程式該如何陣列循環

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-3-11 13:02 | 顯示全部帖子

回復 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

複製代碼

靜思自在 : 人事的艱難與琢磨，就是一種考驗。

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