Tag: find

testingstring中的多个单词集合: 如何使用Excel公式来查找电子表格的一系列行中是否存在多个（如果有的话）多达50个单词的集合 – 如果集合A在search单元格中find一个或多个单词，则值##将被分配到与该单元相邻的列。如果search到的单元格中没有find集合A中的单词，则公式将重复testing集合B中的单词，以此类推。一旦所有20组单词都经过testing，公式将移至search栏中的下一个单元格。有一个类似的问题，标题为“使用数组公式来search特定string中的string列表？在这里在Stackoverflow，但我没有成功地适应它的任务。 build议如何实现这一点将是最受欢迎的。

Excel公式从名称中分割地址（= LEFT（A1，Find a Interager etc ..））: 这个公式适用于我的一些单元格，而不是其他单元格，我已经检查过格式是否不同，但是什么也找不到。我有例如一个说“戴尔电脑12150砂DR波特兰或97229” 我想要的只是自己得到“戴尔电脑”。我已经尝试了一些东西，最明显的是： =LEFT(A1,FIND({1,2,3,4,5,6,7,8,9,0},A1,1)-2) 这适用于某些人，对于其他人则不适用（例如，如果在地址中有两个1代表“戴尔计算机1”，以第二代为1）也许是一个新问题，但是我在做什么？

在Excel VBA中查找多个值: 我想突出显示excel文件中所有可能的值。然而，我的代码只突出显示了每张纸的第一个find的值，但是我想突出显示每个find的值。我猜“FindNext”不能正常工作，因为我希望它能正常工作。我尝试了其他来自互联网的其他示例，其中显示了相同的结果。出了什么问题？ Sub test() Dim counter As Integer Dim currentSheet As Integer Dim cell As Range On Error Resume Next currentSheet = ActiveSheet.Index datatoFind = StrConv(InputBox("Please enter the value to search for"), vbLowerCase) If datatoFind = "" Then Exit Sub sheetCount = ActiveWorkbook.Sheets.Count If IsError(CDbl(datatoFind)) = False Then datatoFind = CDbl(datatoFind) For […]

searchsheet1中的所有行和列以获取string，如果find，则将整行复制到sheet2: 如何searchsheet1中的所有行和列以查找特定string，然后将整行复制到sheet2（如果find），而不会创build重复项？这是迄今为止我基于这个答案，但我相信我需要循环这个所有列。这只是search第一列A. Sub Main() Dim wb1 As Workbook Set wb1 = ThisWorkbook Call searchtext("organic", "Organic Foods") wb1.Save End Sub Private Sub searchtext(term, destinationsheet) Dim wb1 As Workbook Set wb1 = ThisWorkbook Dim ws1 As Worksheet Set ws1 = wb1.Sheets(1) 'assumes raw data is always first sheet Dim ws2 As Worksheet Dim copyFrom As Range […]

Excel：查找并replace第一行和Excel表单: 我想要一个代码来查找并replaceExcel表格第一行中的所有单元格。我有以下代码通过search谷歌。 Sub FindReplace() Dim sht As Worksheet Dim fndList As Variant Dim rplcList As Variant Dim x As Long fndList = Array("Fname", "Lname", "Phone") rplcList = Array("First Name", "Last Name", "Mobile") For x = LBound(fndList) To UBound(fndList) For Each sht In ActiveWorkbook.Worksheets Rows(1).Replace What:=fndList(x), Replacement:=rplcList(x), _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Next sht […]

VBA查找所有单元格包含和复制相邻: 大家早上好，我一直在试图在这里find一个线索，将涵盖我的情况，但我一直不成功。我正在尝试search包含特定string值的所有单元格（如果可能的话多个string，例如 "*Text*Text*" that would find "123Text123Text123" ）在给定的范围内，并从该行返回一个ID引用。到目前为止，我已经设法使用“如果Cell.Value = xxx”场景，但是这只能查找完全匹配，而不是包含： intMyVal = InputBox("Please enter Sales Order No.") lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row newrow = 1 For Each Cell In Range("D2:D" & lngLastRow) 'Data to search If Cell.Value = intMyVal Then Cells(Cell.Row, 1).Copy 'Copy ID1 value Sheets("TempData").Cells(newrow, 1).PasteSpecial xlPasteValues 'Paste ID1 value in […]

