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

发布网友 发布时间：2022-02-26 03:13

我来回答

共6个回答

热心网友 时间：2022-02-26 04:42

鉴于题干中比较明确的“批量修改”要求，推荐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

热心网友 时间：2022-02-26 06:00

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

热心网友 时间：2022-02-26 07:35

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

热心网友 时间：2022-02-26 09:26

如果原来的内容不相同，选中所有工作表进行操作，是不可以的，还是用vba吧
你把单元格位置以及要怎样加一个词写出来，帮你写段代码。追问位置G4，加上“左导洞上台阶”这几个字在原有内容后

热心网友 时间：2022-02-26 11:34

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

热心网友 时间：2022-02-26 13:59

能的，先选中所有的表格，然后再在你想输入的地方输入就可以了 ，你输入一个，所有的表都会出现追问我都说了那样改了 原来的内容就变了，比如表1那里写的是1，表2那里写的是2，我选中所有表格添加一个词的话，表1，表2里的内容就都一样了，这不是我想要的