1樓：匿名使用者
如果我只要替換one的內容，其他內容保持不變，該怎樣來寫？
2樓：匿名使用者
辦法如下，先找個英語翻譯的庫，你自己做成適當的資料庫，英文與中文各為乙個資料字段
用vba查詢資料庫，找到對應的，把對應的中文寫進去，
3樓：匿名使用者
'比如 在範圍 a1:d100
'把下面**拷貝到後台巨集，按f5執行就okpublic sub test()
for each s in range("a1:d100")if s = "one" then range(s.address)="1"
if s = "thank you" then range(s.address)="謝謝"
if s = "me" then range(s.address)="我"
next
end sub
4樓：匿名使用者
用查詢替換最方便而且特快啊
vba批量替換excel裡面的內容,求**~~
5樓：水煮魚頭
cells.replace
返回 boolean 型別，指示指定區域內單元格中的字元。使用本方法並不會更改選定區域或活動單元格。
格式：expression.replace(what, replacement, lookat, searchorder, matchcase, matchbyte, searchformat, replaceformat)
expression 必需。該表示式返回乙個 range 物件。
what variant 型別，必需。microsoft excel 要搜尋的字串。
replacement variant 型別，必需。替換字串。
lookat variant 型別，可選。可為以下 xllookat 常量之一：xlwhole 或 xlpart。
searchorder variant 型別，可選。可為以下 xlsearchorder 常量之一：xlbyrows 或 xlbycolumns。
matchcase variant 型別，可選。如果為 true，則進行區分大小寫的搜尋。
matchbyte variant 型別，可選。只有當在 microsoft excel 中選擇或安裝了雙位元組語言支援時，才可以使用本引數。如果為 true，則使雙位元組字元僅匹配雙位元組字元。
如果為 false，則雙位元組字元可匹配其等價的單位元組字元。
searchformat variant 型別，可選。該方法的搜尋格式。
replaceformat variant 型別，可選。該方法的替換格式。
具體的**得看你需要進行什麼樣的替換，這樣沒頭沒腦的，實在沒法寫出**來。
6樓：太極健
執行以下巨集即可
sub 查詢與替換()
dim cz as string
dim th as string
cz = inputbox("請輸入被替換的字元")th = inputbox("請輸入替換的字元")cells.replace what:=cz, replacement:
=th, lookat:=xlpart, searchorder:=xlbyrows, matchcase:
=false, searchformat:=false, replaceformat:=false
end sub
7樓：
直接用ctrl+h,不可以嗎？
excel vba 將單元格用迴圈表示
簡單的迴圈 sub test dim i as long dim endrow as long endrow range a rows.count end xlup row 獲取末行 if endrow 1 then exit sub for i 1 to endrow 1 if trim rang...
Excel vba把某個單元格cells 1,1 的公式下拉到cells 100,1 怎麼寫
像這樣復就可以制 sub 巨集1 for i 1 to 100 cells i,1 1 next end sub 裡面的 1就是你說的公式,cells i,1 的最終結果就是1到100行都填充這個公式 下面的 就可以內 sub 巨集容1 range a1 select selection.autof...
excel中同單元格內批量更換字元位置
建議你將a1單元格中的資料分列處理 得到a1 e506 b1 l 32 22 42 c1 b 104 43 33 d1 h 826.355 這樣你可以在e1單元格中可以用 符號進行按自己需要的順序連線得到 a1 b1 c1 d1 只要互換個單元格的位置就可以得到不同的組合 假設c21在a1單元格，請...