excel表格只有个别单元格不同，其他单元格相同，怎么批量生产

dazhuangge

，如图，黄色的那个单元格分别是一层、二层、三层、、、、、。，其他的内容不变，应该怎么操作？

jians0529

不同工作表还是同一工作表？具体还是上附件好些！

dazhuangge

jians0529 发表于 2022-3-14 14:08
不同工作表还是同一工作表？具体还是上附件好些！

附件已上传，就这个是一个工作表，然后在出现很多个新的工作表，他们只有黄色的那个单元格不一样，其他的都一样

jians0529

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,9)&"地面内"
直接把你新工作表名称改成你想要显示的即可！

dazhuangge

jians0529 发表于 2022-3-14 14:17
=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,9)&"地面内"
直接把你新工作表名称改成你想要 ...

如果我需要1000个这样的，只能通过VBA来实现吗？

jians0529

dazhuangge 发表于 2022-3-14 14:19
如果我需要1000个这样的，只能通过VBA来实现吗？

如果单独 一 二 三 十 二十这样也可以用其它公式达成。
如果真有那么多那不是考虑VBA！

dazhuangge

jians0529 发表于 2022-3-14 14:25
如果单独 一 二 三 十 二十这样也可以用其它公式达成。
如果真有那么多那不是考虑VBA！

Sub AuToCopySheets()
Dim i, j As Integer

i = 1

j = 1

For i = 1 To 30   '循环30次，相当于复制30个工作表

j = j + 1

    Sheets("第1页").Copy After:=Sheets(Sheets.Count)              '复制工作表《第1页》

    Sheets(Sheets.Count).Name = "8" & "." & i                   '重命名工作表

    Sheets(Sheets.Count).Range("E7") = "2017年8月" & i & "日"   '单元格E7自动填写相应的日期


Next

End Sub

dazhuangge

jians0529 发表于 2022-3-14 14:25
如果单独 一 二 三 十 二十这样也可以用其它公式达成。
如果真有那么多那不是考虑VBA！

Sub AuToCopySheets()
Dim i As Integer

i = 1

For i = 1 To 26   '循环30次，相当于复制30个工作表


    Sheets("第1页").Copy After:=Sheets(Sheets.Count)              '复制工作表《第1页》

    Sheets(Sheets.Count).Name = i & "层地面"                   '重命名工作表

    Sheets(Sheets.Count).Range("E7") = i & "层地面"


Next

End Sub

dazhuangge

jians0529 发表于 2022-3-14 14:25
如果单独 一 二 三 十 二十这样也可以用其它公式达成。
如果真有那么多那不是考虑VBA！

居然不让回复VBA代码

wlmhit903

dazhuangge 发表于 2022-3-14 14:19
如果我需要1000个这样的，只能通过VBA来实现吗？

excel能支持上千个工作表吗？恐怕得分工作簿了，
图中文字说明里，也得有变化吧？看到也有”一层地面“的字样

刚看了一下，好像新版的是支持上千个工作表的，那就可以做一个辅助工作表，把需要变的数据从A2写入一列，然后用INDIRECT("Sheet1!A" & SHEET())来读取。