کپی یک فرمول در تعدادی سلول با استفاده از vba

اگر در کد نویسی نیاز دارید یک فرمول را به تعداد زیادی سلول اختصاص دهید یا کپی کنید از کد زیر استفاده نمائید

Range("A2:A" & Range("B1").Value).Formula = Range("A1").Formula

در مثال فوق range(b1) انتهای محل کپی شدن می باشد

البته راههای دیگری نیز وجود دارد که این راه ساده تر می باشد