標題: [發問] 如何快速處理大批量的資料？ [打印本頁]

---

作者: apolloooo    時間: 2014-5-23 08:48     標題: 如何快速處理大批量的資料？

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

---

作者: stillfish00    時間: 2014-5-23 09:21

回復 1# apolloooo

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

---

作者: apolloooo    時間: 2014-5-23 09:31

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

---

作者: apolloooo    時間: 2014-5-23 09:33

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

---

作者: stillfish00    時間: 2014-5-23 10:58

回復 4# apolloooo

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

複製代碼

---

作者: apolloooo    時間: 2014-5-23 12:16

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

---

作者: ui123    時間: 2014-6-1 20:16

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)