判斷值規格範圍,並加減固定值後,再取代該儲存格原值 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 判斷值規格範圍,並加減固定值後,再取代該儲存格原值

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

[發問] 判斷值規格範圍,並加減固定值後,再取代該儲存格原值

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2015-4-16 13:25 | 顯示全部帖子

回復 1# kasa

試試看~

Sub test()
For i = 1 To [a65536].End(xlUp).Row
If Cells(i, 1) < 90 Then
Cells(i, 1) = Cells(i, 1) + 1
ElseIf Cells(i, 1) > 100 Then
Cells(i, 1) = Cells(i, 1) - 1
End If
Next
End Sub

複製代碼

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2015-4-16 23:20 | 顯示全部帖子

回復 3# tyrone123456

使用[A65536].END(XLUP).ROW只是一種計算A欄最下方值的位置,實際上並不會硬性執行到65536列(要看最下方的值在哪一列)

PKKO

靜思自在 : 成功是優點的發揮，失敗是缺點的累積。

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