2

私はこの問題の解決策を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
4

1 に答える 1

-1

使いやすく、セルの書式設定の問題を解決したRange.CopyプロパティとRange.PasteSpecialプロパティを利用できます。

于 2012-04-23T12:06:42.990 に答える