VBA Table de filtres et de les Copier sous-ensemble de Colonnes dans le presse-papiers

Je suis en train de copier automatiquement un sous-ensemble de lignes et de colonnes d'une table source dans le presse-papiers pour une utilisation dans d'autres applications. Je suis de la création du filtre sur l'en-tête de la table et de filtrage de l'lignes correctement, mais ne savez pas comment puis sélectionnez le sous-ensemble de colonnes dans l'ordre que je veux. La table source, ce sont des Colonnes A - L et je veux copier les Colonnes C, I, H et F dans cet ordre dans le presse-papiers après l'application du filtre. Un peu de code (moins la partie de copie) est inclus ci-dessous. 

Sub exportExample()
    Dim header As Range
    Dim srcCol As Range

    Set header = [A5:L5]

    header.AutoFilter
    header.AutoFilter 12, "Example", xlFilterValues

    'Copy out columns C, I, H and F of the resulting table in that order
End Sub

Je ne peux comprendre comment copier des colonnes, mais ne peut pas comprendre comment le faire dans l'ordre que je veux. Toute aide est grandement appréciée! Merci!

  • vous pourriez avoir à les copier colonne par colonne, dans l'ordre que vous voulez sur une autre zone de la feuille (ou une feuille), puis copiez que l'ensemble de la gamme.
InformationsquelleAutor user1651899 | 2012-09-06
  1. 2

    Est-ce que vous cherchez? J'ai commenté le code de sorte que vous ne devriez pas avoir de problème de compréhension.

    LOGIQUE:

    1. Filtrer les données
    2. Créer une Feuille de Temp
    3. Copie des données filtrées à la température de la feuille de
    4. Inutile de supprimer des colonnes (A,B,D,E,G,J,K,L)
    5. Réorganiser les colonnes pertinentes (C,F,H,I), C,I,H et F
    6. Supprimer Temp Feuille à la fin (IMP: Lire les notes à la fin du code)

    CODE (Essayé Et Testé)

    Option Explicit
Sub Sample()
Dim ws As Worksheet, wsTemp As Worksheet
Dim rRange As Range, rngToCopy As Range
Dim lRow As Long
'~~> Change this to the relevant sheet
Set ws = ThisWorkbook.Sheets("Sheet1")
With ws
'~~> Get the Last Row
lRow = .Range("L" & .Rows.Count).End(xlUp).Row
'~~> Set your range for autofilter
Set rRange = .Range("A5:L" & lRow)
'~~> Remove any filters
.AutoFilterMode = False
'~~> Filter, copy visible rows to temp sheet
With rRange
.AutoFilter Field:=12, Criteria1:="Example"
'~~> This is required to get the visible range
ws.Rows("1:4").EntireRow.Hidden = True
Set rngToCopy = .SpecialCells(xlCellTypeVisible).EntireRow
Set wsTemp = Sheets.Add
rngToCopy.Copy wsTemp.Range("A1")
'~~> Unhide the rows
ws.Rows("1:4").EntireRow.Hidden = False
End With
'~~> Remove any filters
.AutoFilterMode = False
End With
'~~> Re arrange columns in Temp sheet so that we get C, I, H and F
With wsTemp
.Range("A:B,D:E,G:G,J:L").Delete Shift:=xlToLeft
.Columns("D:D").Cut
.Columns("B:B").Insert Shift:=xlToRight
.Columns("D:D").Cut
.Columns("C:C").Insert Shift:=xlToRight
lRow = .Range("A" & .Rows.Count).End(xlUp).Row
Set rngToCopy = .Range("A1:D" & lRow)
Debug.Print rngToCopy.Address
'~~> Copy the range to clipboard
rngToCopy.Copy
End With
'NOTE
'
'~~> Once you have copied the range to clipboard, do the necessary
'~~> actions and then delete the temp sheet. Do not delete the
'~~> sheet before that. An alternative would be to use the APIs
'~~> to place the range in the clipboard so you can safely delete
'~~> the sheet before performing any actions. This will not clear
'~~> clear the range if the sheet is immediately deleted.
'
'
Application.DisplayAlerts = False
wsTemp.Delete
Application.DisplayAlerts = True
End Sub

    CAPTURE d'écran

    Feuil1 avant l'exécution du code

    VBA Table de filtres et de les Copier sous-ensemble de Colonnes dans le presse-papiers

    Temp avec la feuille de données filtrées

    VBA Table de filtres et de les Copier sous-ensemble de Colonnes dans le presse-papiers

    SUIVI

    À supprimer les frontières, vous pouvez ajouter ce code dans le code ci-dessus

    With rngToCopy
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
end with

    Mettre le code ci-dessus après la ligne Debug.Print rngToCopy.Address

    • Cela fonctionne bien, merci! Je vais avoir besoin de modifier le code afin d'enlever de la mise en forme (bordures de la table) mais je devrais être en mesure de le comprendre. Serait-il un changement rapide de ne pas copier la ligne d'en-tête de la feuille de travail temporaire?
    • Modifier ce rngToCopy.Copy wsTemp.Range("A1") à rngToCopy.Copy et dans la prochaine ligne de mettre cette wsTemp.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    • Ignorer ce dernier commentaire, j'ai compris comment modifier le code pour le faire. Merci encore pour l'aide!!!
    • Même mieux. Merci!
    • Bien que la ligne devient les dates en nombres entiers.
    • Voulez-vous seulement de supprimer les frontières, ou de toute autre mise en forme ainsi?
    • Juste les frontières. Tout le reste est très bien.
    • Mis à jour le post ci-dessus 🙂

    InformationsquelleAutor Siddharth Rout
  2. 0

    Vous devrez copier les colonnes individuellement, comme les objets qui font référence à des plages exiger que les cellules soient en ordre.

    Quelque chose comme cela devrait fonctionner:

    activeworkbook.Sheets(1).Columns("C:C").copy activeworkbook.Sheets(2).Columns("A:A")
activeworkbook.Sheets(1).Columns("I:I").copy activeworkbook.Sheets(2).Columns("B:B")
activeworkbook.Sheets(1).Columns("H:H").copy activeworkbook.Sheets(2).Columns("C:C")
activeworkbook.Sheets(1).Columns("F:F").copy activeworkbook.Sheets(2).Columns("D:D")

    alors vous devriez être en mesure de le faire:

    activeworkbook.Sheets(2).Columns("A:D").copy

    à obtenir dans le presse-papiers

    • Ne devrait-elle pas être l'inverse? Je veux dire Copie C ~~> Un et de même pour le reste? Vous avez également une faute de frappe dans la deuxième ligne "B:"?
    • Oups, oui, il devrait être dans l'autre sens (correction d'une faute de trop)
    • Merci pour la réponse. Je vais essayer cette méthode comme il est un peu plus simpliste.
    InformationsquelleAutor SeanC