منتقل کردن فرمول به سایر شیت ها

[razemana]

با سلام،تو یه شیت یه جدول دارم که در سه سلول این جدول فرمول هستش حالا میخوام این سه فرمول همزمان به هم بین چند شیت دلخواه اعمال شود توضیح اینکه تو سلول های مشابه میخوام این کار انجام بشه ،به صورت تکی میتوتن این کارو انجام بدم برای هر فرمول ولی میخواستم بدونم راهی هستش که بتونم به یک باره یک شیت با فرمول های زیادو به سایر شیت های منتقل کنم؟ممنون میشم راهنمایی بفرمایید .با تشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

برای اینکار بایستی از ماکرو استفاده کنید

Sub test()

Dim xx As String

For Each cell In ActiveSheet.UsedRange

If cell.HasFormula Then

xx = cell.Address

cell.Copy

For Each Sheet In Worksheets

If Sheet.Name <> "sheet1" Then

Sheet.Select

Range(xx).Select

ActiveSheet.Paste

End If

Next Sheet

End If

Next

End Sub