1樓：excel開發
1、截圖沒有把行號和列標截下來，所以編寫vba輸出的結果可能輸出位置不滿辯茄足樓主的需求。
2、重複的資料如何處理，樓孝灶搏主沒有明示。如ene，有等，這樣的資料放到右表中，要放哪乙個？最大？最小？平均？
3、右表的標題的含義？10表巧祥示0～9？16表示10～15？32表示16～31？是否可以如此理解。
用vba統計各個風向（如n、s）分別在1.0至3.0 3.1至6.9 7.0至7.9 8.0至8.9 9.0至9.9 10至15 大於15的次數
2樓：恩源致遠
其實沒有這麼麻煩，樓主可以在風速旁邊插入一列(j假設為b列)，用if公式將不同風速段進行分級，之後用資料透視表彙總時間和分級就可以。公式如：=if(a1*>,"c級風",)
如果不熟悉數透，可以用countif公式代替，例：=countif(b:b,"c級風")
3樓：太極健
沒有具體的資料表嗎？發乙個上來看下。
4樓：哈嘍
您好，這個問題解決了嗎？
excelvba實現分類加總比較計數問題計算成功筆數
5樓：沃爾芬無法
望哦！sub 收益率()
dim a as integer, b as integer, 成功筆數 as integer, 失敗筆數 as integer, ** as long, 賣出等 as long, 結算金額 as long, 交易筆數 as integer, temp as long, temp2 as long
a = cells(65536, 4).end(xlup).rowfor b = 2 to a
temp = cells(b, 4).valuetemp2 = cells(b, 7).value結算金額 = 結算金額 + temp2
if cells(b, 3).text = **" then** = ** + temp
else賣出等 = 賣出等 + temp
end if
if ** - 賣出等 = 0 then
if 結算金額 > 0 then
成宴模功筆數 = 成功筆數 + 1
else失敗筆數 = 失敗筆數 + 1
end if
** = 0
賣出等 = 0
結算金額 = 0
end if
next交易筆數 = 成功筆數 + 失褲滑敗筆數。
胡祥臘cells(2, 11) =成功筆數。
cells(3, 11) =失敗筆數。
cells(4, 11) =交易筆數。
end sub
怎麼用vba在excel中統計每列有多少行數
6樓：朱仕平
a列最底端有資料的單元格。
a65536].end(xlup).row如果是統計每列有多少非空單元格。
就要呼叫counta函式方便些。
range("a:a"))
7樓：網友
在vba中呼叫counta函式統計。
8樓：網友
用do ..while 語句。
例如統計a列用的行數：
n=1do while range("a"&n)<>""
hangshu=n
n=n+1loop
excel2003可以用vba嗎
9樓：網友
可以用的，注意的是把巨集安全級調低一點，否則不能用。具體做法是，點選選單欄「工具」--巨集」--安全性」。在開啟的對話方塊中把安全級別設定為中或低都可以。
excel 求助，利用vba進行資料分類彙總
10樓：陽光上的橋
如果資料較多，最高效的方法就是使用字典物件。
11樓：網友
分類彙總分好多種，不知道你是要做哪一種。。
excel vba程式原始碼，本人小白，，求大神解釋！
12樓：慶年工坊
你確定你的程式是完整的嗎？
tmp、riqi都沒賦值就拿來用了。
EXCEL資料問題用VBA處理
終於弄明白你的意思了。修改一個通用的 sub 一次的數 dim arr dim ir x y i dim k t t1 set d createobject scripting.dictionary ir range a65536 end xlup rowarr range a1 a ir valu...
EXCEL用VBA提取字串
築夢 可以使用函式提取一個字串中的一段字元。mid 用來返回文字字串中從指定位置開始的特定數目的字元,該數目由使用者指定，函式 mid 始終將每個字元。應該用到三個字串函式 left right midleft函式用法 left 要提取字元所在單元格,從左側開始提取的個數 right函式用法 rig...
excel表怎麼用VBA查詢並填寫
方法 步驟 開啟需要編輯的excel 觀察 發現有部分資料相同，需要將這些重複的資料用醒目的顏色標註出。首先，選中需要查詢重複值的一列或某個區域。具體操作，如圖所示。滑鼠單擊開始選單，依次選擇樣式 條件格式 突出顯示單元格規則 重複值。ps 這些步驟適應於microsoft07版本。03版本的童鞋可...