1樓:匿名使用者
sub 列出符合尾數的組合()
dim i as integer
dim r as integer
dim n1 as integer
dim n2 as integer
dim in1 as byte
dim in2 as byte
r = cells(rows.count, 1).end(xlup).row - 1
for i = 3 to r
n1 = worksheetfunction.count(range(cells(i + 1, 3), cells(i + 1, 8)))
for in1 = 1 to n1 - 1
for in2 = in1 + 1 to n1
if cbyte(right(cells(i + 1, in1 + 2) + cells(i + 1, in2 + 2), 1)) = cbyte(cells(i, 1)) then _
cells(i, 10 + n2) = cells(i + 1, in1 + 2).value & cells(i + 1, in2 + 2).value & "v":
n2 = n2 + 1
next
next
if cells(i, 10) = "" then cells(i, 10) = "無"
n2 = 0
next
end sub
函式很難做到你的要求,用excel裡的vba就可以
開啟excel,按alt+f11,出現在乙個視窗,如下圖
點選插入-模組-然後複製上面**進去,
然後在你的工作表裡執行**(就是執行巨集,由於你是03版本的,我不知道在**,你自己上網找一下)就可以了
2樓:匿名使用者
試試附件
希望能幫到你
求一excel公式
k2公式 value right large countif offset a 1,count a a 30,30 row 1 10 100 row 1 10 column a1 2 使用組公式 k3公式 round countif offset a 1,count a a 30,30 k2 30 ...
excel公式求餘數怎麼設定,excel怎麼求餘數
哈文玉清媼 取餘數函式 mod 數值,除數 由於除以5的餘數是0到4,所以要出1 5,公式是 mod a1 1,5 1 如果只要迴圈顯示1 5,不用a列,直接用公式 mod row 1,5 1 就是用所在單元格的行數直接算餘數 塞寧禰雨 excel中無法直接設定顯示餘數,但是可以使用mod函式取餘數...
EXCEL 07求函式公式
e3 sumproduct mid b3,3 f3 sumproduct mid b3,1 不過公式對b3單元格有要求,前面和後面不能有空格,中間只能各有乙個空格,只能有5個號碼資料。在e3中寫入公式 sum mid b3,2 下拉複製公式。在f3中寫入公式 sum mid b3,1 下拉複製公式。...