Excel 当多行合并到一个单元格中时，VB脚本中的换行符不起作用

我试图将数组（data2）值的值连接到变量（oldValue）并将其粘贴到工作簿的单元格中。 我在进行连接时使用了chr（13）作为换行符。当我试图在消息框中显示连接的值（OldValue）时，它非常有效。 但是，当我试图指定单元格值时，换行符不起作用。有没有办法让换行符在单元格内工作

For i = 2 to iMax
        fc=data1(i,4)
        Dim oldValue
        oldValue="" 
        For k = 1 to fc
            oldValue = oldValue & chr(13) & data2(i,k,1)&"-"&data2(i,k,2)&chr(13)
            'objExcel1.Cells(i,j).Value = oldValue & chr(13) & data2(i,k,1)&"-"&data2(i,k,2)&chr(13)
        Next            
        For j = 1 to 6
        If (j=5) then               
            Msgbox(oldValue)
            objExcel1.Cells(i,j).Value = oldValue           
        else
            objExcel1.Cells(i,j).Value = data1(i,j) 
        End If
    Next
Next

---

要在单元格中强制返回，请使用

vbCrLf

切换

CHR（13）

！！！。它起作用了。。谢谢布鲁斯韦恩：）