Macro pour copier et Coller des cellules visibles seulement

Quelqu'un arrive à avoir une macro qui permet de faire cela? J'ai besoin de copier une colonne de cellules visibles seulement, et coller à la colonne suivante. Je ne m'excuse si c'est une question stupide, mais je sais rien à propos de ce genre de choses. Je l'ai cherché partout, mais je ne peux pas en trouver un qui semble fonctionner. J'en avais un, mais il copie seulement certains numéros.

Voici le code

Sub TryMe()
Sheet1.Range("A1:A100").SpecialCells(xlCellTypeVisible).Copy _
Destination:=Range("A1").Offset(ColumnOffset:=1)
End Sub

^ L'image ci-dessus est avant d'exécuter la macro. Remarquez les lignes qui sont cachés. J'ai besoin de ces numéros pour copier à la colonne suivante.

Macro pour copier et Coller des cellules visibles seulement

^Cette image est après que j'ai exécuter la macro. Je ne comprends pas pourquoi seulement certains numéros sont de la copie. Les lignes masquées contiennent les numéros 3 et 6. Pourquoi sont-ils dans le résultat, mais pas les nombres visibles? J'ai juste besoin de copier ce qui est vu.

OriginalL'auteur Kevin Sanders | 2015-09-09

2

Vous ne pouvez pas le faire de cette façon, même si vous avez manuellement le faire.

Vous aurez à boucle pour obtenir ce que vous voulez. Afin de donner à ceci un essai.
```
Dim c As Range
For Each c In Sheet1.Range("A1:A100").SpecialCells(xlCellTypeVisible)
    If Len(c) <> 0 Then c.Offset(0, 1) = c
Next
```
La chose étrange au sujet de votre résultat est pourquoi faut-il copier les valeurs dans l'ordre inverse.

Je peux comprendre si il copie toutes les cellules visibles à B1-là, mais pas le renversement des valeurs.

De toute façon, essayez au-dessus du premier, si cela vous va.

Je ne sais pas pourquoi ils ont été inversés. Merci pour l'aide!

OriginalL'auteur L42

Je ne suis pas sûr de savoir comment vous avez la sortie dans l'ordre inverse, mais pour moi votre code fonctionne:

Sub TryMe()

    '1. some visible values in col A will be will be hidden in col B by hidden rows

    Sheet1.Range("A1:A10").SpecialCells(xlCellTypeVisible).Copy _
        Destination:=Range("A1").Offset(ColumnOffset:=1)

    '2. all visible values in col A will be will be visible bellow

    Sheet1.Range("A1:A10").SpecialCells(xlCellTypeVisible).Copy _
        Destination:=Range("A11").Offset(ColumnOffset:=1)

End Sub

Macro pour copier et Coller des cellules visibles seulement

Merci beaucoup! Très utile!

OriginalL'auteur paul bica

Utiliser ce code, les gars! Fonctionne comme un charme 🙂

Sub PasteToFilteredCells()

Dim rng1 As Range
Dim rng2 As Range
Dim InputRng As Range
Dim OutRng As Range
Dim n As Integer
n = 0
Dim x As Integer
Dim c As Integer
c = 0

xTitleId = "Paste Buddy"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Copy Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste Range:", xTitleId, Type:=8)
x = InputRng.SpecialCells(xlCellTypeVisible).Count   

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False    

For Each rng1 In InputRng
 If rng1.EntireRow.RowHeight > 0 Then
    rng1.Copy
    c = c + 1
 Else
    GoTo NextIte
 End If    
    Do While (c < (x + 1))            
     If (OutRng.Offset(n, 0).EntireRow.RowHeight > 0) Then      
      OutRng.Offset(n, 0).PasteSpecial
      n = n + 1
      GoTo NextIte        
     Else
      n = n + 1
     End If       
    Loop        
NextIte:
Next rng1

Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True

End Sub

OriginalL'auteur Jappa Langua

Vous devez vous connecter pour publier un commentaire.