1樓：辛雨心
1、首先，在excel中新建資料**。
2、然後，在電腦鍵盤上按快捷鍵alt+f11，從而excel進入vba介面。
3、接著，在excel的vba介面依次點選插入——模組，從而進入**編寫的介面。
4、最後，在**編寫的介面輸入**：
sub合計20()
dim a%
do until sheet2. cells (a, 2)="
sheet2. cells(2, 3)= sheet2. cells (2, 3)+ sheet2. cells (a, 2)
a=a+1end sub
插入控制元件，將控制元件制定巨集為剛才寫的**即可。
2樓：匿名使用者
如果是一列或一行資料進行求和，可用迴圈累計求和。以一列求和為例，**如下：
sub sumcount()
dim rowcount as integer
dim acount as integer
rowcount = activesheet.[a90000].end(xlup).row
for i = 1 to rowcount
nextend sub
如果是以行求和，以第一行求和為例，**如下。
sub sumcount()
dim columncount as integer
dim acount as integer
columncount = activesheet.[iv1].end(xltoleft).column
for i = 1 to columncount
acount = acount + cells(1, i).value
nextend sub
如果是不規則的內容求和，可以先將資料存入陣列中，在從陣列中實現求和，以單元格a1，b2，c3為例，**如下：
sub sumcount()
dim arrdata(2)
dim acount as integer
for i = 0 to ubound(arrdata)
arrdata(i) =cells(i + 1, i + 1).value
acount = acount + arrdata(i)
nextend sub
excel裡邊隔行相加，怎麼設公式啊，
3樓：
你要說明一下隔行相加的規律才好告訴你公式。
比如隔幾行？舉個你要的效果例子最好。
=sumproduct((e1:e9)*mod(row(1:9)+1,2)) 偶數行的和。
4樓：網友
這種相加方式叫「隔行求和」，使用以下公式可以做到：
=sumproduct((mod(row(e1:e100),2)=1)*e1:e100)
公式是以e1到e100之中，行號為奇數（即1，3，5……）的單元格求和來舉例的，可以自己按實際情況來修改。例如偶數行（即2，4，6……）的單元格求和，可以把這個公式改成這樣：
=sumproduct((mod(row(e1:e100),2)=0)*e1:e100)
5樓：匿名使用者
a1:a10奇數行求和：=sumproduct(mod(row(a1:a10),2)*a1:a10)
a1:a10偶數行求和：=sumproduct((mod(row(a1:a10),2)=0)*a1:a10)
補充答案：奇：=sumproduct(mod(column(e1:e9),2)*e1:e9)
偶：=sumproduct((mod(column(e1:e9),2)=0)*e1:e9)
6樓：網友
對奇數行相加=sumproduct(a:a*mod(row(a:a),2))
對偶數行相加=sumproduct(a:a*mod(row(a:a)+1,2))
vba陣列如何求和與計數
7樓：匿名使用者
答：sum函式可以在工作表中求，同樣也可以對vba陣列求和，如：sub t2()arr = array(1, 35, 4, 13)
vba程式設計如何計算奇數的累加和
excel vba 指定位置求和
8樓：網友
可以用range().end(xlup).row取行數。
range().end(xltoleft).column取列數。
取到最右下角就簡單了，自己構造一下就行了。
如何用vba選取偶數行非空單元格
9樓：匿名使用者
全形空兩格。
半形就是四格。
excel vba怎樣實現多條件求和統計
10樓：匿名使用者
用公式或者資料透視表都是可以解決這個問題的。
如何用VBA得以下結果
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.ce...
如何用vba控制滑鼠移動和點選，如何用jQuery實現div隨滑鼠移動而移動
12345額時代 1 首先在開發工具中開啟vba編輯器。2 在單元格區域當中輸入一些自己想要的內容。3 在vba編輯器中插入模組。4 在模組當中輸入 然後執行。5 這樣用快捷鍵alt f8調出執行巨集視窗，然後單擊 執行 按鈕，滑鼠已限定在功能區範圍移動了。 好程式設計師 private decla...
請問如何用excel的VBA做出，從1 20中任取數的所有組合，總共是125970種，求高手支招，萬謝
如果你只是需要結果的話，可以用函式 combin 20,8 直接求的結果，如果真是要用vba實現的話按照 tat蘿蔔說的做就行了，完善如下 sub zuhe dim times as double for i1 1 to 13 for i2 i1 1 to 14for i3 i2 1 to 15fo...