[發問] 為何使用index陣列跑11000筆A-G的資料須要四分鐘呢？

各位大大新年好：

小弟有一資料表，總列數為10989筆。
現想將從A-G的每一列資料合併至H位置。
現使用陣列方式來逹成卻須發費約四分鐘
左右才能逹成。
請問是否小弟引用的INDEX方式不適當
，還是另有更適當的方式可逹成嗎？

下列語法如下：
Sub pp()

Dim mSht As Worksheet
Dim mArr()
Dim s%, m%, r%
Dim mRng

Set mSht = Worksheets("Test")
With mSht
      mRng = .Range("a1:g10989")
      r = UBound(mRng, 1)
      For s = 1 To r
         ReDim Preserve mArr(m)
         mArr(m) = Trim(Join(Application.WorksheetFunction.Index(mRng, s)))
         m = m + 1
      Next
      mArr = Application.Transpose(mArr)
   .Range("h1").Resize(m) = mArr
   .Range("h1") = "合併簽審"

End With
End Sub

感恩大大！

Test_index.rar (51.62 KB)

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-2-6 20:47 | 只看該作者

改這樣會快得多
Sub pp()

Dim mSht As Worksheet
Dim d As Object, arr
Dim s%, m%, r%
Dim mRng
Set d = CreateObject("Scripting.Dictionary")
Set mSht = Worksheets("Test")
With mSht
      mRng = .Range("a1:g10988")
      r = UBound(mRng, 1)

      For s = 1 To r
arr = Array(mRng(s, 1), mRng(s, 2), mRng(s, 3), mRng(s, 4), mRng(s, 5), mRng(s, 6), mRng(s, 7))
MyCom = Join(arr)
d(s) = MyCom

      Next
   .Range("h1").Resize(r) = Application.Transpose(d.items)
   .Range("h1") = "合併簽審"

End With
End Sub

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

3^#

發表於 2011-2-6 21:16 | 只看該作者

oobird版主大大新年好：

      小弟改用版主大大提供的語法，
可說是超快速的，簡直無法讓人想象。
更令小弟驚呀的是大大引用dictionary
是如此的神奇。
For s = 1 To r
         arr = Array(mRng(s, 1), mRng(s, 2), mRng(s, 3), mRng(s, 4), mRng(s, 5), mRng(s, 6), mRng(s, 7))
         MyCom = Trim(Join(arr))
         d(s) = MyCom
      Next

為何二者之差異性會是如此之大呢？

感恩大大！

TOP

GBKEE