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

我想要复制的所有文本包含的是从列A到列B，字体大小是“14”的单元格。

我想要这样，在这里find图像：

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