Question

    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 变量中添加一个括号，以便它打印这样的字符串“（Mystring 的值）”&“活动单元格的值”&，所以如果它是一堆 5，它会打印“5”、“5”、“5”、“5”、“5”、“5”

Answer 1

你应该用双引号来转义双引号。

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

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

如何在字符串中添加括号

1 个答案: