vba, 取单元格里显示的内容

你可以使用VBA中的Value属性来获取单元格中显示的内容。例如，如果要获取A1单元格中的内容，可以使用以下代码：

Dim cellValue As String
cellValue = Range("A1").Value

这将把A1单元格中的内容作为字符串保存在cellValue变量中。你可以将Range("A1")替换为任何其他单元格引用来获取该单元格中的内容。

相关问题

vba 取单元格内逗号右边的内容

你可以使用 VBA 中的 Split 函数来获取单元格内逗号右边的内容。以下是一个示例代码：

Sub GetCommaRight()
    Dim str As String
    Dim arr As Variant
    
    '获取单元格A1的值
    str = Range("A1").Value
    
    '使用Split函数获取逗号右边的内容
    arr = Split(str, ",")
    If UBound(arr) > 0 Then
        MsgBox Trim(arr(UBound(arr)))
    Else
        MsgBox "未找到逗号"
    End If
End Sub

这个代码将获取单元格 A1 内逗号右边的内容，并在一个消息框中显示。如果找不到逗号，则会显示一条消息。你可以将 Range("A1") 替换为你需要获取值的单元格。

excel vba 如果单元格里面最后一个字符为逗号

如果你想要在Excel VBA中检查一个单元格的内容，特别是查看它是否以逗号作为最后一个字符，你可以使用`Right()`函数结合`Len()`函数。`Right()`函数返回字符串从右侧开始指定长度的部分，而`Len()`函数则给出字符串的长度。以下是一个简单的VBA示例：

Sub CheckLastCharComma()
    Dim cell As Range
    ' 假设要检查的单元格是A1
    Set cell = Range("A1")
    
    If Right(cell.Value, 1) = "," Then
        MsgBox "单元格" & cell.Address & "的最后一个字符是逗号。"
    Else
        MsgBox "单元格" & cell.Address & "的最后一个字符不是逗号。"
    End If
End Sub

在这个例子中，我们首先设置了变量`cell`为需要检查的单元格。然后，通过`If...Then...Else...`语句判断`cell.Value`的最后一个字符（取其最后一位）是否为逗号。如果是，则显示消息框告知是逗号；如果不是，则显示另一种消息。