1樓：池曉靈
sub vb改變字型()
for i = 1 to 20
for k = 1 to 50
if cells(i, k) <> "" then
set a = range(cells(i, k), cells(i, k))
j1 = instr(a, "c")
with a
.font.fontstyle = "正常"
.characters(start:=j1, length:=1).font.size = 18
end with
j2 = instr(a, "d")
with a
.font.fontstyle = "正常"
.characters(start:=j2, length:=1).font.size = 18
end with
j3 = instr(a, "f")
with a
.font.fontstyle = "正常"
.characters(start:=j3, length:=1).font.size = 18
end with
j4 = instr(a, "g")
with a
.font.fontstyle = "正常"
.characters(start:=j4, length:=1).font.size = 18
end with
end if
next
next
end sub
把instr（“”）裡的cdfg換成你想轉變的字元就行了，這個是 按你例子裡的寫的
2樓：匿名使用者
看你的這些內容儲存位置是否有規則，比如我要將a列所有單元格字串中第3個字元開始，共4個字元變成24磅，**為：
i = 1
do while cells(i, 1) <> ""
cells(i, 1).select
selection.characters(start:=3, length:=3).font.size = 24
i = i + 1
loop
3樓：水蜜桃
不是很明白你的意思，設定第一行之後，格式刷刷一下
如何批量修改excel每個工作表名稱，名稱為每個工作表相同單元格中的部分文字（每張表的文字內容不同）
4樓：我來也
反過來操作是簡單的，沒有按你這樣想過和做過，估計是要vba操作吧……
但是給你一個建議：
你這樣的這個表名稱很好的呀，若是按你的操作還是解決不了**的選擇和查詢哦！不如新建一個工作表，把所有**的a2單元格編號後面的文字提取出來變成目錄表，然後每一個做一個連結，今後只要點一下目錄表中的名稱就自動指向對應的工作表了，很方便哦……
5樓：匿名使用者
sub 提取a2命名sheet()
dim sh as worksheet
on error resume next
for each sh in worksheetsif sh.visible = -1 then '遍歷可見sheet
a = sh.cells(2, "a")
s = split(a, "]") '按“]”分割sh.name = s(1) '提取第二組資料
end if
next sh
end sub
1、**功能：提取a2單元格“]”後的內容，命名給當前sheet2、**使用方法：按alt+f11，彈出**視窗。
3、自定義部分：
①修改分割符：**第7行
②修改提取範圍：**第8行（注：s(0)，從0開始是第一組）
6樓：清風吧吧啦
這個需要寫**來做了，迴圈語句遍歷所有的工作表，提取a2單元格"]"後面的文字，將工作表重新命名。手工完成是很麻煩的！
你可以上傳**過來嗎？
EXCEL中如何批量刪除，EXCEL如何批量刪除不想要的資訊
簡單有效的方法如下 1.ctrl f，開啟替換視窗，開啟右側 選項 2.點 查詢內容 後面的 格式 字型 選擇 加粗 確定出來 3.替換內容 不作任何操作。4.點選 全部替換 此時加粗文字單元格全部為空格了5.關閉 替換視窗 用篩選方法刪除空白單元格就ok了。注 及時處理正確有用的回答，勾選為 滿意...
如何批量替換excel中的內容，如何批量替換excel中的內容
全選工作表，查詢和替換 替換 在 查詢 中輸入julongbox，在 替換為 中輸入你需要定義的內容，點 全部替換 即可。查詢和替換，在03版中在 編輯 選單下，07及以上版在 開始 選項卡中，看到這麼高的分上,問一下,你要替換什麼,替換成什麼樣?d1輸入公式 replace b 1,8,9,c1 ...
如何批量更改檔名？（沒有軟體）
檔名 副檔名都可以用軟體來批量修改，速度快 效率高。在網上搜下 批量重新命名工具 全選 然後 點滑鼠右鍵 重新命名 它會自動按順序排數字 不過效果不太好 比如4個檔案 你重新命名成 1 那麼它命名的是 1 1 1 1 2 1 3 這樣4個 付費內容限時免費檢視 回答如何批量更改檔名？沒有軟體 顯示副...