간단한 루프는 어떻습니까?
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
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다