excel中用vb批量修改工作表？ 批量修改excel工作表名称，不会VB，回答时可否告知具体如...
excel vb \u6279\u91cf\u4fee\u6539\u5404\u5de5\u4f5c\u8868\u76f8\u540c\u5355\u5143\u683c\u5185\u5bb9\u6309\u4e0bALT+F11,\u83dc\u5355:\u63d2\u5165-\u6a21\u5757,\u590d\u5236\u4e0b\u5217\u4ee3\u7801.\u7136\u540e\u6309F5\u8fd0\u884c
Sub number()
Dim a As Integer
a = Sheets.Count
For x = 2 To a
Sheets(x).Select
Cells(1, 2).NumberFormatLocal = "@"
Cells(1, 2) = Format(8000 + x - 1, "00000")
Next
End Sub
1\u3001\u4f60\u7684\u4ee3\u7801\u662f\u4fee\u6539\u5f53\u524d\u6d3b\u52a8\u5de5\u4f5c\u7c3f\u7684\u6240\u6709\u8868\u540d\u4e3a 1\u30012\u30013\u3002\u3002\u3002\u7684\u529f\u80fd\u3002\u62ec\u53f7\u5185\u4e0d\u7528\u586b\u3002
\u76f4\u63a5\u5728\u8868\u683c\u4e2d \u6309 ALT+F8,\u7136\u540e\u9009\u62e9 rename \u8fd9\u4e2a\u5b8f \uff0c\u6267\u884c\u5373\u53ef\u3002
2\u3001\u4e0d\u660e\u767d\u4f60\u8981\u8868\u8fbe\u7684\u610f\u601d
excel中用vb批量修改工作表，根据你的补充描述和图片信息来看，可以直接使用Excel自带的VBA功能来完成，只有你简单的懂一点就可以了。
首先第一张表为总表，第二张表做一个模板表，如图一:
具体操作步骤如下:
1、按Alt+F11组合键进入VBA编辑器;
2、依次单击“插入”--“模块”，在模块中进行书写代码，写完了之后按F5执行代码即可。代码如下:
Sub 宏1()
Dim i
For i=1 to 32
Sheets(2).Copy After:=Sheets.Count
Sheets(i+2).Name=i
Sheets(i+2).Range(“B4”)=Sheets(1).Range(“A3”)
继续添加代码
Next
End Sub
图一如下:
代码及代码解释图如下:
需要定制的，可以建立新的沟通渠道上传文件。私信我或评论后我私信你。不免费。
绛旓細For i = 2 To 1000 璁緄浠2鍒1000锛屽氨鏄粠绗簩琛屽埌1000琛屾湁杈冦侷f Cells(i, 3) < 31 Then I鏄寚浠绘剰鐨勮锛宖or寰幆鍙樺姩銆3鍒欐槸鎸嘋鍒椼侰ells(i, 4).Interior.ColorIndex = 2 鍚岀悊锛4鏄寚D渚嬨VBA閲涓鑸笉鐢ˋ1瀹氫綅鍗曞厓鏍艰屾槸鐢紝cells(琛岋紝渚) ElseIf Cells(i, 3) < 46...
绛旓細浠ｇ爜鏀涓鸿繖鏍凤紝骞朵笖鏀惧埌ThisWorkbook锛屽氨鍙互鏁翠釜宸ヤ綔钖勯兘鍙互鐢ㄤ簡銆侾rivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)If Target.Column = 1 And Target.Value <> "" Then Cells(Target.Row, 3) = Now()End If End Sub ...
绛旓細鍔炲叕瀹ゆ湁涓鎵归噺鏇存敼鐓х墖鐨 鍗犱釜浣嶇疆 鏄庡ぉ涓婄彮鍐嶈创 鍗婂鎳掗噸鍐欎簡銆傜洰鏍囷細涓哄鍛樼収鐩 瀵煎叆鐢佃剳骞鎵归噺淇敼涓哄鍙峰姞濮撳悕 1銆侀鍏堝缓绔嬩竴涓EXCEL琛 鍏朵腑绗竴涓宸ヤ綔钖勫悕绉颁负鐓х浉椤哄簭琛 濡備笅鍥 Sub 鐓х墖閲嶅懡鍚()If MsgBox("绋嬪簭灏嗛噸鍛藉悕涓庢湰宸ヤ綔钖勫悓鐩綍涓嬬殑鎵鏈夌収鐗囨枃浠讹紝纭杩欐牱鍋氫箞锛", vbYesNo) <>...
绛旓細1銆併愮涓姝ャ 鎵撳紑闇瑕鎵归噺鏇存敼宸ヤ綔琛ㄥ悕绉扮殑宸ヤ綔绨匡紝鍦ㄧ涓涓伐浣滆〃涔嬪墠鎻掑叆涓涓柊鐨勫伐浣滆〃锛屽悕绉颁负鈥滅洰褰曗濓紝鍐嶅崟鍑诲埌鐩綍宸ヤ綔琛ㄤ腑 2銆併愮浜屾銆 鐢ㄩ紶鏍囧彸閿崟鍑烩滅洰褰曗濆伐浣滆〃鍚嶇О锛屽湪寮瑰嚭鐨勮彍鍗曚腑閫夋嫨鈥滄煡鐪嬩唬鐮佲濓紝涔嬪悗灏变細鎵撳紑浠ｇ爜缂栬緫鍣紝鎴栬呯洿鎺ユ寜涓嬬粍鍚堥敭Alt+F11鏉ユ墦寮浠ｇ爜缂栬緫绐楀彛銆3銆...
绛旓細澶х缁欎綘鏉ユvba 渚嬪瓙鐬х灖锛孲ub test()Dim xls_Folder As String xls_Folder = ThisWorkbook.Path & "\textxls"Dim xlsFiles() As String Dim fso, f, fc, s Set fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(xls_Folder)Set fc = f.Files s = ""For Each f1...
绛旓細sub 澶氭枃浠跺啓鍏 Dim XLS Xls = Dir(excel鏂囦欢澶硅矾寰 & "\*.xls")銆 '鎸囧畾瑕侀亶鍘唀xcel鏂囦欢鐨勮矾寰勫強鏂囦欢绫诲瀷 Do While Xls <> ""Set Xls = Workbooks.Open(excel鏂囦欢澶硅矾寰 & "\" & Xls) 銆'鎵撳紑excel鏂囦欢 Sheets(1).Select Sheets(1).Cells(1, 1).Value = "AAAA" '鍦ˋ1鍗曞厓鏍...
绛旓細excel鍙兘澶勭悊鑷甫鐨VBA浠ｇ爜锛屽惎鍔╒BA缂栬緫鍣ㄧ殑鏂规硶锛氬伐鍏--瀹--VB缂栬緫鍣 鎴栬 Alt+F11
绛旓細杩欎釜绠鍗曪紝鐪嬩笅闈唬鐮侊紙閫傚簲鍚勭増鏈Excel锛屼絾鍓嶆彁鏄畬鏁村畨瑁呯殑excel )Try Dim excelObj As Object = GetObject(, "Excel.Application") If excelObj.Workbooks.Count = 0 Then '娉ㄦ剰锛屽鏋滄槸鏂板缓鏈繚瀛樼殑宸ヤ綔绨夸笉绠楁墦寮 MsgBox("娌℃湁宸ヤ綔绨挎墦寮") excelObj = Nothing Exit Sub ...
绛旓細VB鎴戜笉澶細锛屾垜鏄敤鐨VBA锛屼唬鐮佸涓嬶細Public Sub 绠楀紡杞崲() Dim CXrng As Range For Each CXrng In Range("F4:F" & Range("F10000").End(xlUp).Row) CXrng.Value = Replace(CXrng.Value, "d", CXrng.Offset(0, -2).Value) NextEnd Sub ...
绛旓細'鍘绘帀淇濆瓨璀﹀憡瀵硅瘽妗嗭紝鎴戞槸杩欐牱鍐欑殑 Dim myExcel As New Excel.Application 鈥︹yExcel.DisplayAlerts = False --- 鑷充簬鏀瑰悕锛屾病鏈夊簲鐢ㄨ繃锛屼篃娌¤瘯杩囷紝鍙兘鏄繖鏍峰啓锛歋heets("Sheet1").Name = "鎴戠殑琛" '涓 Sheets("Sheet1") 鏀瑰悕
