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

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

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

　暱稱: 借钱

中學生 Rank: 2

帖子: 54
主題: 7
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-1-14
最後登錄: 2021-4-23

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-5-23 08:48 | 只看該作者

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

我要找出B欄的對應值，並將C欄做數值的轉換，但不增加欄位，只對陳列本身做處理，小弟做了一個VBA，但一直無法運作。請各位幫忙，或是有更快的做法也可提供給我學習一下。謝謝

問題.zip (996.48 KB)

樓主熱帖

收藏

借錢不還，才是王道

中學生 Rank: 2

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

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

7^#

發表於 2014-6-1 20:16 | 只看該作者

原來可以使用陣列，學了一課，我現在還笨笨的使用if 然後一個一個算!
stillfish00 大，厲害:)

　暱稱: 借钱

中學生 Rank: 2

帖子: 54
主題: 7
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-1-14
最後登錄: 2021-4-23

6^#

發表於 2014-5-23 12:16 | 只看該作者

只能說，超快。感謝大大了。

借錢不還，才是王道

大學生 Rank: 4

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

5^#

發表於 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

複製代碼

　暱稱: 借钱

中學生 Rank: 2

帖子: 54
主題: 7
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-1-14
最後登錄: 2021-4-23

4^#

發表於 2014-5-23 09:33 | 只看該作者

技術上可以用這樣做嗎？
Range("B6:B60605")=Range("B6:B60605") / 5 用整批的概念嗎？這樣會出錯

借錢不還，才是王道

　暱稱: 借钱

中學生 Rank: 2

帖子: 54
主題: 7
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-1-14
最後登錄: 2021-4-23

3^#

發表於 2014-5-23 09:31 | 只看該作者

恩，我看到了。謝謝。可是計算時間真的很長，有比較快的方法嗎？

借錢不還，才是王道

大學生 Rank: 4

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

2^#

發表於 2014-5-23 09:21 | 只看該作者

回復 1# apolloooo

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

靜思自在 : 為自己找藉口的人永遠不會進步。

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