1樓：匿名使用者
private sub commandbutton1_click()dim s1 as single,s2 as single,s3 as single,ss1 as single
dim i as long,k as longss1=0
k=0for i = 1 to 6000
s1= val(me.cell(i,1)) s2= val(me.cell(i,2))
if s1>0 then
if s1=1 then
ss1=ss1+s2'求藍色和
else
if s1=2 then
k=k+1'黃色的個數
endif
endif
endif
next
for i = 1 to 6000
s1= val(me.cell(i,1))if s1=2 then
s2= val(me.cell(i,2))me.cell(i,3)=s2+ss1/kendif
next
end sub
2樓：匿名使用者
你的問題不明確，不過看樣子，用vba，很容易解決，可以聯絡我
VBA如何對偶數行求和，如何用VBA進行求和
1 首先，在excel中新建資料 2 然後，在電腦鍵盤上按快捷鍵alt f11，從而excel進入vba介面。3 接著，在excel的vba介面依次點選插入 模組，從而進入 編寫的介面。4 最後，在 編寫的介面輸入 sub合計20 dim a do until sheet2.cells a,2 sh...
如何用vba控制滑鼠移動和點選，如何用jQuery實現div隨滑鼠移動而移動
12345額時代 1 首先在開發工具中開啟vba編輯器。2 在單元格區域當中輸入一些自己想要的內容。3 在vba編輯器中插入模組。4 在模組當中輸入 然後執行。5 這樣用快捷鍵alt f8調出執行巨集視窗，然後單擊 執行 按鈕，滑鼠已限定在功能區範圍移動了。 好程式設計師 private decla...
vba如何把while loop得到的結果放入array裡
使用動態陣列 例如 定義 public arrtemp as string初始化 redim arrtemp 0 as string存資料時 arrtemp ubound arrtemp aaa redim preserve arrtemp ubound arrtemp 1 使用時 for i 0 ...