繁体   English   中英

VBA,对于每个下一个 - 如果此工作簿中的工作表名称等于另一个工作簿中的工作表名称

VBA, For Each Next - If sheet name in this workbook equals to a sheet name in another workbook

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

我有两个工作簿,有些工作表具有相同的名称。 我想将 Workbook TeamINSO 中工作表 A 中的一些数据导出(复制)到此工作簿(代码所在的位置)到具有相同名称的工作表中,但我被卡住了。 如何编写:遍历工作簿 TeamINSO 中的工作表,如果工作表名称等于此工作簿中的工作表名称,则复制范围?

For Each ws In TeamINSO.Worksheets
    If ws.Name = ThisWorkbook.Worksheets(ws.Name) Then
        Workbooks(TeamINSO).Worksheets(ws.Name).Range("A3:C400").Copy
               ThisWorkbook.Worksheets(ws.Name).Range("A2").PasteSpecial xlPasteValues
    Else
    End If
Next ws

感谢您的帮助。

1 个回复

你可以这样做:

Dim ws As Worksheet, wsD as Worksheet

For Each ws In TeamINSO.Worksheets
    'see if there's a match
    On Error Resume Next  'ignore error if no match
    Set wsD = ThisWorkbook.Sheets(ws.Name)
    On Error Goto 0       'stop ignoring errors
    'any match?
    If Not wsD Is Nothing Then
        'Transfer values 
        With ws.Range("A3:C400")
          wsD.Range("A2").Resize(.Rows.Count, .Columns.Count).Value = .Value
        End With
    End If

    Set wsD = Nothing 'set up for next iteration if any
Next ws
1 VBA:如果工作簿中的工作表名称等于从用户窗体中选择的组合框值,则复制该工作表并将其粘贴到另一个工作簿中

我正在处理一个用户窗体,该窗体将从工作簿A复制特定的工作表并将其粘贴到工作簿B中(实质上是将数据存档)。 用户表单向用户显示一个组合框下拉列表,以选择要复制的工作表名称。 但是,当我使用sheets.copy命令时,收到下标超出范围的错误。 这是我的代码,其名称经过修改以便于阅读: ...

2019-01-22 18:37:01 2 170   excel/ vba
2 VBA将信息从工作簿1中的工作表传输到另一个工作簿中具有相同工作表名称的工作表

当目标工作表名称是源工作表名称时,我想将信息从源工作簿传输到目标工作簿。 我实际上是VBA的新手,已经使用VBA 2个星期了,从字面上可以用Google搜索我的a $$折扣。 迄今为止,该网站已被证明是最好的选择。 我必须将许多信息以标准方式转换为其他格式,在这里我想通过以下代码自 ...

2015-05-15 11:06:21 2 96   vba
4 VBA 将工作表(带变量名)从另一个工作簿复制到当前工作簿并在当前工作簿中重命名

我一直在试图解决这个问题,并且有几次失败的尝试。 我正在尝试将另一个工作簿中的唯一工作表复制(最好只是移动)到当前工作簿中,并在当前笔记本中将其重命名为“源”一次。 问题是文件不在同一个文件夹中,但两者都将打开。 此外,要复制/移动的工作表的名称因每个实例而异。 我非常感谢您能提供的任何帮助。 ...

5 宏或VBA中的动态工作簿和工作表名称

我有这个有效的代码:(目前正在使用Excel 2003) 在当前工作簿“ Sheet 3”中,单元格J1 = Workbook2.xls单元格J2 =运行1 如何将当前工作簿“第3页”中的信息从单元格中馈送到宏中,以便可以根据需要进行更改并仍然有效? 我的意思是要有2个可以在 ...

8 Google表格:如何按工作表名称链接到工作簿中的另一个工作表

有没有办法使用目标的工作表名称链接到 Google 表格工作簿中的另一个工作表? 我已经看到其他帖子展示了如何做到这一点,但他们依赖于获取工作表的 gid。 我不能使用它,因为我需要它在 Excel 和 Google 表格中工作,并且我的工作簿是使用节点脚本动态创建的。 在 Excel 我可以写 = ...

9 根据“主”工作表的名称引用另一个工作簿中的工作表

编辑:解决; 我重新加载了Excel,运行了“查找/替换”,它才起作用 。 我正在将来自多个工作簿的生产力数据收集到一个“主”中,每本原始书都设置了相同的内容,并分别使用了1月,2月等。 在母版中是否可以引用源工作表而不必指定“月”,而只是从具有相 ...

10 将一个工作簿中的工作表中的VBA代码复制到另一个工作簿?

我一直在使用下面的代码将VBA模块从一个工作簿压缩到另一个工作簿,我不知道是否有更简单的方法,但它们一直工作正常: 但是现在我需要复制Sheet中的VBA代码,而不是模块中的VBA代码。 上述方法不适用于该场景。 我可以使用什么代码将工作表中的VBA代码从一个工作簿复制到另一个工 ...

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM