将多个行合并到一个单元格中时,VB脚本中的换行符无法正常工作

时间:2018-10-18 18:29:09

标签: excel vbscript line-breaks

我正在尝试将array(data2)值的值连接到变量(oldValue),并将其粘贴到工作簿的单元格中。 我在串联时使用了chr(13)作为换行符。当试图在消息框中显示串联的Value(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

1 个答案:

答案 0 :(得分:2)

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