請問一整行的值除一個整數問題? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問一整行的值除一個整數問題?

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

[發問] 請問一整行的值除一個整數問題?

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-5-18 00:13 | 顯示全部帖子

回復 1# flask

Sub zz()
Dim Arr()
Arr = Range("A1:A" & [A65536].End(xlUp).Row)
For R = 1 To UBound(Arr)
Arr(R, 1) = Int(Arr(R, 1) / 1000)
Next
[A1].Resize(UBound(Arr)) = Arr
End Sub

複製代碼

靜思自在 : 願要大、志要堅、氣要柔、心要細。

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