mysql instrb

根据提供的引用内容，没有提到`mysql instrb`函数，但是MySQL中有`INSTR`函数，该函数用于返回一个字符串在另一个字符串中第一次出现的位置。如果未找到该字符串，则返回0。该函数的语法如下：

INSTR(str,substr)

其中，`str`是要搜索的字符串，`substr`是要查找的子字符串。

以下是一个示例：

假设我们有一个名为`employees`的表，其中包含`first_name`和`last_name`两列。我们可以使用以下查询来查找`last_name`列中是否包含子字符串`son`：

SELECT last_name, INSTR(last_name, 'son') as position
FROM employees;

该查询将返回一个结果集，其中包含`last_name`列和`position`列。`position`列将包含`son`子字符串在`last_name`列中第一次出现的位置。

相关问题

instrb函数用法

instrb函数是VB/VBA中的一个字符串处理函数，用于在字符串中查找指定子串的位置（从后往前查找）。其语法如下：

`InStrB([start,] string1, string2[, compare])`

参数说明：

- `start`: 可选参数，表示从字符串的哪个位置开始查找，默认值为1。
- `string1`: 要被查找的字符串。
- `string2`: 要查找的子串。
- `compare`: 可选参数，表示比较方式，可以是vbBinaryCompare（二进制比较）或vbTextCompare（文本比较），默认为vbBinaryCompare。

返回值：

如果找到了子串，则返回子串在字符串中的位置，否则返回0。

例如，以下代码可以查找字符串s中最后一次出现子串sub的位置：

Dim s As String, sub As String
Dim pos As Integer
s = "Hello, world!"
sub = "o"
pos = InStrB(s, sub)
While pos > 0
    lastPos = pos
    pos = InStrB(pos + 1, s, sub)
Wend
MsgBox lastPos

这段代码会弹出一个消息框，显示最后一次出现字串"o"的位置，即9。

写一个vba代码实现以下需求，1遍历表格的C列，记录每个单元格的个数，2.编辑D列的值，记录单元格每个值的个数，3.将C列的值返回给E列，值的个数返回给F列，4.将D列的值返回给I列，值的个数返回给H列，

以下是实现需求的VBA代码：

Sub RecordCount()
    Dim lastRow As Long
    Dim countDict As Object
    Dim valueDict As Object
    Dim i As Long
    Dim cellValue As String
    Dim count As Long
    
    '获取最后一行行号
    lastRow = ActiveSheet.Cells(Rows.Count, "C").End(xlUp).Row
    
    '初始化字典对象
    Set countDict = CreateObject("Scripting.Dictionary")
    Set valueDict = CreateObject("Scripting.Dictionary")
    
    '遍历C列，记录每个单元格的个数和每个值的个数
    For i = 1 To lastRow
        cellValue = ActiveSheet.Cells(i, "C").Value
        If countDict.exists(cellValue) Then
            countDict(cellValue) = countDict(cellValue) + 1
        Else
            countDict(cellValue) = 1
        End If
        
        If valueDict.exists(cellValue) Then
            If InStr(1, valueDict(cellValue), ActiveSheet.Cells(i, "D").Value) = 0 Then
                valueDict(cellValue) = valueDict(cellValue) & "," & ActiveSheet.Cells(i, "D").Value
            End If
        Else
            valueDict(cellValue) = ActiveSheet.Cells(i, "D").Value
        End If
    Next i
    
    '将C列的值返回给E列，值的个数返回给F列
    For i = 1 To lastRow
        cellValue = ActiveSheet.Cells(i, "C").Value
        ActiveSheet.Cells(i, "E").Value = cellValue
        ActiveSheet.Cells(i, "F").Value = countDict(cellValue)
    Next i
    
    '将D列的值返回给I列，值的个数返回给H列
    For i = 1 To lastRow
        cellValue = ActiveSheet.Cells(i, "C").Value
        ActiveSheet.Cells(i, "I").Value = valueDict(cellValue)
        ActiveSheet.Cells(i, "H").Value = Len(valueDict(cellValue)) - Len(Replace(valueDict(cellValue), ",", "")) + 1
    Next i
    
End Sub

使用方法：

1. 打开Excel表格，按下Alt+F11键，打开VBA编辑器；
2. 在左侧的项目窗格中，选择需要编辑的表格所在的工作簿；
3. 在菜单栏中选择“插入”->“模块”，打开新建模块；
4. 将以上代码复制到新建模块中；
5. 返回Excel表格界面，按下Alt+F8键，打开宏对话框，选择刚才新建的宏；
6. 点击“运行”按钮，即可开始执行宏。

该代码会遍历选定表格的C列，记录每个单元格的个数和每个值的个数，并将结果返回给E、F、I、H列。请注意，代码中的字典对象需要在使用前进行初始化，否则会出现错误。另外，代码中使用了InStr函数判断是否重复，该函数会忽略大小写，如果需要区分大小写，可以使用InStrB函数。