1樓：匿名使用者
sub 楊輝三角()
dim i as integer, j as integerfor i = 1 to 10
cells(i, 11 - i) = 1
cells(i, 9 + i) = 1
if i >= 3 then
for j = 13 - i to 7 + i step 2cells(i, j) = cells(i - 1, j - 1) + cells(i - 1, j + 1)
next j
end if
next i
end sub
2樓：匿名使用者
sub 楊輝三角形()
cells.columnwidth = 3cells.clearcontents
cells.font.colorindex = int(rnd * 10)
dim i, j
for i = 1 to 10
cells(i, 11 - i) = 1
for j = 1 to i - 1
cells(i, 11 - i + 2 * j) = cells(i - 1, 11 - i + 2 * j - 1) + cells(i - 1, 11 - i + 2 * j + 1)
next j
next i
end sub
如何在excel中做楊輝三角？簡單加解釋，謝謝 20
3樓：匿名使用者
a1=1
a2=a1，b2=if(a1+b1=0,"",a1+b1)選中a2，下拉複製公式
選中b2，向下向右複製公式即可
關於excel楊輝三角的製作，求高人 解答！！！如題所示！
4樓：匿名使用者
=a2-1，不過這個要複製b2單元格才行
5樓：老劉侃百科
b2=if(and(a2>1,a2<>""),a2-1,"")
excel怎麼做楊輝三角？
6樓：沈一民
黃色單元格r2輸入1
綠色單元格r3=if(if(isnumber(q2),q2,0)+if(isnumber(s2),s2,0),if(isnumber(q2),q2,0)+if(isnumber(s2),s2,0),"")向下向右向左複製
excel中如何編寫vba判斷迴圈多行單元格數值及賦值
太極健 你的判斷是為0而不是為空，如果是判斷為空，迴圈如下 sub test i range a65536 end xlup row 判斷a列最後一行的行號 for x 1 to i 建立迴圈從第一行到最後一行if cells x,1 0 then cells x,6 cells x,1 cells...
如何在excel中執行巨集，在excel中如何使用巨集？
馬堂渾雅霜 你沒有原稿，不知道你的 什麼樣子的，幫你隨便弄了一個。vba 非常簡單，只要2句，你自己可以嘗試著做一下。假設 是sheet1,箱號在c1格 sheet1.printout c1 c1 1 即可聯貫列印也可以這麼寫 st inputbox 1st carton no.is ed inpu...
vba刪除excel資料，vba中怎麼清空工作表中的資料
對於刪除重複資料，excel 2007中有一個功能可以刪除，不需要vba程式設計。方法 選中重複資料出現的單元格區域 選單 欄 資料 刪除重複項 點選 確定 即可如圖 在excel開啟控制元件工具箱，在excel中新增一個button commandbutton1 然後在button上滑鼠右鍵 檢視...