如何快速處理大批量的資料？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何快速處理大批量的資料？

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

[發問] 如何快速處理大批量的資料？

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2014-5-23 09:21 | 顯示全部帖子

回復 1# apolloooo

If KK = "FS" Then KK.Offset(0, 1).Value = KK.Offset(0, 1).Value / 5

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-5-23 10:58 | 顯示全部帖子

回復 4# apolloooo

Private Sub CommandButton1_Click()
Dim ar, i
ar = Range("B6:C60605").Value
For i = 1 To UBound(ar)
If ar(i, 1) = "FS" Then ar(i, 2) = ar(i, 2) / 5
Next
Range("B6:C60605").Value = ar
End Sub

複製代碼

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

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