Question

我有一段代码将电子表格中的几个单元格连接在一起，然后将它们放入电子邮件中。我的问题是当一个单元格中包含&字符时，代码会在&出现后停止工作。

Msg = "Ref: " & Cells(ThisRow, 1) & vbCrLf & "Item: " & Cells(ThisRow, 2) & vbCrLf

如果例如Cells(ThisRow, 1)包含&，则以下Cells(ThisRow, 2)不会被提取。

我可以解决这个问题吗？

Answer 1

你可以替换＆amp;在使用单元格之前的单元格中：

activecell = Replace(activecell, "&", "and")

或立刻完成整个工作表：

cells.Replace What:="&", Replacement:="and"

Answer 2

将每个单元格的文本存储为字符串这在Excel中适用于我，将值写入另一个单元格。

Dim str1 As String
Dim str2 As String
Dim resultString As String

str1 = Sheets("Sheet1").Cells(ThisRow, 1)
str2 = Sheets("Sheet1").Cells(ThisRow, 2)
resultString = str1 & " " & str2

Sheets("Sheet1").Cells(ThisRow, 3) = resultString

单元格中的文字包括＆＃34;＆amp;＆＃34;字符并停止代码工作

2 个答案: