我正在尝试将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
答案 0 :(得分:2)
要强制返回单元格,请用CHR(13)
切换vbCrLf
。