VBA代码无法防止WrapText

以下代码可防止在单元格中input的数据被包装…

With ActiveSheet With .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) .Value = Application.Evaluate("CONCATENATE(L1,N1)") .WrapText = False End With End With 

这只是我想要的方式。 但是，这个与.WrapText = False有问题

 With ActiveSheet With .Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = .Range("L1").Value2 .WrapText = False End With End With 

如果我不得不猜测，我缺less某种.Value行，放在.WrapText = False之前。 我只是不知道那是什么。 .Value应该是使它工作。 如果有人有解决办法，你能否解释一下你是怎么知道的？

Answer 1

我build议你避免在你定义块的行中赋值：

  'this gets probably B2 only With ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) 'this sets the value of B2 with the value of L1 .Value = ActiveSheet.Range("L1").Value2 .WrapText = False End With 

如果你想把整个列而不是B2：

  With ActiveSheet.Range("B:B")