新人求教，请问如何给每个工作簿的指定单元格赋值啊

拂晓东方1

先感谢各位专家。。。。
我之前一直使用函数做表，现在才发现vba的精妙之处，可惜时间太短，任务太急，没法静下心来认真研究，只好厚着脸皮恳请各位大哥大姐赐教，万分感谢。
我的需求是：
sheet1的单元格A1内容和B1的公式已经确定，我想在sheet1插入一个按钮，点击按钮后，执行如下操作：

判断sheet2是否存在，如果存在，让sheet2的a1格内容和b1格公式内容与sheet1相同；
判断sheet3是否存在。。。。
直到没有sheet为止~
我是新人小白，请问这个如何实现呀。。。。

现在我是根据sheet数量，一个一个往里输，又笨又费劲。。。。


Sub copy()
   Worksheets(Sheet2).Range("A1").Value = Worksheets("汇总").Range("A1").Value
   Worksheets(Sheet2).Range("B2:B200").Formula = Worksheets("汇总").Range("B2").Formula
   Worksheets(Sheet3).Range("A1").Value = Worksheets("汇总").Range("A1").Value
   Worksheets(Sheet3).Range("B2:B200").Formula = Worksheets("汇总").Range("B2").Formula
  End Sub

wang-way

把附件发上来 更容易得到大家的帮助

ynzsvt

1. Sub copyLike()
   
2. Dim Sh As Worksheet
   
3. For Each Sh In Worksheets
   
4.   If Sh.Name Like "Sheet*" Then
   
5.    Sh.Range("A1").Value = Worksheets("汇总").Range("A1").Value
   
6.    Sh.Range("B2:B200").Formula = Worksheets("汇总").Range("B2").Formula
   
7.   End If
   
8. Next
   
9. End Sub

复制代码

ynzsvt

1. Sub copy罗列()
   
2. Dim Sh As Worksheet, Arr, i&
   
3. Arr = Array("Sheet3", "Sheet2")
   
4. For i = 0 To UBound(Arr)
   
5.    Worksheets(Arr(i)).Range("A1").Value = Worksheets("汇总").Range("A1").Value
   
6.    Worksheets(Arr(i)).Range("B2:B200").Formula = Worksheets("汇总").Range("B2").Formula
   
7. Next
   
8. End Sub

复制代码

沈默00

提问上附件，不然写了你后面还是要再问

拂晓东方1

wang-way 发表于 2024-7-3 00:43
把附件发上来 更容易得到大家的帮助

谢谢大佬提醒，我上传了

拂晓东方1

ynzsvt 发表于 2024-7-3 06:22

哥，我输入这套指令以后点击没反应呢，我上传附件了，麻烦您再给看看呀，谢谢了

拂晓东方1

沈默00 发表于 2024-7-3 07:15
提问上附件，不然写了你后面还是要再问

谢谢大佬提醒，我上传附件了，烦请您给指导指导，谢谢了

拂晓东方1

ynzsvt 发表于 2024-7-3 06:25

大佬，我的工作表不止两个呢，我不知道怎么修改了，我上传了附件，烦请您有空再给看看啊，非常感谢

拂晓东方1

也衷心感谢版主这么晚还给审核通过，谢谢