1樓:匿名使用者
用如下vba程式:
sub try()
dim rag as range, rag1 as range, a$, b$, c$, i as integer
for each rag in range("l2:u2")a$ = rag.offset(-1, 0)b$ = ""
for each rag1 in range("a2:j2")if instr(rag1.value, a$) > 0 thenb$ = b$ & rag1.value
end if
next
b$ = replace(b$, a$, "")c$ = a$ & "-"
for i = 0 to 9
if instr(b$, i) > 0 thenc$ = c$ & i
end if
next i
rag.value = c$
next
end sub
2樓:匿名使用者
這個還是用vba吧,不是太難。
3樓:匿名使用者
就10個資料?看你**有點看不明白
excel中怎樣用if函式標記出某個單元格的數字段中包含某一個數字
4樓:匿名使用者
在b1中輸入或複製貼上下列公式
=if(isnumber(find(6,a1)*find(9,a1)),"是","否")
下拉填充
5樓:匿名使用者
=if(and(find("6",a1,1)>0,find("9",a1,1)>0),"是","否")
當然還有其他辦法,這個公式是我直接寫的,你可以稍微調整下。
6樓:真真真白丁
親,公式如下:
=if(and(isnumber(find(6,a1)),isnumber(find(9,a1))),"是","否")
7樓:
b1單元格=if(iserr(find("9",a1)*find("6",a1)),"否","是")
如何將Excel中的工作表資料或圖表放入中
的哪來這麼多廢話?直接開啟excel,選中你需要的 複製,然後開啟word,直接貼上。或者右鍵選擇性貼上 點最上面的 excel物件。很簡單 在excel裡頭複製好工作表資料或圖表,在word裡頭貼上就行了啊 選定需放入的工作表資料或圖表 複製 開啟word文件 黏貼 簡單些,複製貼上就行 如何將e...
求excel查詢公式,excel中如何查詢帶有公式的數值
使用自定義函式是完全做到的。自定義函式參考見 做出的效果如 執行 如下 function xx dim yd,dy xx 這個是為不符合顯示空白而修改的,截圖時還沒改。for i activecell.row 1 to 1 step 1 if right cells i,activecell.col...
Excel中VLOOKUP公式如何合併
在首個單元格中輸入公式 回車確認後下拉填充。公式如下 iferror iferror iferror iferror iferror iferror iferror iferror iferror vlookup d319,1 b i,8,false vlookup d319,2 b i,8,fal...