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中如何批量查詢
中關村 excel如何批量篩選 忻溫僑雁 請按步驟操作 兩個檔案都開啟，在圖2的 中，選擇單元格b2，輸入 vlookup a2,不要回車，左手按ctrl tab切換到圖1的 右手用滑鼠選擇a到k列，接著手動輸入 column 0 注意都是英文符號，回車。將公式向右向下複製。 用vlookup公式，...
如何將的數字批量複製到excel裡
如果word檔案夠規範的話，使用alt加滑鼠選中不同列複製 若是資料足夠多，改動也較大，用巨集實現批量處理。 簡單excel2010直接複製貼上後 選擇 資料 選項卡中的 資料工具 選項組中的 分列 按鈕 如何將word裡的大量數字複製到excel裡 麴奕聲芮培 如果word檔案夠規範的話，使用al...