Tag: search

更快地search文件夹/子文件夹: 我试图在我们的Sharepoint站点及其子文件夹中search符合某些标准的Excel文档的多个文件夹，然后将工作簿中的数据复制到摘要书（实际上并不需要该部分的帮助）。我搜遍了，并提出了下面的代码，但它是慢得可笑（我有接近1000个文件夹每个有多个子文件夹通过）。我很好奇，如果有人知道一个更快的方式，因为这个周末可以运行，而且还没有接近。 Sub Main() On Error GoTo ErrHandler Dim fso, oFolder, oSubfolder, oFile, queue As Collection Dim StartTime As Double Dim MinutesElapsed, FileString As String Const MyDir As String = "\\hp.sharepoint.com@SSL\…" ' Remember time macro starts StartTime = Timer Set fso = CreateObject("Scripting.FileSystemObject") Set queue = New Collection queue.Add fso.GetFolder(MyDir) Do While queue.Count > […]

寻找使用选项button，search框和button控件从表中返回数据: 地狱，我希望能够有一个searchbutton命令框input文本。所以，如果看imgur链接，我希望能够在search框（TextBox21）中input文本“Corporate”，同时勾选“Site”选项button（OptionButton21）我想让他们点击CommandButton21并拥有所有表格中显示网站的“企业”项目。我在网上阅读了很多东西，但真的很难将所有元素和事件捆绑在一起。任何帮助将非常感激。 http://imgur.com/a/xKy5f （我的电子表格的剪贴板），我的代码在下面，但是无可否认空白。我只是有没有编码行动的元素，因为我没有尝试过什么成功。 Private Sub CommandButton21_Click() End Sub Private Sub OptionButton21_Click() End Sub Private Sub OptionButton22_Click() End Sub Private Sub OptionButton23_Click() End Sub Private Sub TextBox21_Change() End Sub

项目列表find几乎重复: 在Excel中，我有一个艺术家，歌曲，版本列表。该列表包含超过15000条logging。问题是列表包含一些“重复”的logging。我说“重复”，因为它们不完全匹配。有些人可能有一些错字，我想解决这个问题，并删除这些logging。所以例如一些logging： ABBA – Mamma Mia – Party ABBA – Mama Mia! – Official 每个破折号表示一个单独的列（所以3列A，B，C被填入）我如何将它们标记为Excel中的重复项？我已经find关于工具模糊查找。然而，我在Mac上工作，因为它不是在Mac上可用我卡住了。任何正则expression式魔术或vba脚本什么可以帮助我？看看这个行有多相似也是可以的（比如80％的相似）。

Excel VBA在文件夹和子文件夹中search并返回多个文件: 我必须从Excel列表中search和复制文件夹中的许多文件，例如： 8100 ' cell "A2" 8152 ' cell "A3" 8153 ' cell "A4" 在源文件夹中有这样命名的文件： 8153.pdf 100_8152.pdf 102_8153.pdf 8153 (2).pdf 我怎样才能find这些文件，并复制在一个单独的文件夹中匹配的所有文件？代码只返回一个文件，但我需要所有与单元格值匹配的文件。我需要扩展我在多年组织的子文件夹（即：“D：\ myfolder \ 2015”，“D：\ myfolder \ 2016”等）的研究。感谢user3598756，我现在使用这个代码： Option Explicit Sub cerca() Dim T As Variant Dim D As Variant T = VBA.Format(VBA.Time, "hh.mm.ss") D = VBA.Format(VBA.Date, "yyyy.MM.dd") Dim Source As String Dim Dest […]

VBA – 快速search关键字的方法: 我正在执行关键字search（循环访问Excel列，查找包含在另一个电子表格中的关键字，并将值分配给第一个电子表格中的另一列（如果find的话））。我正在通过使用for循环和if – else语句来做到这一点，而且它certificate是相当慢的。关键字工作表有三列可input关键字，一列用于指定值。这个想法是，如果要分配的值，被扫描的文本应该包含在这些关键字列中input的所有关键字。在关键字之前加一个“ – ”表示如果扫描的文本不包含指定的关键字，则只能分配该值。有关使用的方法，请参阅下面的代码。我的问题的重点在它的效率。 Dim intLoopKeywordsRows As Integer Dim intLoopDataShortTextRows As Integer Dim strDataShortText As String Dim strKeyword_A As String Dim strKeyword_B As String Dim strKeyword_C As String Dim strCheck_B As String Dim strCheck_C As String Dim lastRow Dim i As Integer lastRow = Data.Cells(Rows.Count, 1).End(xlUp).Row For […]

