批量修改excel里面日期。文件里面有很多不同的日期，要把所有日期都延后40天，求办法
\u600e\u4e48\u624d\u80fd\u6279\u91cf\u4fee\u6539\u591a\u4e2aEXCEL\u6587\u4ef6\u8868\u683c\u91cc\u9762\u7684\u540c\u4e00\u65e5\u671f\uff1f\u5f55\u5236\u4e00\u4e2a\u67e5\u627e\u66ff\u6362\u7684\u5b8f\uff0c\u7528dir\u3001for\u3001open\u3001close\u6784\u6210\u4e00\u4e2a\u5faa\u73af
40天后含周末:=A2+40
40个工作日后:=WORKDAY(A2,40)
40个工作日后（国定假日也不算）=WORKDAY(A2,40)-COUNT(F2)
用VBA实现、
贴子里贴代码一般都不能発布成功。
下面试试
Sub 延后40天()
'选择活动工作薄中的所有有值的单元格
'注意:用公式写入的值不算做操作范围
ActiveCell.SpecialCells(xlTextValues).Select
'循环所有有值的单元格
For Each scell In Selection.Cells
'如果单元格值为日期
If IsDate(scell.Value) Then
'加40天(延后40天)
scell.Value = DateAdd("D", 40, scell.Value)
DoEvents
End If
DoEvents
Next scell
End Sub
上面SUB 开始到 END SUB的段是VBA代码。
把代码复制一下。
打开要编辑的EXCEL
按ALT+F11
工程中加一个模块
把代码贴到模块中，光标定位到代码中间
然后按F5运行。
每运行一次所有单元格中的日期都延后40天。注意不要运行多次哦。
新加一列，格式设置成日期。C2里输入（假如是C列，B列是原来日期）=B2+40，然后下拉到最后。
复制C列，选中B列，选择性粘贴选数值。这时B列就变成延后40天的日期了。再删除C列。
如果原有日期在A2开始，哪么就在B2中输入=A2+40下拉到你所需要的地方，或者当鼠标在单元格的右下角出现十字时双击
把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）、excel样表文件（请特别注意：要03版的(如果是03以后的，把文件“另存为”一下，类型框可以选择03的），把现状和目标效果表示出来）作为附件发来看下 [email protected]
绛旓細涓銆佷互涓嬮潰杩欏紶琛ㄤ负渚嬶紝瑕鏇存敼鏃堕棿鏃ユ湡鐨勬牸寮忥紝杩欐椂閫変腑鎵鏈夋棩鏈燂紝鍙抽敭鐐瑰嚮锛岃彍鍗曞唴鐐瑰嚮鈥滆缃崟鍏冩牸鏍煎紡鈥濄備簩銆佹牸寮忕獥鍙ｅ唴閫夋嫨鏃ユ湡鍐呯殑涓涓牸寮忥紝鐐瑰嚮鏍煎紡绐楀彛鈥滅‘瀹氣濄備笁銆佽繖鏃惰兘澶熺湅鍒帮紝鏍煎紡骞舵湭鏀瑰彉锛岄渶瑕佹墜鍔ㄥ弻鍑讳竴涓嬪崟鍏冩牸鎵嶈兘澶熸敼锛岃繖鏃跺彲浠ョ偣鍑烩滄暟鎹濋夐」涓嬬殑鈥滃垎鍒椻濄傚洓銆佸垎鍒楃涓姝ュ嬀閫夆...
绛旓細1. 鎵撳紑鎮ㄩ渶瑕淇敼鏃ユ湡鐨Excel琛ㄦ牸銆2. 浣跨敤蹇嵎閿瓹trl+F璋冨嚭鈥滄煡鎵锯濆姛鑳姐3. 鎴栬咃紝閫氳繃鑿滃崟鏍忛夋嫨鈥滃紑濮嬧濋夐」鍗★紝鐒跺悗鐐瑰嚮鈥滄煡鎵炬浛鎹⑩濄4. 鍦ㄢ滄煡鎵惧唴瀹光濇涓緭鍏ユ偍鎯宠鏇挎崲鐨勬棩鏈熷勾鏈堟牸寮忋5. 鍦ㄢ滄浛鎹负鈥濇涓杈撳叆鏂扮殑鏃ユ湡骞存湀鏍煎紡銆6. 閫夋嫨鈥滃叏閮ㄦ浛鎹⑩濅互鎵归噺淇敼鎵鏈夊尮閰嶇殑鏃ユ湡銆傞氳繃浠ヤ笂...
绛旓細鍦Excel涓锛淇敼鏃ユ湡鏃跺彧闇璋冩暣骞翠唤锛岃屾湀鏃ヤ繚鎸佷笉鍙樼殑鎿嶄綔鐩稿綋鐩存帴銆備互涓嬫槸鍏蜂綋姝ラ锛氶鍏堬紝鎵撳紑浣犳鍦ㄥ鐞嗙殑Excel宸ヤ綔琛紝纭繚浣犲浜庣紪杈戞ā寮忋傛帴鐫锛岄夊畾浣犳兂瑕鏇存敼鐨勬棩鏈熸墍鍦ㄧ殑鍗曞厓鏍硷紝渚嬪F2銆傚湪鏂扮殑鍗曞厓鏍间腑锛岃緭鍏ヤ互涓嬪叕寮忥細鈥=REPLACE(REPLACE(F2,1,2,13),10,2,14)鈥濄傝繖涓叕寮忕殑浣滅敤鏄皢鍘...
绛旓細棣栧厛锛屽惎鍔ㄤ綘鐨Excel宸ヤ綔琛ㄥ苟杩涘叆缂栬緫妯″紡銆傛壘鍒颁綘闇瑕鏇存敼鏃ユ湡鐨勫崟鍏冩牸锛岃繖浜涢氬父鏄棩鏈熸牸寮忕殑鏁版嵁銆傛帴涓嬫潵锛岃緭鍏ヤ竴涓叕寮忔潵鏇挎崲骞翠唤閮ㄥ垎銆傚湪鍗曞厓鏍煎唴锛屼娇鐢"=REPLACE(REPLACE(F2,1,2,13),10,2,14)"銆傝繖閲岋紝F2浠ｈ〃浣犲綋鍓嶇殑鍗曞厓鏍间綅缃紝1-2琛ㄧず寮濮嬫煡鎵剧殑浣嶇疆锛13鏄師骞翠唤鐨勫墠涓や綅锛10-2鏄浛鎹㈢殑...
绛旓細Excel涓壒閲忎慨鏀规棩鏈鏍煎紡 鍥句笅鎵绀虹殑瀛楃涓 鎴戜滑闇瑕佽繘琛屼竴涓棩鏈熸牸寮忕殑淇敼 閿欒婕旂ず 锛 閮ㄥ垎浜鸿 鐩存帴鍙冲嚮閫夋嫨璁剧疆鍗曞厓鏍兼牸寮 灏嗗畠鏍煎紡淇敼涓烘棩鏈熸牸寮 灏变細鏀瑰彉 浣嗗疄闄呮槸閿欒鐨 姝ｇ‘鏂瑰紡 锛 閫変腑鐩爣鍖哄煙閫夋嫨鏁版嵁涓殑鍒嗗垪 鍙牴鎹浘涓嬭繘琛岄夋嫨 寮瑰嚭濡備笅閫夐」妗 鐩存帴鐐瑰嚮涓嬩竴姝 鍚屾牱濡備笅鐐瑰嚮涓嬩竴姝 涔嬪悗...
绛旓細YMD)---瀹屾垚 鍐嶈缃鍗曞厓鏍兼垨鍗曞厓鏍煎尯鍩---鑷畾涔---绫诲瀷涓杈撳叆 e-mm-dd 鎴 YYYY-MM-DD 鏂规硶浜 閫変腑鏁版嵁鎵鍦ㄥ崟鍏冩牸鎴栧崟鍏冩牸鍖哄煙---鑷畾涔---绫诲瀷涓緭鍏 0-00-00 鏂规硶涓 鍦˙1鍗曞厓鏍艰緭鍏ュ叕寮 =TEXT(A1,"0-00-00")涓嬫媺澶嶅埗鍏紡 ...
绛旓細Excel鎵归噺淇敼骞翠唤锛屾湀鏃ヤ笉鍙樼殑鏂规硶锛氬伐鍏峰師鏂 win10 Excel2019 鐢佃剳鑱旀兂y7000 1銆侀鍏堟墦寮Excel锛屽彲浠ョ湅瑙鏃ユ湡鏄2022骞寸殑鏃ユ湡锛岀偣鍑汇愭煡鎵俱戝涓嬪浘鎵绀猴細2銆佸啀鐐瑰嚮銆愭浛鎹戝湪鏌ユ壘鍐呭閲濉啓銆2022銆戞浛鎹负鍐呭閲屽～鍐欒鏇挎崲鐨勫勾浠斤紝鍐嶇偣鍑汇愬叏閮ㄦ浛鎹戯紝濡備笅鍥炬墍绀猴細3銆佸啀鐐瑰嚮銆愮‘瀹氥戝涓嬪浘鎵绀猴細4銆...
绛旓細瑕佸湪Excel涓壒閲忎慨鏀规棩鏈鐨勫勾浠斤紝鍚屾椂淇濇寔鏈堜唤鍜屾棩鏈熶笉鍙橈紝鍙互鎸夌収浠ヤ笅姝ラ鎿嶄綔锛1. 鎵撳紑Excel琛ㄦ牸銆2. 鐐瑰嚮宸ュ叿鏍涓殑銆愭煡鎵惧拰鏇挎崲銆戞寜閽3. 鍦ㄤ笅鎷夎彍鍗曚腑閫夋嫨銆愭浛鎹戦夐」銆4. 鍦ㄥ脊鍑虹殑鏇挎崲瀵硅瘽妗嗕腑锛岃緭鍏ユ偍鎯宠鏌ユ壘鐨勫勾浠芥ā寮忥紝渚嬪鈥202[0-9]*鈥濄5. 鍦ㄢ滄浛鎹负鈥濇涓緭鍏ユ柊鐨勫勾浠斤紝渚嬪鈥...
绛旓細鍙互鎸夌収浠ヤ笅姝ラ鍦excel涓壒閲忎慨鏀规棩鏈骞存湀鐨勬柟娉曪細1銆佹墦寮鎵闇瑕佷慨鏀圭殑Excel琛ㄦ牸锛2銆侀氳繃蹇嵎閿寜Ctrl+F锛岃皟鍑烘浛鎹㈣彍鍗曘3銆佹垨鑰呴氳繃鑿滃崟鏍忥紝鎵惧嚭鈥滄煡鍒舵壘銆佹浛鎹⑩濄4銆佽緭鍏ヨ淇敼鐨勫勾鏈堛5銆佹浛鎹㈡垚瑕佺殑骞存湀锛屾寜涓嬧滃叏閮ㄦ浛鎹⑩濄6銆佸嵆鍙壒閲忚繘琛屾搷浣滀慨鏀圭殑銆
绛旓細Excel鎵归噺淇敼鏃ユ湡鏍煎紡鏂规硶濡備笅锛氬伐鍏凤紡鍘熸枡锛氭満姊伴潻鍛2021銆乄in10銆丮icrosoft Excel2016 1銆佹墦寮涓涓狤xcel鏂囨。锛屾墦寮涓涓〃鏍兼枃浠躲2銆侀変腑琛ㄦ牸涓墍鏈夋棩鏈熺殑鍗曞厓鏍笺3銆佺偣鍑婚紶鏍囧彸閿紝鐐瑰嚮璁剧疆鍗曞厓鏍兼牸寮忥紝璋冨嚭鍗曞厓鏍兼牸寮忚缃獥鍙ｃ4銆佺偣鍑荤獥鍙ｅ乏杈圭殑鏃ユ湡鍚庯紝閫夋嫨绐楀彛鍙宠竟涓娆炬棩鏈熸牸寮忕被鍨嬨5銆佹渶鍚庯紝鐐瑰嚮绐楀彛...
