excel工作簿中各工作表同一位置怎么批量修改

2024-12-22 09:51:16

推荐回答（5个）

回答1：

鉴于题干中比较明确的“批量修改”要求，推荐VBA, 代码如下：

Sub tst()
Dim i%
For i = 1 To Sheets.Count
 Sheets(i).Cells(1, 1) = "test"
Next
End Sub

以上的代码实现的是在左右工作表中的A1单元格位置输入“test”。

若需要设置为不同的值，可以事先将不同值按照顺序输入到单元格中，如下例：在sheet1！b列输入源数据，实现sheet1!a1=b1, sheet2!a1=b2,以此类推。

Sub tst()
Dim i%, j%
For i = 1 To Sheets.Count
 j = j + 1
 Sheets(i).Cells(1, 1) = Cells(j, 2)
Next
End Sub

回答2：

刚试过，这样是可以的：
选中所有表格，在表格中找一个每个表都不会有数据的单元格（比如a1000)，输入 =a8 （这里的a8就是你要加相同词的那个单元格），这样做是一次把所有表中a8单元格的内容给挪个地方，
然后再复制——选择性粘贴——数值，去掉公式。
接下来在a8里输入="相同词"&a1000，就给所有表中的a8单元格都加上了相同的内容，
当然，还得再来一次：复制——选择性粘贴——数值

回答3：

能，这是可以实现的。首先选中全部工作表，然后执行编辑、查找，点替换，在需要查找的内容处输入需要添加词的地方的前一个字符，替换处还输入那个字符另外再输入要加的那个词，最后点击全部替换

回答4：

能的，先选中所有的表格，然后再在你想输入的地方输入就可以了，你输入一个，所有的表都会出现

回答5：

全选修改是可行的，先全选工作表，然后双击G4单元格，然后在最后加上“左导洞上台阶”这几个字，按回车即可