返回列表 上一主題 發帖

[發問] 公式如何精簡

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
1# 跳轉到 »
發表於 2014-5-20 14:59 | 顯示全部帖子
建議用vba
  1. Sub ex()
  2. Dim Ar() As String, s, a, time
  3. Application.Range("A:D").SortSpecial key1:=Range("D:D")
  4. '讓A:D的資料根據D的大小，由小至大排列
  5. s = WorksheetFunction.CountIf(Range("A:A"), "V1")
  6. '計算有幾個V1,V1超過65535就會錯誤
  7. ReDim Ar(0 To s) As String
  8. With Sheets(1)
  9.    s = 0
  10.    For Each a In .Range(.[D1], .[D1].End(xlDown))
  11.       If a.Offset(, -3) = "V1" Then
  12.       
  13.       Ar(s) = a.Value
  14.       s = s + 1
  15.       End If
  16.          
  17.    Next
  18.    .[F1].Resize(s, 1) = Application.Transpose(Ar)
  19.    '把資料儲存在F1
  20. End With

  22. End Sub
複製代碼
50 字節以內
不支持自定義 Discuz! 代碼

TOP

softsadwind

帖子
129 
主題
3 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2010-12-28 
最後登錄
2018-11-10 
2#
發表於 2014-5-26 15:39 | 顯示全部帖子
回復 5# phoenix1
  1. Sub ex()
  2. Dim Ar() As String, s, a, time

  4. s = WorksheetFunction.CountIf(Range("A:A"), "V1")
  5. '計算有幾個V1,V1超過65535就會錯誤
  6. .Range("F:F").Clear
  7. '清空F:F的資料
  8. ReDim Ar(0 To s) As String
  9. With Sheets(1)
  10.    s = 0
  11.    For Each a In .Range(.[D1], .[D1].End(xlDown))
  12.       If a.Offset(, -3) = "V1" Then
  13.       
  14.       Ar(s) = a.Value
  15.       s = s + 1
  16.       End If
  17.          
  18.    Next
  19.    .[F1].Resize(s, 1) = Application.Transpose(Ar)
  20.    '把資料儲存在F1
  21. End With

  23. End Sub
複製代碼
放在同一頁的F1, 順序不變動
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題