2

一个多星期以来，我一直在寻找解决这个问题的方法。我有一张带有格式化文本（颜色和样式）的表格，其值在第一列下方的距离未确定。两者之间有一些空格，但我相信我已经通过使用 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
4

1 回答 1

-1

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

于 2012-04-23T12:06:42.990 回答