返回列表 上一主題 發帖

有高手可以幫我簡化一下嗎?

am0251

帖子
65 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2012-5-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-19 17:20 | 顯示全部帖子

有高手可以幫我簡化一下嗎?

我做了一個簡單的統計程式,對比下"A2"的內容跟"A3"的內容是否一致,如果是的話,那麼"B2"跟"B3"的數值就會相加,之後"A3"跟"B3"就會刪除,如果是"否"的話就向下一格,資料少的話還好,如困資料多過500之後就會非常的慢(很有可能我的電腦太舊了),在我有錢換新電腦之前,有高手可以幫我簡化一下嗎?謝謝!!
  1. Sub Test()
  2. Dim z As Integer
  3. z = 2

  5. Do While Range("A" & z).Value <> ""

  7. If Range("A" & z).Value = Range("A" & (z + 1)).Value Then
  8.    Range("B" & z).Value = Range("B" & z).Value + Range("B" & (z + 1)).Value
  9.        Range("A" & (z + 1), "B" & (z + 1)).Delete Shift:=xlUp
  10. Else
  11.     z = z + 1
  12.    
  13. End If

  15. Loop

  17. If Range("A2").Value = "-" Then Range("A2:B2").Delete Shift:=xlUp

  19. End Sub
複製代碼
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

am0251

帖子
65 
主題
11 
精華
0 
積分
83 
點名
0  
作業系統
Window 7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2012-5-21 
2#
發表於 2011-6-20 16:57 | 顯示全部帖子
哇~~!!好厲害啊~~!!真的快很多,不過小弟比較笨,有很多指令都看不明白,大大介意給我介紹一下功能跟原理嗎?謝謝!!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題