Excel vbNewLine在双击之前不会反射?
我有一些通过代码合并的单元格Excel vbNewLine在双击之前不会反射?,excel,vba,Excel,Vba,我有一些通过代码合并的单元格 If InStr(outSht.Cells(lRow2, 3), entry.Offset(, 1)) = 1 Then 'does name exist? outSht.Cells(lRow2, 4) = outSht.Cells(lRow2, 4) & vbNewLine & entry.Offset(, 1) End If outSht.Cells(lRow2, 6) = outSht.C
If InStr(outSht.Cells(lRow2, 3), entry.Offset(, 1)) = 1 Then 'does name exist?
outSht.Cells(lRow2, 4) = outSht.Cells(lRow2, 4) & vbNewLine & entry.Offset(, 1)
End If
outSht.Cells(lRow2, 6) = outSht.Cells(lRow2, 6) & vbNewLine & entry.Offset(, -2)
outSht.Cells(lRow2, 7) = outSht.Cells(lRow2, 7) + entry.Offset(, 2)
但是,在我手动双击单元格之前,它都在同一行上。这里是一个快速的gif,显示了正在发生的事情
我是否遗漏了一些非常基本的东西?我尝试了Chr(10)
,Chr(13)&Chr(10)
,以及vbCrLf
,但没有成功
谢谢大家! 我试图重现您遇到的问题,在将符号与ACSII 13一起使用时,出现了类似的情况。使用ASCII 10字符时,一切正常尝试强制执行
.WrapText=True
属性。以下是调查问题的测试代码:
Sub test1()
a = Array(vbLf, vbCr, vbCrLf, vbNewLine, Chr(10), Chr(13))
ActiveSheet.Cells.Delete ' clear the Worksheet
With ActiveSheet.Range("A1")
For i = 0 To UBound(a)
txt = ""
For s = 1 To Len(a(i))
txt = txt & "," & Asc(Mid(a(i), s, 1))
Next
txt = Mid(txt, 2)
.Offset(i).WrapText = False
.Offset(i).Value = "A1-101222" & a(i) & "A1-103209" & a(i) & "A1-101406"
.Offset(i, 1).Value = "Used " & i & " symbol(s) ASCII[" & txt _
& "] and final WrapText is: " & .Offset(i).WrapText
Next
End With
With ActiveSheet.UsedRange
.EntireColumn.AutoFit
.EntireRow.AutoFit
End With
End Sub
输出