フォントサイズに応じて、列Aから列Bにテキストをコピーする方法

Question

すべてのテキストを含むテキストをコピーしたい場合は、列サイズが「14」のセルを列Aから列Bにコピーします。

Answer 1

どのように単純なループについて：

Sub copy14() 
    Dim r As Range 
    For Each r In Intersect(ActiveSheet.UsedRange, Range("A:A")) 
     If r.Font.Size = 14 Then r.Copy r.Offset(0, 1) 
    Next r 
End Sub 

私はこのようにしたい

は、ここに画像を見つけます