示例 (末尾是InStr的返回值)

Sub test()
    Cells(1, 1) = InStr("ABCABC", "C") '3
    Cells(2, 1) = InStr(4, "ABCABC", "C") '6
    Cells(3, 1) = InStr(4, "ABCABC", "c", 0) '0
    Cells(4, 1) = InStr(4, "ABCABC", "c", vbBinaryCompare) '0
    Cells(5, 1) = InStr(4, "ABCABC", "c", 1) '6
    Cells(6, 1) = InStr(4, "ABCABC", "c", vbTextCompare) '6
End Sub

Instr 函数是十分实用的，它可以查询某个 字符串 在另一个 字符串 中是否出现，并且返回该查询 字符串 最先出现的索引位置。 Instr 函数常常与Mid 函数一起使用，会有非常好用的效果。不过 Instr 函数并非 Excel 内置的函数，因此，如果要使用 Instr 函数和Mid 函数搭配，那就必须要使用 VBA 才行。 InStr ([start,] string1, string2 [,compare]) Dim seprate_line Dim Context As String '声明一个String类型变量context,用于保存对话框将要显示的内容 Dim title As String '声明一个String变量title,同于保存窗口标题内容 Rem 将内容存入Conetext 变量 seprate_line = "------ 大家好，我们今日继续讲解 VBA 代码解决方案的第122讲内容：如何在 VBA 中使用单元格Offset 属性。其实这讲的内容非常的简单，却是应很多的朋友要求来写的，很多人提出单元格的引用和定位问题。其实这个问题对于新手是很困扰的，对于成手来说，单元格的定位也需要深入的理解。引用工作表单元格非常灵活的方法是使用Offset属性。当你在运行程序时，你也许不知道某个单元格的确切地址，或者不关心单元格的确切地址... 学习 Excel 技术，关注微信公众号： excel perfect在 VBA 中， InStr 函数是一个非常有用的函数，可用于查找某 字符串 在另一个 字符串 中第一次出现的位置。 InStr 函数的语法如下图1所示：图1其中：1.参数Start，可选，指定搜索的起始位置。如果省略该参数，则会从String1的第一个字符开始查找。2.参数String1，必需，被搜索的 字符串 。3.参数String2，必需，要搜索 ... 1、open 文件名 for output（写入覆盖数据）/input（读取数据）/append（追加数据，不会覆盖会继续在其末写入） as #文件号 ——open要与close配合使用，否则会报错文件已打开，若文件不存在，覆盖和追加都会新建文件。关闭文件时要注明文件号。 2、Freefile会调用函数获取可用的空闲的文件号。 3、 instr （a,b）函数返回为long形式，意为指定一 字符串 （b）在另一 字符串 （a）中最先出现的位置，返回值为具体位置，如果返回 0则表示不存在。 4、dir（a）返回为stri 1、 instr () 函数的格式（俗称：字符查找函数）格式一： instr ( string1, string2 ) / instr (源 字符串 , 目标 字符串 ) 格式二： instr ( string1, string2 [, start_position [, nth_appearance ] ] ) / instr (源 字符串 , 目标 字符串 , 起始位置 , 匹配序号) 解析：str... 有朋友问：能不能批量将单元格中的部分字符改变格式，比如改变字体，字号，改变颜色……举个例子，如下图所示，将“领导”两个字……字体变成15号，红色加粗……干了这碗毒鸡汤，天黑就闭眼……代码如下：Sub MyCharacters() Dim arr, s$, i&, l&, n& s = "领导" '需要改变格式的 字符串 n = Len(s)...