excel里，如何批量更改每个单元格特定字符的字体大小？ excel中如何利用VBA批量替换单元格中某个字符的字体
Excel\u600e\u4e48\u6279\u91cf\u8bbe\u7f6e\u5355\u4e2a\u5355\u5143\u683c\u524d9\u4e2a\u5b57\u7b26\u5b57\u4f53\u5927\u5c0fExcel\u4e2d\u53ef\u4ee5\u4f7f\u7528VBA\u6279\u91cf\u8bbe\u7f6e\u5355\u5143\u683c\u524d9\u4e2a\u5b57\u7b26\u5b57\u4f53\u5927\u5c0f\u3002
\u8f6f\u4ef6\u7248\u672c\uff1aOffice2007
\u65b9\u6cd5\u5982\u4e0b\uff1a
\u5c06A\u5217\u4e2d\u5355\u5143\u683c\u524d9\u4e2a\u5b57\u7b26\u5b57\u4f53\u5927\u5c0f\u8bbe\u7f6e\u4e3a20\u53f7\uff1a
Alt+F11\uff0c\u8f93\u5165\u4ee3\u7801\u5982\u4e0b\u56fe\u6240\u793a\uff1a
\u6309\u4e0bF5\u6267\u884c\u4ee3\u7801\uff0c\u8fd4\u56deExcel\uff0c\u5f97\u5230\u7ed3\u679c\u5982\u4e0b\u56fe\u6240\u793a\uff1a
\u6ce8\u610f\u4e8b\u9879\uff1a\u6839\u636e\u5b9e\u9645\u7684\u6570\u636e\u533a\u57df\uff0c\u4fee\u6539\u4ee3\u7801\u4e2d\u7684\u884c\u5217\u53c2\u6570\u5373\u53ef\u3002
Vba\u7a0b\u5e8f\u5982\u4e0b\uff1a
Sub myFont()
Application.ScreenUpdating = False
Dim i!, rC As Range
For Each rC In Selection
For i = 1 To Len(rC)
If i > Find("/", rC) Then
rC.Characters(i, 1).Font.ColorIndex = 16
rC.Characters(i, 1).Font.Italic = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
看你的这些内容保存位置是否有规则，比如我要将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
没有上图 也没有内容，只能给你举例说明了
如果是每一个字：中，想改成粗体 红色 背景色 其他的字体等等 都可以这样实现的。
ctrl+f打开查找对话框，如图去操作
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换成你想转变的字符就行了，这个是 按你例子里的写的
不是很明白你的意思，设定第一行之后，格式刷刷一下
要用代码，请先付费。
该死的百度，动不动就认证。
绛旓細1. 濡傛灉鎮ㄥ笇鏈淇敼鐨勫崟鍏冩牸涓庡叾浠栧崟鍏冩牸涔嬮棿瀛樺湪鏌愮瑙勫緥鍏崇郴锛堜緥濡傦紝鏁板奸掑鎴栬呮枃瀛楀墠缂鐩稿悓锛夛紝鍙互浣跨敤鍏紡鏉ュ疄鐜般2. 閫変腑闇瑕佸～鍏呯殑涓鎺掑崟鍏冩牸锛屼互绗竴涓崟鍏冩牸涓鸿捣鐐癸紝鍦ㄥ叕寮忔爮涓杈撳叆鍏紡锛屼緥濡 "=A1+1" 鎴栬 "=A1&"abc""锛堝叾涓紝& 绗﹀彿鐢ㄤ簬杩炴帴澶氫釜瀛楃涓诧級銆3. 鐒跺悗鎸変笅鈥滃洖杞︹濋敭锛...
绛旓細1銆侀鍏堟墦寮鐢佃剳涓婄殑excel鏂囨。锛岄変腑鏁版嵁鍖哄煙鍚庣偣鍑婚紶鏍囧彸閿紝鎺ョ潃鍦ㄥ脊鍑虹殑鑿滃崟涓変腑銆愯缃崟鍏冩牸鏍煎紡銆戙2銆佸脊鍑哄崟鍏冩牸鏍煎紡绐楀彛锛岀偣鍑诲鍥炬墍绀虹殑銆愯嚜瀹氫箟銆戦夐」锛岀劧鍚庡啀鍦ㄣ愰氱敤鏍煎紡銆戝悗闈㈠姞涓婇渶瑕佺殑鍐呭鍗冲彲锛屽叿浣撴搷浣滃弬鑰冧笅鍥俱傝缃粨鏉熷悗锛岀偣鍑荤獥鍙ｆ渶涓嬫柟鐨勩愮‘瀹氥戞寜閽3銆佹煡鐪嬪師鏉ョ殑鏁版嵁鍖哄煙锛屽彂鐜版暟...
绛旓細鏂规硶锛氭妸鏂囦欢鍚嶅墠闈㈢殑璺緞锛屼娇鐢–TRL+H锛屾壒閲忔浛鎹负绌锛涗笁銆佹瀯寤轰唬鐮 鎻愬彇涔嬪悗灏辨槸鏋勫缓bat鍛戒护鐨勭幆鑺備簡锛岄鍏堟垜浠渶瑕佺敓鎴愭枃浠跺す闇瑕佷慨鏀圭殑鍚嶇О锛岀劧鍚庡啀鏍规嵁鏂板悕绉颁笌鏃у悕绉版潵鏋勫缓bat鍛戒护锛屽湪杩欓噷鎴戜滑涓烘瘡涓悕绉伴兘鏂板2022-鍓嶇紑銆1銆佹柊鍚嶇О鍏紡锛=鈥2022-鈥&A2锛岀劧鍚庡弻鍑诲彸涓嬭鈥+鈥濆彿鍚戜笅濉厖銆2銆丅at...
绛旓細鎵撳紑 Excel锛屽苟鎵撳紑浣犺鎵归噺淇敼鐨勬枃浠跺す銆傚湪 Excel 涓墦寮 VBA 缂栬緫鍣ㄣ備綘鍙互閫氳繃鎸変笅 Alt + F11 蹇嵎閿潵鎵撳紑瀹銆傚湪 VBA 缂栬緫鍣ㄤ腑锛岄夋嫨 "鎻掑叆" 鑿滃崟锛岀劧鍚庨夋嫨 "妯″潡"銆傚湪鏂板垱寤虹殑妯″潡涓紝澶嶅埗骞剁矘璐翠互涓嬩唬鐮侊細vba澶嶅埗浠ｇ爜 Sub鎵归噺淇敼Excel鏂囦欢()Dim MyFolder As String Dim MyFile As Str...
绛旓細鍦‥xcel涓紝鍙互浣跨敤鏌ユ壘鍜屾浛鎹㈠姛鑳芥壒閲忔洿鏀逛釜鍒瓧鐨勯鑹銆傚叿浣撴搷浣滄柟娉曞涓嬶細1.灏嗘暣涓伐浣滆〃澶嶅埗绮樿创鍒癢ord涓2.鍦╓ord涓寜Ctrl+H锛屼細鍑虹幇鈥滄煡鎵惧拰鏇挎崲鈥濆璇濇銆3.鍦ㄢ滄煡鎵惧唴瀹光濆尯鍩熻緭鍏ラ渶瑕佹洿鏀圭殑鏂囧瓧锛岀偣鍑烩滄洿澶氣濇寜閽4.鍦ㄦ墿灞曞紑鏉ョ殑閫夐」鍖哄煙鐐瑰嚮鈥滄牸寮忊濇寜閽紝閫夋嫨鈥滃瓧浣撯濄5.鍦ㄥ脊鍑虹殑瀵硅瘽...
绛旓細鏉愭枡/宸ュ叿锛Excel2010 1銆佸涓嬪浘鏈緥瑕佹眰灏咮鍒楃殑鈥滀笁鐝濆叏閮鎵归噺鏇挎崲鎴愨滃洓鐝濄2銆侀紶鏍囬変腑琛ㄦ牸涓鐨勪换鎰忓崟鍏冩牸锛屾湰渚嬩负A1鍗曞厓鏍硷紝鐒跺悗渚濇鐐瑰嚮銆愭暟鎹戜腑鐨勨滄帓搴忓拰绛涢夆-銆愮瓫閫夈戞寜閽3銆佺偣鍑籅1鍗曞厓鏍煎彸涓嬫柟鍑虹幇鐨勭瓫閫夋寜閽紝鍦ㄥ脊鍑虹殑鑿滃崟涓夋嫨鈥滀笁鐝濓紝鍏朵粬涓嶉夛紝鐒跺悗鐐瑰嚮銆愮‘瀹氥戞寜閽4...
绛旓細1銆侀鍏堟墦寮闇瑕佺紪杈戠殑Excel琛ㄦ牸锛岃繘鍏ュ埌缂栬緫椤甸潰涓2銆佺劧鍚庡湪鏃ユ湡鍚庨潰鐨勫崟鍏冩牸涓緭鍏ュ叕寮忊=REPLACE(REPLACE(F2,1,2,"13"),10,2,"14")鈥濓紝鍥炶溅纭畾銆3銆佺劧鍚庡氨鍙互灏12骞存敼涓13骞达紝13骞存敼涓14骞达紝鏈堜唤鍜屾棩鏈熶繚鎸佷笉鍙樸4銆佺劧鍚庨紶鏍囧乏閿偣鍑讳笅鎷夊～鍏呬笅闈㈢殑鍗曞厓鏍煎嵆鍙
绛旓細鐪嬩綘鐨勮繖浜涘唴瀹逛繚瀛樹綅缃槸鍚︽湁瑙勫垯锛屾瘮濡傛垜瑕佸皢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 ...
绛旓細Len(rng2.Value) 鈥 2) * 1 & 鈥淜N鈥滶nd If End Sub DatasArrange杩囩▼閬嶅巻宸ヤ綔绨挎墍鍦ㄦ枃浠跺す涓闄ゆ湰宸ヤ綔绨夸互澶栫殑鎵鏈夊伐浣滅翱锛屽皢宸ヤ綔绨夸腑褰撳墠宸ヤ綔琛ㄥ崟鍏冩牸G27鍜孏54涓殑鍊艰繘琛屼慨鏀癸紝鍏抽棴骞朵繚瀛樹慨鏀瑰悗鐨勫伐浣滅翱銆傝繍琛孌atasArrange杩囩▼锛屾壒閲忎慨鏀鏂囦欢澶逛腑鐨勫伐浣滅翱锛岃揪鍒版墍绀虹殑鏁堟灉銆備唬鐮佸浘鐗囩増濡備笅锛
绛旓細1銆佹墦寮鐢佃剳鎵惧埌骞剁偣鍑excel2016鐗堣蒋浠讹紱2銆佺偣鍑绘墦寮excel2016鐗堣蒋浠跺悗锛屼负浜嗙ず鑼冨厛鍦ㄧ┖鐧借〃鏍煎唴缂栬緫濂戒换鎰忕殑鏂囧瓧鏁版嵁锛3銆佺紪杈戝ソ鏂囧瓧浠ュ悗锛屾鏃惰嫢闇瑕佹妸琛ㄦ牸鍐呭叡鍚岀殑閮ㄤ唤鏁版嵁杩涜鏇存敼锛鍏堥変腑琛ㄦ牸锛4銆侀変腑琛ㄦ牸鍚庯紝鍦ㄥ彸涓婃柟鐨勫伐鍏锋爮涓鎵惧埌骞剁偣鍑绘煡鎵鹃夐」涓殑鏇挎崲鍛戒护锛6銆佽缃苟鍏ㄩ儴鏇挎崲鍚庯紝姝ゆ椂閫変腑鐨勮〃鏍...
