如何根据字体大小将文本从A列复制到B列

Question

我想复制包含从A列到B列的Cell的所有文本，字体大小为“14”。

我想要这样，在这里找到图像：

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