Tag: 包含

InStr没有find子string

我有以下代码： Columns("F:F").Select For Each cell In Selection Select Case cell Case InStr(1, cell, ",") <> 0 MsgBox ("found") Case IsEmpty(cell) Or Null MsgBox ("empty") Case Else Stop End Select Next 在F列中：FI具有以下顺序： "Marc Jacobs", "", "Renolds, Bob" InStr没有find任何适当的案例陈述。 对于“Marc Jacobs”，我得到了Case Else的电话（正确的电话） 对于“”，我得到的消息（应该是空的消息） 对于“Renolds，Bob”，我得到了Case Else调用（应该得到find的消息） 这里发生了什么？

如何检查单元格是否只包含特定列表中的字符？

我试图做一个数据列检查，看它的行只包含特定的字符。 有问题的字符是0 – 9和/ 。 如果只有这些，那么应该返回OK ，否则错误（或者1和0，任何可区分的都是好的）。 它应该基本看起来像这样（大胆的专栏）： 我用MATCH和VLOOKUP取得了有限的成功，但没有使用范围。 一个公式将是首选，但VBA也很酷。 有任何想法吗？

Excel VBA instr如果语句错误

我试图不寻找价值2，但是“不应该发生”显示，而不是其他的“好”。 If Not InStr("1, 2, 3", "2") Then MsgBox ("shouldn't happen") Else MsgBox ("ok") End If 我们知道价值在string内。 但由于某种原因，“不”不起作用。 有谁知道为什么？

过滤3个或更多标准

今天是个好日子！ 我非常需要使用3个标准的filter，但默认情况下只有2个。那么如何使用标准的excel或vbafind包含“AGD”或“mrk”或“macro”的单元格（在某一列中）呢？ thx提前

删除第一列以外的空白行

我写了一个macros来删除该行，如果它是一个空行，或者如果在B列中单元格包含stringXYZ。 但是，如果有200多行数据，则此macros可能需要几分钟才能运行。 任何人都可以提供更有效的VBA格式？ Sub DeleteBlanks() Dim lr As Long, r As Long For r = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1 Range("B" & r).Replace "*XYZ*", "", xlWhole If Range("B" & r).Value = "" Then Range("B" & r & ":Q" & r).Delete (xlShiftUp) End If Next r Application.ScreenUpdating = False End Sub

如何find一个范围是否包含在另一个范围内？ VBA

我有一个比较两个范围的问题。 为了简单起见，我将采取两个简单的范围M6:M10和M6:M8 ，我想知道第二个是否包含在第一个中，而我要写的第一个东西 Sub example() Dim range1, range2, inte As range Set range1 = range("M6:M10") Set range2 = range("M6:M8") Set intersec = Intersect(range1, range2) If intersec = range2 Then [if statement] End If End Sub 但是这个过程返回给我下面的错误： PRB: Error 13 (Type Mismatch) & Error 3061 w/ SQL Queries 所以，也许我不能用这种方法“相交”…任何提示如何testing范围的包含？ 非常感谢你！

Excel公式来search范围内的所有单元格是否读取“True”，如果不是，则显示“False”

使用excel公式来search范围内的所有单元格是否为“真”，如果不是，则显示“假” 例如： ABCD True True True True True True FALSE True 我想要一个公式来读取这个范围，并显示在第2行，这是一个“假”，因为在第1行没有错误，我希望它显示“真实”。 谁能帮我这个？