→ a086468: 應該是找不到接下來的uA了，試試 On Error 陳述式 05/13 00:39
→ healthbuy: 可以了~感謝大大幫忙! 05/13 22:49
→ healthbuy: 另外請教一下，我原本的方式是哪方面錯誤? 05/13 22:50
→ soyoso: 因取代後findnext找不到符合的儲存格，activate時錯誤 05/14 07:44
軟體:excel
版本:2007
版上前輩好
小弟手中資料因為含有不同單位並且沒有依固定格式排列
現在想要把它統一轉換成同一種單位刻度，並且只有數字格式
例如 208uA -> 0.208 (mA)
123456nA -> 0.123456 (mA)
現在的想法是利用"尋找與取代"的形式來實現
但是雖然單位消掉了，可是卻卡在 do while 的迴圈出不來
想請各位前輩指導一下如何解決
目前程式如下~
Cells.Find(What:="uA", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
Do While ActiveCell <> ""
ActiveCell.Replace What:="uA", Replacement:=""
ActiveCell = ActiveCell / 1000
Cells.FindNext(After:=ActiveCell).Activate
Loop
Cells.Find(What:="nA", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
Do While ActiveCell <> ""
ActiveCell.Replace What:="nA", Replacement:=""
ActiveCell = ActiveCell / 100000
Cells.FindNext(After:=ActiveCell).Activate
Loop
現在可以順利將 uA 的單位取代掉並且 /1000
但是卻卡在 "Cells.FindNext(After:=ActiveCell).Activate" 出不來
會有"沒有設定變數或 with 區塊變數" 這個錯誤
拜託大家幫忙了~謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.251.235.11
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1431446946.A.CF3.html