时间戳

首页 > 解决方案 > 如何在字符串中添加括号

excel - 如何在字符串中添加括号

问题描述

    Sub MMVol()
        Dim I As Integer
        Dim MyString As String
        Sheets("MM").Select
        Sheets("MM").Range("B2").Select
        While ActiveCell <> ""
            While ActiveCell <> ""
                MyString = MyString & ActiveCell & ","
                ActiveCell.Offset(1, 0).Select
                DoEvents
            Wend
            MyString = Left(MyString, Len(MyString) - 1)
            Sheets("WorkList Generator").Range("B2").Offset(I, 0) = MyString
            MyString = ""
            DoEvents
            If ActiveCell.Row = 10 Then ActiveCell.Offset(-8, 1).Select
            I = I + 1
        Wend
        
    End Sub

我正在尝试在 MyString 变量中添加一个括号，以便它打印这样的字符串 "(Value of Mystring)" & "Value of Active Cell" & ，所以如果它是一堆 5，它将打印 "5","5 ","5","5","5","5"

标签： excelvba

解决方案

您应该使用以下命令转义双引号：双引号。

MyString = MyString & """" & ActiveCell & """" & ","

""""第一个和最后一个引号是分隔符，里面有一个引号和另一个引号

推荐阅读