excel - 当多行组合成一个单元格时，VB 脚本中的换行符不起作用

Question

我正在尝试将数组（data2）值的值连接到变量（oldValue）并将其粘贴到工作簿的单元格中。我在进行连接时使用 chr(13) 作为换行符。当我尝试在消息框中显示连接的值（旧值）时，它非常有效。但是当我试图分配一个单元格值时，换行符不起作用。是否有任何选项可以使换行符在单元格内工作？

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

标签： excelvbscriptline-breaks

Answer 1

要强制返回单元格，请CHR(13)使用切换vbCrLf。