VBA Excel单元格中的换行符

Question

I've been searching for a solution to this problem for over a week now. I have a sheet with formatted text (colors and styling) with values an undetermined distance down the first column. There are some spaces in between but I believe I've handled that situation correctly by using IsEmpty. I want to copy each of these values from each cell all to one cell at the top of the second column. I've been successful in being able to copy the text from each of these cells into a specified concatenated cell with line breaks, however I've been unsuccessful at keeping the formatting. Any help anyone can provide on how to copy the formatting along with this text would be greatly appreciated. Thank you!

'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属性，这些属性易于使用并解决了格式化单元格的问题。