excel批量修改多个工作簿文件中同一位置的数据
最近，有位朋友咨询：“有很多Excel文件是从软件中直接生成的，有些数据**.**KN是软件自动填写上去的，但是因为数据单位的问题，每次都需要将其手动更改为***.*KN。一般来说，都是几十个这样的文件，手动修改的工作量很大，所以想请教一下，看有没有简便的方法。”
他给的工作簿中，要修改两个位置的数据，分别为单元格G27和G54，其格式都是**.**KN，将其修改为***.*KN。如下所示。
使用VBA可以完成上述任务。代码如下：
Sub DatasArrange()
Dim strPath As String
Dim strName As String
Dim Wb As Workbook
Dim rng1 As Range
Dim rng2 As Range
‘获取文件夹路径和工作簿
strPath = ThisWorkbook.Path &”\”
strName = Dir(strPath &”*.xls*”)
On Error Resume Next
Application.ScreenUpdating = False
‘遍历文件夹中的工作簿
‘代码所在的工作簿除外
Do While strName > “”
If strName > ThisWorkbook.NameThen
Set Wb = Workbooks.Open(strPath& strName)
‘要修改的单元格
‘可根据实际调整
Set rng1 = Range(“G27”)
Set rng2 = Range(“G54″)
‘传递到修改值的子过程
ModifyDatas rng1, rng2
‘关闭并保存工作簿
Wb.Close True
End If
‘获取下一个工作簿
strName = Dir
Loop
Application.ScreenUpdating = True
End Sub
‘修改所接收的单元格中的值
Sub ModifyDatas(rng1 As Range,rng2 As Range)
On Error Resume Next
‘加一个判断条件,防止每运行一次就更改单元格值
If Mid(rng1, Len(rng1) – 3, 1) >”.” Then
rng1.Value = Left(rng1.Value,Len(rng1.Value) – 2) * 1 & “KN”
End If
If Mid(rng2, Len(rng2) – 3, 1) >”.” Then
rng2.Value = Left(rng2.Value,Len(rng2.Value) – 2) * 1 & “KN”
End If
End Sub
DatasArrange过程遍历工作簿所在文件夹中除本工作簿以外的所有工作簿，将工作簿中当前工作表单元格G27和G54中的值进行修改，关闭并保存修改后的工作簿。
运行DatasArrange过程，批量修改文件夹中的工作簿，达到所示的效果。
代码图片版如下：
绛旓細澶嶅埗浠ヤ笅vb浠ｇ爜鍒皏b缂栬緫鍣ㄤ腑锛歋ub mname()'鎵归噺淇敼澶氫釜excel鍐呮寚瀹氱殑宸ヤ綔琛鐨勮〃鍚 Dim filename As String, twb As Workbook '瀹氫箟鍙橀噺 Application.ScreenUpdating = False '鍏抽棴灞忓箷鏇存柊 Application.DisplayAlerts = False '涓嶆樉绀洪渶瑕佺‘瀹氬垹闄ょ殑璀﹀憡淇℃伅 filename = Dir(ThisWorkbook.Path & "\浜斿骇...
绛旓細姣斿锛岃繖閲岄渶瑕佹妸11.20杩欎釜鏂囦欢澶归噷闈㈢殑鎵鏈夌殑excel琛ㄦ牸鍚嶇О鎵归噺淇敼涓涓嬶紝褰撶劧杩欓噷鏄紨绀猴紝琛ㄦ牸涓嶅锛屽彲浠ヤ竴涓竴涓殑璇ワ紝浣嗘槸濡傛灉鏄湁寰堝鐨勶紝閭ｄ箞涓涓竴涓殑鏀癸紝灏遍潪甯歌垂鍔蹭簡銆傜涓姝ワ紝鍏堟妸鈥11.20鈥濊繖涓枃浠跺す锛屾暣涓嫋鍔ㄥ埌娴忚鍣紝鑾峰彇鏂囦欢绱㈠紩锛岀洰鍓嶆敮鎸佺殑娴忚鍣ㄤ笉鏄緢澶氾紝杩欓噷浣跨敤360娴忚鍣紝褰撶劧...
绛旓細D2鍚戜笅鍏呭～锛屽氨灏嗕富琛―鍒楃殑鏁版嵁寮曠敤鍒板綋鍓嶈〃鏍间簡銆2.鐢╒B...鎵归噺淇敼澶氫釜excel琛ㄦ牸鍚屼竴鍗曞厓鏍煎唴鐨勬暟鎹 鍦ㄤ竴涓宸ヤ綔绨褰撲腑鍚楋紵 鎸変綇crtl閫変笅闈㈢殑宸ヤ綔琛鏍囩锛岄変腑鎵鏈夐渶瑕佹敼鍔ㄧ殑宸ヤ綔琛紝鍐嶆敼閭ｄ釜鍗曞厓鏍煎氨鍙互浜 濡備綍鍦excel涓壒閲忎慨鏀鐩稿悓鍐呭鐨勫崟鍏冩牸 鎶婇棶棰樹綔涓哄唴瀹癸紙閭欢涓婚涓瀹氳鍖呭惈鈥渆xcel鈥,...
绛旓細姝ゆ椂锛屼綘鍙鍦ㄥ叾涓殑涓涓崟鍏冩牸杈撳叆涓涓暟瀛楋紝姣斿鍦ˋ3鍗曞厓鏍艰緭鍏ヤ竴涓8锛屽垯鎵鏈夐変腑鐨宸ヤ綔琛鐨凙3鍗曞厓鏍奸兘杈撳叆浜嗕竴涓8銆傜敱浜庡伐浣滅粍鎿嶄綔鏄竴涓潪甯稿嵄闄╃殑鍔ㄤ綔锛屼笉鏄緢娓呮鐨勭浉瀵归珮鎵嬭繕鏄笉瑕佹搷浣滀负濡欙紝鍥犱负锛屼竾涓浣犱竴鎿嶄綔锛岃涓嶅畾鍝釜宸ヤ綔琛ㄤ腑鐨勬暟鎹綘璇鏀鎴栬呰鍒犱簡锛屼笖寰堥毦鎵惧埌鍙戠幇鐨勩
绛旓細Excel 鎵归噺淇敼宸ヤ綔绨鍚嶇О鏂规硶璇﹁锛歨ttps://jingyan.baidu.com/article/e9fb46e176af787521f766dd.html
绛旓細鍦宸ヤ綔琛ㄨ缃鏍煎紡鏃讹紝瑕佸鎵鏈夊伐浣滆〃涓娆℃ц缃浉鍚屾牸寮忥紝鎴戠浉淇℃惌寤哄熀鏈笂閮芥槸涓涓竴涓缃紝浠婂ぉ灏忕紪涓哄ぇ瀹跺垎浜Excel鎵归噺灏嗕竴涓伐浣滆〃鏍煎紡搴旂敤浜庢墍鏈夊伐浣滆〃鐨勬柟娉曪紝涓璧峰幓鐪嬬湅鍚э紒鏂规硶锛1銆佹墦寮涓涓伐浣滆〃 2銆佹垜浠夋嫨鏈夋暟鎹殑鍖哄煙 3銆侀紶鏍囦笅绉诲埌宸ヤ綔琛ㄦ爣绛句綅缃紝鍗曞嚮榧犳爣鍙抽敭寮瑰嚭濡傚浘鏁堟灉 4銆侀夋嫨锛...
绛旓細棣栧厛锛屾墦寮浣犵殑Excel宸ヤ綔绨锛屾壘鍒伴渶瑕淇敼鏍煎紡鐨勯偅閮ㄥ垎鏁版嵁銆傛帴鐫锛屼娇鐢ㄩ敭鐩樺揩鎹烽敭Ctrl+A锛岃繖灏嗗揩閫熼変腑宸ヤ綔琛涓殑鎵鏈夊崟鍏冩牸锛屾棤璁烘槸琛岃繕鏄垪锛屼竴缃戞墦灏姐傜劧鍚庯紝鍙抽敭鐐瑰嚮閫変腑鐨勫崟鍏冩牸锛岃繖鏍蜂細寮瑰嚭涓涓彸閿彍鍗曘傚湪鑿滃崟涓紝閫夋嫨鈥璁剧疆鍗曞厓鏍兼牸寮忊濓紝杩欏皢鎵撳紑涓涓柊鐨勫璇濇锛岃浣犲彲浠ラ拡瀵归変腑鐨勫崟鍏冩牸...
绛旓細鍦ㄥ脊鍑虹殑銆愭樉绀烘姤琛ㄧ瓫閫夐〉銆戠殑鎻愮ず妗嗗唴锛屽彲浠ョ湅鍒帮紝瑕佸皢銆愰儴闂ㄣ戜綔涓鸿鏄剧ず鐨勬姤琛ㄧ瓫閫夐〉锛岀偣鍑汇愮‘瀹氥戝嵆鍙傝璇佸杩圭殑鏃跺埢鍒颁簡锛宸ヤ綔钖鐨勫伐浣滆〃鍚嶇О绔嬪埢鍙樻垚浜嗘垜浠渶瑕佺殑鍚勪釜閮ㄩ棬浜嗐excel涓濡備綍鎵归噺鏇存敼宸ヤ綔琛鐨勫悕绉 excel涓浣曟壒閲忔洿鏀瑰伐浣滆〃鐨勫悕绉 鏈鍚庯紝鍙渶瑕佹竻闄ゆ瘡涓伐浣滆〃鐨勫唴瀹癸紝浣挎瘡涓伐浣滆〃...
绛旓細杩愯浠ュ悗鍏朵粬宸ヤ綔绨块噷闈㈢殑宸ヤ綔琛ㄥ氨鍏ㄩ儴澶嶅埗鍒版眹鎬诲伐浣滅翱涓簡銆傚湪瀹為檯浣跨敤涓渶瑕佹敞鎰忕殑鏄紝杩欓噷鐨勮矾寰勯渶瑕鏇存敼涓虹洰鏍囨枃浠跺す璺緞锛屾眹鎬诲伐浣滆〃濡傛灉涓嶆槸鍚敤瀹忕殑宸ヤ綔绨匡紝涔熼渶瑕淇敼鍚嶇О鍜屾墿灞曞悕锛岄槻姝㈣繍琛屾椂鍑虹幇閿欒銆備互涓婂氨鏄娇鐢Excel VBA灏澶氫釜宸ヤ綔绨鐨勫叏閮ㄥ伐浣滆〃鍚堝苟鍒颁竴涓伐浣滅翱涓殑鏂规硶浜嗐傚叧浜嶰ffice鍔炲叕...
绛旓細鐢ㄥ畯鍙互瑙ｅ喅鐨勩傚皢杩欎簺宸ヤ綔绨鏀惧埌涓涓枃浠跺す锛堝彧鏈夎繖浜Excel鏂囦欢锛屼笖鑻ユ墦寮鏌愪竴鏂囦欢锛屾暟鎹氨鑳界湅瑙佲斺斿嵆涓嶇敤鐐瑰叾浠杝heet锛夛紝寤轰竴鏂癊xcel锛屼篃瀛樺埌璇ユ枃浠跺す銆備粎鎵撳紑璇ユ柊Excel锛屽悓鏃舵寜Alt+F11杩涘叆瀹忕晫闈紝鐐硅彍鍗曠殑鎻掑叆锛屾ā鍧楋紝绮樿创濡備笅浠ｇ爜锛歋ub Find()Application.ScreenUpdating = False Dim MyDir As ...