C＃ – Concat从.txt文件到Excel文件的部分数据: 我需要帮助阅读Excel电子表格并将数据添加到电子表格。我想要：打开/阅读一个Excel电子表格（如果可能的话加载到一个richtextbox，这将是首选）。使用OpenFileDialog打开/读取指定的.txt文件。使用正则expression式/ string.Split方法parsing.txt文件数据，以find与Excel电子表格连接所需的正确数据。一旦发生这种情况，我想将excel电子表格中的数据列（使用正则expression式或string.Split在.txt文件中find）连接到excel电子表格的最后一列，同时匹配正确的行。这是我的意思：文本文件 1 0010 147221 PCB,LCD DISPLAY,SB5500 1 0020 147417 FER,BEAD,200MA,1000Z,0.8 1 0030 138666 FER BEAD,220R,2A,0805 1 0040 147418-1 CON,TEST POINT,SMD 1 0580 147470 LED,GRN/RED,20mA,4P,SMD 1 0590 147471 DIODE,SCHOT,RECT,1A,60V 1 0600 147472 DIODE,SCHOT,RECT,3A,40V … EXCEL电子表格 Ln PN Description Something Where Comment MName MCode INITIAL COMMENT 1 EC5547 DESCRIPTION […]

Python：如何从一个XLSXsearchstring到另一个XLSX文件？: 我有两个XLSX文件（cookies和奶油），我想知道A列（在Cookie中）每行中的值是否存在于列D（在Cream中）的某一行中。使用openpyxl，我派生了下面的代码： for mrow in range(1, Cookies.get_highest_row() +1): for arow in range(1, Cream.get_highest_row() +1): if cookies['A' + str(mrow)].value == cream['D' + str(arow)].value: print(cookies['A' + str(mrow)].value) break 即使这样做的工作如预期，这需要很长的时间来执行，因为cookies包含大约7000行，而奶油已经超过24000。谢谢你的帮助

在Excel中查找和删除Applescript: 我一直在build立一个脚本来帮助我的工作stream程，并且遇到了FIND和Excel的问题。我放在一起的代码工作了很短的时间，我不知道它发生了什么事，或者为什么它不再工作。我的问题是这样的…我有一个图像数据，如文件名和拍摄名称的Excel列表。我正在寻找脚本通过拍摄名称列进行扫描，并search文件名列中的匹配名称，然后完全删除该行。重复该操作继续，直到检查完所有行。 EX. Filename Shoot Name ABC DOS DEF OXL GHI DEF JKL ASC 所以在这种情况下，整个DEF行应该被删除，因为它出现在拍摄名称列中。以下是我正在使用的代码，D列是我的拍摄名称，B列是我的文件名。 tell application "Microsoft Excel" activate repeat set checkShootName to get value of cell ("D" & RowNo) if checkShootName ≠ "" then set ShootName to value of cell ("D" & RowNo) as string set searchRange to range […]

在工作表之间传输单元格值| Str Looper: 预期结果如果表中的行包含Sheet1上列L中列出的任何string，则复制Sheet1中的整个行，并将该行粘贴到Sheet2上的一个重复表（在开始处将为空白）。（不间断的，不相关的，未被遵守的等等）然后删除从表单1传输的整个行。 macros运行后，新的传输不应该重置Sheet2上的表，而是在预先存在的行上添加行。这个文件将被利用几个月。 variables Sheet1被命名为Pipeline_Input Sheet2被命名为Closed_Sheet Sheet1表被命名为tblData Sheet2表被命名为tblClosed 图片图片1是错误的代码图片2是图片1，附有图片说明图片3是图片2，附有图片说明当前结果运行时错误“1004”：应用程序定义或对象定义的错误 Sub closedsheet() Application.ScreenUpdating = False Dim Pipeline_input As Worksheet 'where is the data copied from Dim Closed_Sheet As Worksheet 'where is the data pasted to Dim strPhase() As String Dim i As Integer Dim intPhaseMax As Integer Dim lngLstRow […]