VBA Excelのセル内の改行

Question

私は今この問題の解決策を1週間以上探してきました。私は最初の列の下に不定の距離の値を持つ書式付きテキスト（色とスタイル）のシートを持っています。その間にいくつかのスペースがありますが、私はIsEmptyを使ってその状況を正しく処理したと信じています。私は各セルからこれらの値のそれぞれを2番目の列の上部にある1つのセルにコピーしたいと思います。私は、これらの各セルのテキストを改行で指定された連結セルにコピーすることに成功しましたが、フォーマットを維持することには失敗しました。このテキストと一緒に書式設定をコピーする方法について誰でも助けることができれば、大いに感謝します。ありがとうございました！

'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性質を利用することができます。