1樓：善護
excel vba 如果有不會寫的地方，特別是格式設定等方面，有乙個極好的方法解決，就是通過錄製巨集，然後分析巨集**，借用即可。
2樓：匿名使用者
sub a()
'假如部位是在a列，計算公式是在b列，結果是在c列，標題行在第一行for i = 2 to [b65536].end(3).rowks1 = instr(cells(i, 2), "[")js1 = instr(cells(i, 2), "]")ks2 = instrrev(cells(i, 2), "[")js2 = instrrev(cells(i, 2), "]")cells(i, 2).
characters(start:=ks1, length:=js1 + 1 - ks1).
font.color = -11489280
cells(i, 2).characters(start:=ks2, length:=js2 + 1 - ks2).font.color = -11489280
next
end sub
excel高亮顯示單元格括號內字串（含括號）如下圖
3樓：
public sub 特定字元顏色()
'dim r as range
dim i as integer
for each r in activesheet.usedrange
i = 0
do while instr(i + 1, r.value, "e") > 0
i = instr(i + 1, r.value, "e")r.select
activecell.characters(start:=i, length:=1).font.color = vbgreen
loop
next
end sub
4樓：匿名使用者
選中範圍後， 按alt+f8， 執行如下程式sub aa()
for each rng in selectionfor i = 1 to len(rng)a = asc(mid(rng, i, 1))if a > 90 then
rng.characters(i, 1).font.name = "arial"
rng.characters(i, 1).font.color = vbgreen
else
rng.characters(i, 1).font.name = "宋體"
end if
next
next
end sub
5樓：匿名使用者
sub test()
dim usecount as integer
with activesheet
for n = 1 to .usedrange.cells.count
for m = 1 to len(.usedrange.cells(n))
usecount = m
if mid(.usedrange.cells(n), m, 1) = "[" and mid(.
usedrange.cells(n), m + 2, 1) = "]" then .usedrange.
cells(n).characters(start:=m, length:
=3).font.color = vbgreen:
usecount = m + 2
if mid(.usedrange.cells(n), m, 1) = "[" and mid(.
usedrange.cells(n), m + 3, 1) = "]" then .usedrange.
cells(n).characters(start:=m, length:
=3).font.color = vbgreen:
usecount = m + 3
m = usecount
next m
next n
end with
end sub
我針對你上面括號中有乙個字或兩個字，進行修改的。
6樓：回呂
據我所知，
沒辦法實現這個功能。
條件格式智慧型做到整個格都填充色彩。
excel中如何高亮顯示部分字元？ 10
7樓：匿名使用者
複製貼上到word中 ctrl+h 查詢內容 輸入 蛋白
替換為 選擇格式 進行相應的設定 全部替換
複製後貼上回excel
如何通過vba高亮顯示excel活動單元格所在行和列
8樓：天雨下凡
按alt+f11，複製貼上以下**：
private sub worksheet_selectionchange(byval target as range)
if target.entirecolumn.address = target.address then
cells.interior.colorindex = xlnone
exit sub
end if
if target.entirerow.address = target.address then
cells.interior.colorindex = xlnone
exit sub
end if
cells.interior.colorindex = xlnone
rows(selection.row & ":" & selection.
row + selection.rows.count - 1).
interior.colorindex = 35
columns(selection.column).resize(, selection.
columns.count).interior.
colorindex = 20
end sub
效果圖如下：
excel中如何用vba將某個單元格填充顏色，也就是高亮顯示。
9樓：太極健
如你的資料在a列，**如下。
sub aa ()
for x =1 to range("a65536").end(xlup).row'建立迴圈
if cells(x,1)=6 then'判斷單元格值cells(x,1).interior.colorindex = 3'單元格值等於6時，該單元格填充紅色
end if
next x
end sub
10樓：匿名使用者
excel 97中工作表是由行和列組成的二維**，我們可以通過系統提供的語句activesheet.cells(i,j)，將當前工作表中的第i行第j列所在的單元格中的資料取出
excel vba 刪除單元格內指定範圍的字串
11樓：綠衣人敲門
1、如下圖所示的黃色標註的的內容「南京」，我們需要將其刪除，但是不影響其他內容。
2、使用快捷鍵「ctrl+f」調出「查詢和替換」視窗，在查詢內容欄中輸入「南京」。
3、搜尋出所有內容後，使用快捷鍵「shift + a」全選所有搜尋結果後單擊「關閉」按鈕。
4、在選中資料的單元格所在區域單擊右鍵，調出右鍵選單，選擇刪除。
5、此時會彈出如下圖的刪除選項，若要不影響其他內容，此處選擇下方單元格上移。
6、最後給出乙個效果圖供參考。
12樓：匿名使用者
你可以參考我寫的這個sub
你可以在實際操作的時候，換乘function，用他的引數來傳入ss的值。
public sub test()
dim ss as string, ii as integer, jj(9) as integer, str1 as string
ss = "在工一有我人[要工]有和在[國為是]工要在[了在有工主]一上地在要"
ii = len(ss)
for jj(0) = 1 to ii
if mid(ss, jj(0), 1) <> "[" and jj(1) <> 1 then
if mid(ss, jj(0), 1) <> "]" then
str1 = str1 & mid(ss, jj(0), 1)
end if
else
jj(1) = 1
if mid(ss, jj(0), 1) = "]" then jj(1) = 0
end if
next jj(0)
end sub
13樓：匿名使用者
ctrl+h
查詢中輸入 [*]
替換中保持為空
確定就可以了,還用什麼vba.
子易空間站 - excel培訓專家
怎麼在excel裡實現，在乙個單元格裡，把括號裡的數字變成紅色。如圖，求教~tat
14樓：我愛桑果
這個問題必須用vba才能解決，**如下：
sub macro1()
dim rng as range
for each rng in range("a1:a10")t1 = instr(rng, "（")
t2 = instr(rng, "）")
if t1 > 0 then
rng.characters(t1 + 1, t2 - t1 - 1).font.colorindex = 3
end if
next rng
end sub
需要注意的是：
1、第三行的：range("a1:a10")，請更改為你需要批量操作的單元格區域；
2、第四第五行的雙引號之間的兩個括號必須和你表中那些括號一致，也就是表中是中文括號，**也要用中文括號，表中是英文括號，**也要是英文括號；
3、只能把所有單元格中第乙個括號內的數字轉為紅色。
15樓：
無法通過text函式或者是自定義數字格式實現。
只能進行單元格編輯狀態，手工選中括號中的字元，單獨設定字型顏色為紅色。
或者使用vba**
excel中，vba如何讓兩個單元格中，中文輸入的括號（內容）和英文輸入的括號（內容），預設為是同一內容
16樓：匿名使用者
a1為半形括號 (我們)
b1為全形括號 （我們）
下面**進行處理，判定a1，b1是相同的：
sub bb()
if strconv([a1], vbnarrow) = strconv([b1], vbnarrow) then
msgbox "a1=b1"
else: msgbox "a1<>b1"
end if
end sub
EXCEL單元格查詢資料變色顯示高亮顯示
emmm試了一下，沒有特別簡便的方法，只能多次設定條件格式。1 包含 5 的格仔，黃色。注意要把逗號也算進去，這樣才不會選到15或25這種資料 2 以5起始的格仔，黃色。這樣才不會漏掉以5開頭的格仔 其它的數字也可以用同樣的方法設定。選擇資料區域，如圖a1 c2，開始選項卡 條件格式 新建規則 使用...
Excel單元格內數字拆分多個單元格
假設資料在a1 在c1中輸入或複製貼上下列公式之一 mid a1,column a1 1 結果為文字 if column a1 len a1 mid a1,column a1 1 if column a1 len a1 mid a1,column a1 1 0,if column a1 len a1...
Excel去除單元格內逗號，Excel去除單元格內第乙個逗號
是都在每個單元格的第一位嗎？如果是的話，用以下操作 1.先選中你要修改的列 2.點選選單欄種，資料裡面的分列 3.在對話方塊中選中 固定寬度 點選下一步4.在對話方塊中的下方，在你需要分割的地方點選一下 逗號後面 然後點選下一步 5.點選完成。這樣就會把你這一列分成 一列逗號和一列資料，要注意的是，...
excel合併單元格篩選時怎麼顯示全部
選中你需要篩選的合併單元格。右擊，選中複製，把它貼上到未用到的單元格中，以便保留合併單元格的格式。繼續選中你需要篩選的合併單元格，點選開始選單欄中間的合併後居中。保持你選中的單元格，點選開始選單欄最右邊的查詢和選擇 或者按鍵盤上的f5 點選定位條件。選擇空值，出現下圖。鍵入 選中上乙個單元格的內容，...
excel中單元格內兩個數字求積
c1 left a1,find a1 1 mid a1,find a1 1,100 b1 只能識別 號 因此對於a1單元格中的內容要把它差分成兩個數字的部分 c1輸入 a1 b1，然後回車確定，滑鼠對準c1單元格右下角,當出現乙個黑色小十字時,同時按住滑鼠左鍵往下拖動 就會得出 c2 a2 b2 c...