Board logo

標題: 未知資料筆數計算 [打印本頁]
作者: boyao    時間: 2012-8-8 16:14     標題: 未知資料筆數計算

Sub Macro1()
    Range("N7:N20000") = "=AVERAGE(E7:M7)"
    Range("O7:O20000") = "=MAX(E7:M7)"
    Range("P7:P20000") = "=MIN(E7:M7)"
    Range("N7:P20000") = Range("N7:P20000").Value
End Sub
因為資料筆數不一定
目前都用上列程式執行完後.再手動刪除沒有計算值的資料
請問有沒有不用手動.其他更簡單的寫法去執行
作者: chen_cook    時間: 2012-8-9 04:49

回復 1# boyao


    N20000....等..換成[ n65535].end(xlup).row....變動尾筆!!
    相對的用 ......& "n" & [n65535].end(xlup).row去帶入....
作者: GBKEE    時間: 2012-8-9 08:07

回復 1# boyao
試試看
  1. Option Explicit
  2. Sub Macro1()
  3.     Dim Rng(1 To 2) As Range
  4.     Set Rng(1) = Range("E7:M" & [E7].End(xlDown).Row)
  5.     Set Rng(2) = Range("N7:P7").Resize(Rng(1).Rows.Count)
  6.     Rng(2).Columns(1) = Application.Average(Rng(1))
  7.     Rng(2).Columns(2) = Application.Max(Rng(1))
  8.     Rng(2).Columns(3) = Application.Min(Rng(1))
  9. End Sub
複製代碼
作者: boyao    時間: 2012-8-9 11:14

回復 3# GBKEE


GBKEE大大
試出來的結果會計算所有資料的 最大.最小.平均
需要再改哪邊的參數?
作者: GBKEE    時間: 2012-8-13 10:05

回復 4# boyao
試出來的結果會計算所有資料的 最大.最小.平均 需要再改哪邊的參數?
    領悟不出說法涵義,請再說明一下
作者: boyao    時間: 2012-8-14 11:15

回復 5# GBKEE


    GBKEE大大
我想求的是同一列資料的最大值.最小值跟平均值
但依你提供的資料去套用
計算出來是所有資料統計出來的 最大值.最小值跟平均值.而非單列(每一列的計算結果都是相同答案)

之前習慣用錄製後再修改.跟用寫的語法差好多
想請教有沒有其他的寫法可以比較簡單的執行
謝謝!
作者: GBKEE    時間: 2012-8-14 11:42

回復 6# boyao
試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range, i As Integer
  4.     Set Rng(1) = Range("E7:M" & [E7].End(xlDown).Row)
  5.     Set Rng(2) = Range("N7:P7").Resize(Rng(1).Rows.Count)
  6.     For i = 1 To Rng(2).Rows.Count    '.Count : Rng(2).Rows的總數
  7.          'Rows 物件: 範圍的列
  8.          'Columns 物件: 範圍的欄
  9.          ' Rng(1).Rows(i)的第i列
  10.          ' Rng(2).Rows(i)的第i列
  11.         Rng(2).Rows(i).Cells(1) = Application.Average(Rng(1).Rows(i))
  12.         Rng(2).Rows(i).Cells(2) = Application.Max(Rng(1).Rows(i))
  13.         Rng(2).Rows(i).Cells(3) = Application.Min(Rng(1).Rows(i))
  14.     Next
  15. End Sub
複製代碼
作者: boyao    時間: 2012-8-15 09:22

回復 7# GBKEE


    OK 可以了
謝謝GBKEE大大



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