Conas comhaid a lúbadh trí eolaire agus sonraí a chóipeáil isteach i máistir-bhileog in Excel?

Má cheaptar go bhfuil iliomad leabhar oibre Excel i bhfillteán, agus gur mhaith leat lúb a dhéanamh trí na comhaid Excel seo go léir agus sonraí a chóipeáil ó raon sonraithe de bhileoga oibre den ainm céanna isteach i máistir-bhileog oibre in Excel, cad is féidir leat a dhéanamh? Tugann an t-alt seo modh isteach chun é a bhaint amach go mion.

Lúb trí chomhaid in eolaire agus cóipeáil sonraí i máistir-bhileog le cód VBA

Lúb trí chomhaid in eolaire agus cóipeáil sonraí i máistir-bhileog le cód VBA

Más mian leat sonraí sonraithe i raon A1: D4 a chóipeáil ó gach bileog1 de leabhair oibre i bhfillteán áirithe go máistir-bhileog, déan mar a leanas le do thoil.

1. Sa leabhar oibre cruthóidh tú máistir-bhileog oibre, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an chóid.

Cód VBA: lúb trí chomhaid i bhfillteán agus cóipeáil sonraí i máistir-bhileog

Sub Merge2MultiSheets()
    Dim xRg As Range
    Dim xSelItem As Variant
    Dim xFileDlg As FileDialog
    Dim xFileName, xSheetName, xRgStr As String
    Dim xBook, xWorkBook As Workbook
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    xSheetName = "Sheet1"
    xRgStr = "A1:D4"
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    With xFileDlg
        If .Show = -1 Then
            xSelItem = .SelectedItems.Item(1)
            Set xWorkBook = ThisWorkbook
            Set xSheet = xWorkBook.Sheets("New Sheet")
            If xSheet Is Nothing Then
                xWorkBook.Sheets.Add(after:=xWorkBook.Worksheets(xWorkBook.Worksheets.Count)).Name = "New Sheet"
                Set xSheet = xWorkBook.Sheets("New Sheet")
            End If
            xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
            If xFileName = "" Then Exit Sub
            Do Until xFileName = ""
               Set xBook = Workbooks.Open(xSelItem & "\" & xFileName)
                Set xRg = xBook.Worksheets(xSheetName).Range(xRgStr)
                xRg.Copy xSheet.Range("A65536").End(xlUp).Offset(1, 0)
                xFileName = Dir()
                xBook.Close
            Loop
        End If
    End With
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

nótaí:

3. Brúigh an F5 eochair chun an cód a rith.

4. San oscailt Brabhsáil fhuinneog, roghnaigh le do thoil san fhillteán ina bhfuil na comhaid a lúbfaidh tú tríd, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

Ansin cruthaítear máistir-bhileog oibre darb ainm “Bileog Nua” ag deireadh an leabhair oibre reatha. Agus tá sonraí i raon A1: D4 de gach Bileog1 i bhfillteán roghnaithe liostaithe taobh istigh den bhileog oibre.

Earraí gaolmhara:

• Conas sonraí cealla a chóipeáil le airde as a chéile agus leithead colún in Excel?