1樓：匿名使用者
許多字元，比如"lihanru8321"這樣的，然後看裡面有沒有h、a、n，最後提示有沒有的意思吧
sub temp()
dim cell as range
dim i as integer, fa as boolean, fb as boolean
set cell = range("a1")fa = false
fb = false
i = 1
do until mid(cell, i, 1) = ""
select case mid(cell, i, 1)case "a"
fa = true
case "b"
fb = true
end select
i = i + 1
loop
if fa = true then msgbox "有a哎"
if fb = true then msgbox "有b哎"
end sub
用mid函式對單元格的值一個個字元從左向右判斷有沒有h、a、n並記錄，最後根據記錄報出有沒有的結果
另外用find函式可能會更簡單點，適合複雜的字元判斷
2樓：匿名使用者
資料在a列，
public sub sfas()
dim c as range
for each c in range("a1:a" & [a65536].end(xlup).row)
c.value = "'" & c.valuenext
end sub
3樓：太極健
把單元格設定為文字格式，再輸入就不會出這種錯誤，這種錯誤就算你改回文字型，也得不到你要的資料，15位後為0了
也就是說前面相同，15位後不同的數也會變成了相同的數了。
4樓：匿名使用者
在單元格沒有輸入資料之前設定單元格為「文字」格式就不會以科學計數格式顯示了。或者在輸入資料時以半形的單引號（'）開始，即不會出現你說的那種情況
VBA判斷單元格是否包含字元EXCEL
舉例說明，有兩個單元格 a1 存放abc a2 為空白。設計一個vba程式，判定a1和a2是否為空白，並將結果放在b1 放a1的結果 和b2 放a2的結果 如下 sub判定 dimm s asstring dimm t asinteger dim結果 asstring dimi asinteger ...
excel中使用vba給單元格編入公式,但這是迴圈
比如在a1 a10中輸入公式為b列 c列 sub 公式 for i 1 to 10 range a i b i c i next end sub 問題bai不是du太清楚zhi,下面 dao的參回考吧 答 for i 1 to 100 for j 1 to 100 activecell.formul...
ecel如何用vba設定符合條件的單元格填充顏色為紅色
sub xx m activesheet.usedrange.item activesheet.usedrange.count row n activesheet.usedrange.item activesheet.usedrange.count column for i 12 to n if c...