Excel中如何多個工作簿同一位置表格添加不同數(shù)字
1、點擊頂部的“開發(fā)工具”锦秒。
如果沒有開發(fā)工具斥废，點頂部的文件---選項词渤，自己去選項里或選項的自定義功能區(qū)里找，找到后打上勾隆檀，點確定，頂部就有開發(fā)工具了。
2劫映、點“Visual Basic”打開VB編輯器。
3壕曼、在畫藍框的區(qū)域內(nèi)的 任意位置苏研，點右鍵---插入模塊。
4腮郊、點擊模塊摹蘑。
5、在右側粘貼代碼轧飞。
6衅鹿、點畫紅圈的按鈕運行代碼。
OK过咬，1秒內(nèi)給你把表頭都加上數(shù)字大渤。
1.png
此含義：在表頭需要添加數(shù)字60，第二個表頭添加數(shù)字61掸绞，依次遞增泵三，一直往下添。
具體要添加數(shù)字的單元格是哪個單元格衔掸，在代碼里把B2改為你需要的代碼即可
為方便復制烫幕，貼出代碼如下：
Sub 添加表頭數(shù)字()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Range("B2") = Sheets(i).Range("B2") & 59 + i
Next
End Sub
2
自己改的，給第一個表格的A6添加 BOM011112敞映，其他表格開始依次遞增
Sub 添加表頭數(shù)字()
Sub 添加表頭數(shù)字()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Range("A6").Value = "BOM0"
Sheets(i).Range("A6") = Sheets(i).Range("A6") & 11111 + i
Next
End Sub
