Tag: 查找

使用findnext填充multidimensional arrayVBA Excel

我的问题实际上涉及一个问题,扩展在EXCEL VBA商店search结果的数组? 在这里,Andreas试图search一列,并将命中保存到一个数组。 我正在尝试相同的。 但不同的是(1)find一个值(2)我想复制不同的值types从(3)单元格在findsearch值的同一行,(4)到一个二维数组。 所以这个数组(概念上)看起来像这样: Searchresult.1st SameRow.Cell1.Value1 SameRow.Cell2.Value2 SameRow.Cell3.Value3 Searchresult.2nd SameRow.Cell1.Value1 SameRow.Cell2.Value2 SameRow.Cell3.Value3 Searchresult.3rd SameRow.Cell1.Value1 SameRow.Cell2.Value2 SameRow.Cell3.Value3 Etc. 我使用的代码如下所示: Sub fillArray() Dim i As Integer Dim aCell, bCell As Range Dim arr As Variant i = 0 Set aCell = Sheets("Log").UsedRange.Find(What:=("string"), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, _ SearchFormat:=False) If […]

Excel VBA – find列数据(colum数据)(多个子句)

我需要在VBA中find基于2 where子句的行号的函数。 这是Excel示例: ** ABCD** 1 id1 day1 val1 xxx 2 id2 day1 val2 xxx 3 id3 day1 val3 xxx 4 id1 day2 val1 xxx 5 id2 day2 val2 xxx 6 id3 day2 val3 xxx 我需要find行号(在这种情况下,行号是2 ),其中B =“day1”和A =“id2”。 根据行号,我需要进一步得到其他列的值,即C2,D2 希望问题是清楚的。 谢谢!

Excel:在行中查找string并查找列

我想search一个string行,并获得列号,如果有这样一个string。 这可能通过在Excel中使用工作表函数?

如何使用VBAfind重复的单元格地址

我在Excel中使用VBA是全新的。 我甚至不能100%确定如何正确插入模块,所以这将是一个很大的帮助。 我已经build立了一个工作表,随机化1到100之间的数字。 B3 =RANDBETWEEN(C6,F6) 我有13名选手。 每个人都可以猜到一个数字。 目标是最接近随机数字。 (猜测x和y之间的数字。最近赢得“奖品”) 参赛者列在A9:B21。 (即;“参赛者#1”) 他们的猜测被列在C9:C21中。 随机数与猜测之间的差异列于D9:D21 D9:D21 =IF(C9>$B$3,C9-$B$3,IF($B$3>C9,$B$3-C9,0)) 单元格F9:F21让你知道谁赢了,不会计算任何小于1和超过100的猜测。 F9:F21 =IF(C9<1,,IF(C9>100,,IF(D9=MIN($D$9:$D$21),A9&" Wins",))) 不幸的是,每次我尝试引用单元格C6或F6而不是1或100时,我只能得到0的结果。 在F8中,如果有平局,我会收到通知。 仍然不确定这个代码是否是最好的方法。 F8 =IF(COUNTIF(F9:F21,"*")>1,"Tie Breaker Needed","") 这是我的问题 。 我知道如何识别重复,如果我愿意,我可以突出显示它们。 我似乎无法find一个办法,即使有一个领带,一个单元告诉我谁赢了。 即; 如果参赛者#7获胜—单元格会说“参赛者#7获胜”如果参赛者#7和#10获胜—单元格应该说出参赛者#7和参赛者#10 Tie。 有一个命令或VBA模块可以为我做这个? 我尝试了下面的VBA模块,但是它只返回#NAME? 不pipe我做什么。 这个代码工作,我没有正确插入模块,或者这个模块不适合我的情况,我需要新的东西。 帮我哦在线领域伟大的Excel贤哲。 我的Excel工作表的图像 Option Explicit Function LookupCSVResults(lookupValue As Integer, lookupRange As Range, resultsRange As Range) As String Dim s […]

在索引(匹配)数组中查找最小值

这是我简单的表格 ABC tasmania hobart 21 queensland brisbane 22 new south wales sydney 23 northern territory darwin 24 south australia adelaide 25 western australia perth 26 tasmania hobart 17 queensland brisbane 18 new south wales sydney 19 northern territory darwin 11 south australia adelaide 12 western australia perth 13 索引匹配数组公式: =INDEX(A2:C9,MATCH(1,(H4=$A:$A)*(I4=$B:$B),0),3) 基本上A和B是我的查找标准,而C是我想要得到的值。 我想C是匹配的C值中的最小值。 防爆。 如果我有塔斯马尼亚和霍巴特作为我的标准,我会得到17,因为它是最小值,而不是21。 我试图在索引匹配数组(H4=$A:$A)*(I4=$B:$B)*(MIN($C:$C))嵌套MIN但这只会导致错误

公式根据多列中的单元格查找匹配的行值

我试图查找col4值时,在同一行,col1,col2和col3每个匹配。 我引用这个SO Post,因为它是一个类似的问题,但该解决scheme不适合我。 我正在search特定的Date ,特定的Status并希望返回相应的Count s。 我的数据需要输出的例子:

Excel – 如果两列都存在值,则返回“true”

我有两列数据。 第三列(C)中的列A和列B.我想input一个公式,如果列B中的数据存在于列A中的任何位置,将返回“true”。只是这个:)预先感谢您。

用VBAselect“查找”的第二个结果

我试图让我能find第二个“灯”的结果,以防万一出现这个词。 下面的代码find了考虑范围内的第一个事件。 Dim ws As Worksheet Dim rng1 As Range Dim y As Range Columns("B:B").Select Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Select Set x = Range(Selection, Selection.End(xlDown)).Offset(0, 3) Range(x.Address(0, 0)).Select Selection.Find(What:="Lights", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Selection.FindNext(After:=ActiveCell).Activate Selection.FindNext(After:=ActiveCell).Select

使用INDEX和MATCH查找两个条件

我正在尝试使用INDEX和MATCH来实现基本的查找。 我的布局是: 表1 NAME | SITE | date 工作表2 NAME | SITE | date 我希望工作表1中的“站点”列自动填充工作表2中的NAME和DATE匹配的站点。 我所试过的 =INDEX('Sheet2'!B:B,MATCH(A1,'Sheet2'!A:A,0)) 这将成功匹配NAME,但是如何将公式中的其他MATCH合并到NAME 和 DATE?

Excel VBAexception行为的细胞。找合并细胞

解决:错误是由于在其他地方操作find的属性造成的 我对VBA的世界很陌生,我对.Find函数的一些exception行为有个疑问。 我有一些代码,我打电话在子程序如下。 For i = 2 To UBound(pullDataPckg) For j = 1 To UBound(section) Set cell = dataSheet.Cells.Find(What:=section(j)) 'Below returns nothing on call 2, works for call 1 'Set cell = dataSheet.Cells.Find(What:="Value from section(j) in second call") If Not cell Is Nothing Then 'Do some stuff End If Next Next pullDataPckg和section是两个string数组, dataSheet是一个工作表对象,并且代码都位于我调用的从工作表中提取数据值的Sub中。 我遇到的exception行为是, Find总是返回单元格作为我的第二个子调用单元格(search的单元格都是合并单元格,我知道是在工作表中,如果我unmerge单元格然后查找方法是能够find细胞)。 […]