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成績單中用函式批量求每個人的總成績，怎麼做？求詳細
勾其英管辰 輸入命令 sum 開始單元格 結束單元格 開始單元格就是第一個科目的成績，結束單元格就是最後一個科目的成績！冒號是一個聯絡符號！ 景亮銀琴 無非就是把 每個人 的各單項成績加起來就是了，這個不用什麼有難度的技術 取決於你的資料結構，可能還可以有一些靈活做法。通常，各項成績假定在c d e...
如何調取excel裡的資料到裡批量列印
我的王是金閃閃 其實郵件合併功能就可以的 另外excel中自己設定模板，再用vba程式設計也能做到。如果要求不高，公式也能做到。 余余 word裡面有一個叫 郵件合併的，可以批量列印。如何將excel的資料匯入word中批量列印 可以在excel中設定頁面，直接列印 在word中制好表,有標題和一行...
如何大批量自動填寫人名，excel如何批量把戶主姓名快速貼上後面的空格里
用acrobat pro帶的livecycle designer es 做個表單，讓他們填好後把生成成xml檔案給你。你在excel裡匯入就行了 這種叫郵件合併,先看方法 如果一定要我幫你做,hi我.大哥你是不是也該發揚一下你的敬業精神啊?400多個名字需要多久啊?很快 說你不會打字呢?你不是還在上...