繁体   English   中英

从具有部分名称关系的工作表中复制数据

Copy data from worksheets with partial name relation

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

我正在尝试从工作簿中每个工作表中复制名称为“ ANALYSIS E 000002”,然后是“ ANALYSIS E 000002”的数据,直到“ ANALYSIS E 000012”。 有些在此字符串后有一个副本号,即“ ANALYSIS E 000002(3)”。

因此,我首先执行了vba代码,该代码将工作簿中的每个工作表都添加到一个工作表中,并将它们的内容添加到一个合并的工作表中。 它可以完美工作,但现在我需要对其进行调整以仅选择我指定的字符串。 我需要用不同的名称来做。

从以下代码开始:

Sub Combine_ea()
Dim J As Integer
On Error Resume Next

Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1:A2").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1:A2")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A3").Select
Selection.CurrentRegion.Select
Selection.Offset(2, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A99999").End(xlUp)(2)
Next

End Sub

我认为最好的方法是制作一个For循环,以到达由Iterator完成的每个字符串,然后执行我的算法。 我现在不确定如何适应我的代码。 需要你们的帮助。

2 个回复

您可以使用“喜欢”。

例如,

If Sheets(1).name like "Analisis*"
then 
--Your code here
End If

好的,正如我所看到的,您不需要将所有信息粘贴到工作表中,您可以使用输入框询问用户要查找的字符串的名称,然后查找称为方式,然后查找包含您要查找的单词的范围。 这是一个例子:

Sub example()

Dim res As String
Dim no As Integer

res = InputBox("Write the name you want to look for")
no = Len(res)  'gets the amount of characters in the string


For i = 2 To Worksheets.Count

If Left(Worksheets(i).Name, no) = res Then 'reads the name of the worksheet form left 
to right
                                       'gets the number of characters in the variable 
                                        no and compares the substring with the string 
                                        res


      'if you are here it means the worksheets is called as you out in your input box
      'from here you can do what you want, use the same structure to look inside the 
       cells

End If

End Sub
1 使用SQL将数据从工作表复制到同一工作簿中的其他工作表?

我想使用SQL在同一工作簿中的工作表之间移动数据。 我的工作表很大(宽度和深度),并且处理VBA的速度很慢。 情况是我有工作表1至5。 我想用工作表1 -5中的一两列创建工作表(6)。 索引键是SKU,并且对所有工作表通用。 首先,按SKU对所有工作表进行排序。 当我 ...

2 复制和粘贴来自不同工作表的数据

我正在尝试使用VB脚本将excel sheet1中的数据复制到sheet2。 问题是我想粘贴从A1开始的复制数据,并将A1中的当前数据推到新数据的底部。 到目前为止,我的代码仅涉及权利,请看以下内容: ...

3 Excel从多个工作表复制数据

有没有办法将单元格范围从多个工作表复制到另一个工作表? 例如: 工作表1 苹果 葡萄 桃子 樱桃 工作表2 橙子 梨 香蕉 蓝莓 我需要结果 工作表3 苹果 葡萄 桃子 樱桃 橙子 梨 香蕉 蓝莓 假设我 ...

4 如何基于数组中的值命名新工作表并从原始数据集中复制相关值?

我在P,Q,R列中有数据。 我想筛选R,并为R列中的每个唯一项创建一个新的工作表。此新工作表还将带入P和Q中的关联值。 到目前为止,我已经学习了如何在R中过滤数据并将唯一值放入数组中。 对于数组中的每个值,我制作了一个名为Array1(i)的新表,因为由于某种原因我无法将该值转换为字符 ...

5 在工作表之间复制数据

我手头的问题是:我有一个包含多个工作表的Excel文件,它应该使用工作表A中单元格的值填充工作表B中的单元格。为此我做了一个小宏,但是它不能正常工作。 要么进入完全不同的单元格,要么抛出错误,要么复制公式而不是值。 具体为: 工作表A中的数据在完整的H列中,并从第二行开始。 这些 ...

6 要将单个excel工作簿中存在的232个excel工作表中的数据复制到目标工作表中,行名和工作表名应相同

要将单个excel工作簿中存在的232个excel工作表中的数据复制到同一工作簿中存在的目标excel工作表中,并以目标工作表中的行名应与工作表名相同的条件为条件。由于在excel文件中命名工作表时,大小受限制,因此对于某些工作表,名称写得短一些,但在Desstion工作表中,名称写成完整的形式 ...

7 将具有特定名称的Excel工作表从多个工作簿复制到新工作簿

下午好, 下面的代码将来自多个Excel文件的名为“ CLS”的Excel工作表复制到一个新文档中,并将其命名为CM.xlsx的Financial Metrics。 不幸的是,它不会复制“ CLS”是工作表名称(我也需要包括在内)的一部分的任何工作表。 我曾尝试在搜索时将DIM ws ...

2019-03-11 20:25:32 1 32   excel/ vba
8 将行从1个源工作表复制到与工作表名称匹配的工作表

我有一个主工作表,其中包含具有许多列的数据。 接下来,我还从列表中创建了多个工作表。 现在,如果列中的值与所有工作表名称匹配,我想将行从主工作表复制到相应的工作表,否则复制到“ NA”表。 以前,我只能想到硬编码,但是这是不可行的,因为工作表的数量可能会增加到50个以上,因此我需要 ...

9 复制多个工作表的名称VBA

我创建了一个“主”表,其中包含来自多个表(Sheet1、Sheet2、Sheet3)的数据。 现在我想在 B 列(在主工作表中)插入数据来自的工作表的名称。 我在下面有一个例子 主表 这是我迄今为止合并表的代码: ...

10 从一张工作表复制数据并将该数据粘贴到所有工作表中

我现在有一个存储公式的工作表我希望将该公式复制并粘贴到我的工作簿中的所有其他工作表中 我有这样的 70 张需要复制数据。 复制数据的工作表名称为“SAMPLE”数据应从工作表编号3复制(“SAMPLE”是工作表编号1,离开2张后,需要在“Y1:BA151”范围内的每张工作表中复制数据 我试过以下代 ...

2019-11-06 17:36:08 1 24   excel/ vba
暂无
暂无

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

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