vba判断单元格第一个字符串

你可以使用 VBA 中的 Left 函数来获取单元格中的第一个字符，然后进行判断。下面是一个示例代码：

Sub CheckFirstCharacter()

    Dim cell As Range
    
    For Each cell In Selection
        If Left(cell.Value, 1) = "A" Then
            MsgBox "第一个字符是 A"
        Else
            MsgBox "第一个字符不是 A"
        End If
    Next cell
    
End Sub

这段代码会遍历当前选中区域中的每个单元格，然后判断它们的第一个字符是否为 A。你可以根据自己的需求来修改代码。

相关问题

数组中有若干个字符串，用vba生成一个判断，如果表格a列有值等于数组中的字符串，则将该单元格赋值为数组中第一个字符串，否则赋值为数组中的第二个字符串

可以使用VBA中的InStr函数来判断表格a列中的值是否等于数组中的字符串，然后使用If语句进行判断和赋值操作。以下是示例代码：

Sub CheckArray()
    Dim arr() As String
    arr = Split("string1,string2", ",") '将字符串转换为数组
    
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取表格a列的最后一行
    
    For i = 1 To lastRow '循环遍历表格a列
        For j = 0 To UBound(arr) '循环遍历数组
            If InStr(1, Cells(i, "A").Value, arr(j), vbTextCompare) > 0 Then '判断表格a列中的值是否等于数组中的字符串
                Cells(i, "B").Value = arr(0) '如果等于，则将该单元格赋值为数组中的第一个字符串
                Exit For '退出循环
            Else
                Cells(i, "B").Value = arr(1) '如果不等于，则将该单元格赋值为数组中的第二个字符串
            End If
        Next j
    Next i
End Sub

注意：在实际使用中，需要将代码中的字符串数组和表格列名进行相应的修改。

vba对第一个单元格用换行符进行分割

可以使用VBA中的Split函数对第一个单元格的内容进行换行符分割。具体实现可以参考以下示例代码：

Sub SplitFirstCellByLine()
    Dim str As String
    Dim arr() As String
    str = Range("A1").Value
    arr = Split(str, vbCrLf)
    Range("A1").Resize(UBound(arr) - LBound(arr) + 1).Value = Application.Transpose(arr)
End Sub

在上述代码中，我们首先定义一个字符串变量`str`，将第一个单元格的内容赋值给它。然后使用VBA中的Split函数，按照`vbCrLf`作为分隔符，将字符串切割成一个字符串数组`arr`。最后使用Resize函数将第一个单元格的行数调整为切割后的字符串数组的长度，并使用Application.Transpose函数将数组转置后赋值给第一个单元格。这样就实现了对第一个单元格用换行符进行分割的功能。