Excel_VBA Vertical Autofill

Sub Verticalautofill() Dim mycolumn As Integer Dim rng As Range Set rng = ActiveCell.CurrentRegion Dim actrng As Range Set actrng = Selection Dim mydest As Range Dim actcell As Range Set actcell = ActiveCell ColumnIndex = 1 lastRow = 1 For Each Column In rng.Columns bb = rng.Columns(ColumnIndex).Column testlastrow = Cells(Rows.Count, bb).End(xlUp).Row If testlastrow > lastRow Then lastRow = testlastrow ColumnIndex = ColumnIndex + 1 Next mycolumn = actrng.Columns.Count myrow = actcell.Row Set mydest = actcell.Resize(lastRow - myrow + 1, mycolumn) actrng.Autofill Destination:=mydest End Sub

• #تحصیلات_و_یادگیری
• #microsoft_excel
• #vba
• #اکسل
• #آموزش_vba_در_اکسل