单元格中的VBA Excel换行符

Question

我一直在寻找这个问题的解决方案一个多星期了。我有一张带有格式化文本（颜色和样式）的工作表，其值在第一列下方未确定的距离。中间有一些空格，但我相信我已经通过使用IsEmpty正确处理了这种情况。我想将每个单元格中的每个值复制到第二列顶部的一个单元格。我已经成功地将每个单元格中的文本复制到具有换行符的指定连接单元格中，但是我一直没有成功保留格式。任何人都可以提供有关如何复制格式以及此文本的任何帮助将不胜感激。谢谢！

'set variable to find the last row of the sheet
Dim LastRow As Integer
'find the last row of the active sheet
LastRow = ActiveSheet.UsedRange.Rows.Count
'loop through each of the rows
For C = 1 To LastRow
    'determine if a cell has a value in it - if so complete below commands
    If (IsEmpty(Cells(C, 1).Value) = False) Then
    'leave the contents of the first cell in the second column, insert a linebreak and copy the values from the current cell in the first column
    Cells(1, 2).Value = Cells(1, 2).Value & Chr(10) & Cells(C, 1).Value
    End If
Next C

Answer 1

您可以使用易于使用的Range.Copy和Range.PasteSpecial属性，并解决格式化单元格的问题。