EXCEL VBA – search目录中的每个文件，列出search到的string实例的数量: 我试图打开Sheet 2列A中列出的每个文件，search位于Sheet 3单元格B1中的文本string，列出此string出现在Sheet 3中每个特定文件中的实例的数目，然后closures该文件。我的代码目前工作，但是非常缓慢，有时会产生错误，使一切甚至更慢。我有成千上万的需要search的文件，速度和性能一样重要。有没有办法比我已经做的更有效率地完成这个任务？奖励积分用于消除任何可能的错误来源。提前致谢。 Sub FindMe() Dim fle As Range Dim i As Long Dim k As Long Dim line As Long Dim strline As String Dim strsearch As String Dim loc As Range Dim sht As Worksheet Dim lngPos As Long Dim lngCount As Long Dim wdApp As Object […]

将单元格1的部分与单元格2的全部条件按多条标准连接起来，以单元格1的其余部分结束: 介绍这是在这里发布和回答的问题的延续，但已被build议由@Jordan作为单独的问题发布。目标：将单元格1的内容的一部分与单元格2的所有内容合并，完成单元格1的剩余部分。扭曲：必须对单元格1应用多个条件。问题在成功地改变了乔丹为joinThinglag而容纳连接名字的优秀答案之后，只要有一个标准可以识别，下面的函数就可以执行这个任务： IF(F2="",E2,CONCATENATE(LEFT(E2,SEARCH(" T",E2))&"("&F2&")"&MID(E2,SEARCH(" T",E2),Len(E2)-SEARCH(" T",E2)+1))) 然而，对于教区和附件，需要多个标准。下列：松恩 Hovedsogn 附件 Præstegjeld 结构体 AB-AH：Sogn_anx_ [1-7] AI-AO：Sogn_anx_ [1-7] _altnvn AP-AV：Sogn_anx_ [1-7] _hele 和原来的post一样，我有一个提供该地区当前正式名称的来源，以及以前使用的名称（提供当前名称的词源信息）。在包含旧名的来源中，它被作为一个含义，如： 'Søndeløvs（Sundaleid）附件' '特罗姆（Thrumø）附件' 'Hvitesø（Hviteseids）Hovedsogn' 'Attraa（Attrod）Hovedsogn' 'Thjølings（Thjodaling）Sogn' 这些已经使用三列input到数据库中：一个为正式名称一个用于旧名称一个显示打印的名称这是为了在公开这些信息时提供更好的可search性。示例数据： Sogn_anx_1 Sogn_anx_2 Sogn_anx_3 … Sogn_anx_1_altnvn Sogn_anx_2_altnvn Sogn_anx_3_altnvn … Sogn_anx_1_hele Sogn_anx_2_hele Sogn_anx_3_hele AB AC AD … AI AJ AK […]

Excel – 使用通配符数组查找string: 这是我发布的一个早期问题的后续行动。 Excel – 如何从大列表中查找通配符string Callumbuild议使用以下数组公式从数据表中查找所需的string。我知道在Excel中可以做sumifs（range，criteria_range，{“criteria”，“criteria1”，….}）。是否有可能改变下面的公式，使它做类似的事情，并采取一系列的通配符？例如search（10＆{“b *”，“c *”，“d *”}，….）。我不认为searchfunction将起作用，也许countifs … =INDEX(Partners!$D$2:$D$2227,MATCH(1,IFERROR(SEARCH(10&"b*",Partners!$A$2:$A$2227&Partners!$B$2:$B$2227),0),0))

excel复制从单元格中find的string到一个新的单元格: 我有一个目前只是返回true / false的公式，我想即兴而不是返回true / false，我可以得到find的string，并将其复制到另一个单元格？这里是我使用的公式： =NOT(NOT(SUM(–NOT(ISERR(SEARCH($D$2:$D$21;$B2)))))) 谢谢

searchExcel工作簿并使用VBA在另一个工作表或报表中列出结果: 我试图build立一个searchfunction来search当前的工作簿。这个想法是让它几乎像一个查询，所以当我search任何东西，它会在search结果页面上列出结果或创build一个search结果的报告。我不知道有关VBA的一件该死的事情。到目前为止，我只有一个代码，允许我在与数据相同的页面上执行此操作。奇怪的是，它可以从另一个选项卡拉search词，但我不能找出一个好的scheme来search所有页面，并在我的search选项卡中列出结果。 Sub finddata() Dim studentname As String Dim finalrow As Integer Dim i As Integer Dim sh As Worksheet Sheets("Search").Range("H1:Z15").ClearContents studentname = Sheets("Home").TextBox1.Text finalrow = Sheets("Search").Range("A10000").End(xlUp).Row For i = 1 To finalrow If Cells(i, 1) = studentname Then Sheets("Search").Range(Cells(i, 1), Cells(i, 6)).Copy Sheets("Search").Range("H20").End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulasAndNumberFormats End If Next i End Sub