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怎麼批量更改多個工作簿的相同資料
我來也 這是一個工作組操作的概念 用滑鼠點第一個工作表名稱，再按住shift鍵不放 用滑鼠點最後一個工作表名稱，你會發現首尾和中間的工作表名稱都被選中了，這個選中的就是工作組了，也就是工作表組成的一個組。此時，你只要在其中的一個單元格輸入一個數字，比如在a3單元格輸入一個8，則所有選中的工作表的a3...
excel如何批量新增超連結，excel批量新增超連結
先在資料夾裡建立乙個文字文件，裡面輸入 dir p w a menu.txt 儲存，把txt字尾改為bat 雙擊執行 附件 生成檔案目錄 把生成的目錄，複製貼上到excel裡 然後用 hyperlink 函式做成超連結分分鐘，搞定！假如a列是檔名稱 且都在d xls資料夾則在b1中輸入或複製貼上此公...
excel中如何實現批量列印，在EXCEL中如何實現批量列印
第1步 開啟資料 如下圖所示 第2步 選擇diy工具箱按鈕，如下內圖所示 第容3步 選擇批量列印按鈕，如下圖所示 第4步 彈出對話方塊點選擇按鈕，如下圖所示 第5步 選擇自己要列印的excel檔案，如下圖所示 第6步 選擇活動工作表，單擊下一步按鈕，如下圖所示 第7步 選擇全部頁，單擊下一步，如下圖...