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

Question

excel工作簿里多张表格，表格形式一样，所填内容不同，我想把各个工作表中同一位置的数据同时加上一个词，用选定全部工作表的话，全部工作表那个位置的内容就一样了！ 能批量修改么？？？我不会宏

Answer 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

Answer 2

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

Answer 3

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

替换不行，我那个位置的内容全都不一样 豪无规律，最近的字符也全部不一样

Answer 4

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

我都说了那样改了 原来的内容就变了，比如表1那里写的是1，表2那里写的是2，我选中所有表格添加一个词的话，表1，表2里的内容就都一样了，这不是我想要的

Answer 5

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