Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70411 Skopiuj do schowka Kopiowanie i wklejanie wybranych wierszy arkusza
Autor Wiadomość
piotro9x
Forumowicz


Wersja: Win Office 2016
Posty: 12
Wysłany: 13-03-2021, 11:52   Kopiowanie i wklejanie wybranych wierszy arkusza

Witam. Mam problem przy kopiowaniu i wklejaniu do innego dokumentu (nie excela) zaznaczonych wierzy arkusza. Tzn. Zaznaczam wybrane wiersze arkusza. Pomiędzy zaznaczonymi wierszami są wiersze których nie chcę kopiować ale zawierają treść. I teraz przy wklejaniu w inne miejsce wkleja mi się również zawartość tych wierszy które leżały pomiędzy zaznaczonymi. Doda, że nie mam żadnych poukrywanych wierszy pomiędzy. W arkuszach google nie ma z tym problemu natomiast w excelu nie umiem sobie z tym poradzić. bardzo bym prosił o pomoc.
ID posta: 401996 Skopiuj do schowka
 
 
xfish 
Excel Expert



Wersja: Win Office 2013
Pomógł: 470 razy
Posty: 1456
Wysłany: 13-03-2021, 12:04   

Spróbuj te zaznaczone wiersze najpierw wkleić do innego pustego arkusza.
Później ponownie Ctrl+C
i wklej poza excel.
_________________
Pozdrawiam
xFish
ID posta: 401997 Skopiuj do schowka
 
 
caelian
ExcelGaduła 500+


Wersja: Win Office 365
Pomógł: 61 razy
Posty: 563
Wysłany: 13-03-2021, 13:47   

lub użyć filtra zaawansowanego do kopiowania danych do innego arkusza i potem całość skopiować.

jeśli kopiujesz do innego obiektu ms Office to można pobawić się VBA
ID posta: 402006 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 3133 razy
Posty: 10378
Wysłany: 13-03-2021, 16:29   

caelian, a jak przefiltrujesz by w wyniku mieć zaznaczone wcześniej wiersze? Musisz podać jakieś kryteria. A jedynym kryterium są zaznaczone wiersze, czego do filtra nie przekażesz. piotro9x ma arkusz, nie stosuje żadnego filtra, wszystkie wiersze widoczne. Zaznacza wiersze, które go interesują (zakres nieciągły) i chce je wkleić gdzieś tam.

piotro9x, liczba kolumn w zaznaczonych wierszach musi być identyczna.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 402009 Skopiuj do schowka
 
 
caelian
ExcelGaduła 500+


Wersja: Win Office 365
Pomógł: 61 razy
Posty: 563
Wysłany: 13-03-2021, 16:44   

@Artik,
Każde zaznaczenie ma jakiś cel, a wg mnie to oznacza ze musi być jakikolwiek klucz ich wyboru.

Jeśli jest klucz wyboru to można ustawić kryteria do filtra.

Niestety autor daje stosunkowo mało informacji i nie załączył pliku ale wg mnie filtr zaawansowany może tutaj pomóc.
ID posta: 402011 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 3133 razy
Posty: 10378
Wysłany: 13-03-2021, 17:34   

caelian napisał/a:
Każde zaznaczenie ma jakiś cel, a wg mnie to oznacza ze musi być jakikolwiek klucz ich wyboru.
Poniekąd masz rację. Jednak co jesteśmy zrealizować szybciej:
1. Zaznaczyć interesujące nas wiersze, skopiować, wkleić do nowego skoroszytu(arkusza) i ponownie skopiować
czy
2. Utworzyć kryteria filtrowania, przefiltrować, skopiować?

Mimo, że drugie zajmuje mniej słów, to jednak stawiałbym na pierwsze. Kryteria mogą być dość złożone i budowa ich może zając dużo czasu.
Tym bardziej, że pierwsze da się łatwo zautomatyzować, wtenczas ograniczy się to do:
1a. zaznacz wiersze, naciśnij przycisk, który skopiuje zaznaczone.
:-)

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 402016 Skopiuj do schowka
 
 
piotro9x
Forumowicz


Wersja: Win Office 2016
Posty: 12
Wysłany: 13-03-2021, 17:35   

Panowie, dokładnie tak jak kolega Artik pisze, arkusz mam "otwarty" bez ukrytych wierszy czy kolumn. Mam zakres danych ograniczający się do 100 wierszy i kończący sie na kolumnie "H". Z tego zakresu 100 wierszy zaznaczam 3 "zbiory" wierszy tzn. Pierwszy zbiór od 1 do 10 wiersza, drugi zbiór powiedzmy od 20 do 30 wiersza i trzeci zbiór od 90 do 100 wiersza. I chciałbym poprzez kopiowanie przenieść zawartość tylko tych zaznaczonych wierszy w inne miejsce a dokładniej mówiąc do pola opisowego na stronie internetowej. Niejako operacje te będę wykonywał po kilkanaście razy dziennie i to jeszcze w jednym pliku mam 6 arkuszy a więc jakieś rozwiązania pośrednie (typu kopiowanie do innych arkuszy itp) odpadają. Nie myślałem że taka wydawać by się mogło banalna czynność nie będzie możliwa w Excelu. W arkuszach google działa to bezproblemowo natomiast arkusze są w innych kwestiach ograniczone. Jeżeli jednak nie będzie innego rozwiązania będe musial powrócić do pracy na arkuszach.

PS. Czy to zaznaczam całe wiersze czy tylko zakresy komórek (oczywiście z taką sama liczbą kolumn) to efekt ten sam.
ID posta: 402017 Skopiuj do schowka
 
 
xfish 
Excel Expert



Wersja: Win Office 2013
Pomógł: 470 razy
Posty: 1456
Wysłany: 13-03-2021, 18:03   

piotro9x napisał/a:
Niejako operacje te będę wykonywał po kilkanaście razy dziennie i to jeszcze w jednym pliku mam 6 arkuszy a więc jakieś rozwiązania pośrednie (typu kopiowanie do innych arkuszy itp) odpadają.

Spróbuj a później pogadamy.
Mówimy o wciśnięciu dwóch zestawów klawiszy.

Jak już masz zaznaczone zakresy i skopiowane do schowka (Ctrl+C) w jakimkolwiek pustym pliku excela wklejasz przez Ctrl+V.
W ten sposób "pozbywasz się" wierszy których nie chcesz. Zakres pozostaje dalej zaznaczony.
Ponownie Ctrl+C - i w schowku masz już tylko to co cię interesuje.
Możesz już wklejać gdzie chciałeś.
Całość zajmie jakieś 4 sekundy. 6 jak jesteś powolny.
_________________
Pozdrawiam
xFish
ID posta: 402020 Skopiuj do schowka
 
 
piotro9x
Forumowicz


Wersja: Win Office 2016
Posty: 12
Wysłany: 13-03-2021, 18:25   

Podany przez was sposób ze skopiowaniem do pustego arkusza faktycznie działa. Jeżeli przez żadne inne ustawienia nie da się tego zrealizować to będę korzystał z tego sposobu. Dziękuje
ID posta: 402022 Skopiuj do schowka
 
 
caelian
ExcelGaduła 500+


Wersja: Win Office 365
Pomógł: 61 razy
Posty: 563
Wysłany: 13-03-2021, 18:40   

napisałem takie makro.

musisz tylko pozmieniać niektóre drobne elementy wg swoich potrzeb albo mi je podać.

Makro można przypisać do przycisku.
Mozna dodac kod tworzący przycisk w aktywnym arkuszu.
Można przypisac skrót klawiszowy.
Mozna ustawić dodatkowe przyciski myszy do uruchamiania makra (tutaj potrzebna mysz z programowalnymi przyciskami jak np Razor diamondback)

Kod:
Sub Copying()

Dim ShPrime As Worksheet
Dim ShPrimeName As String
Dim I As Long, J As Long
Dim RangeData As Range, RangeCriteria As Range, RangeOutput As Range


Set ShPrime = ActiveSheet
ShPrimeName = ActiveSheet.Name
LastR = Cells(Rows.Count, 1).End(xlUp).Row

   
    Sheets.Add After:=Sheets("Sheet2") 'change the sheet name here for the basic sheet name ur taking data from.
    ActiveSheet.Name = "CopyCriteraData"
   
    ShPrime.Range("A1:I1").Copy Destination:=ActiveSheet.Range("A1:I1")
   
    'from 1 to 10 = 10 rows
    'from 20 to 30 = 11 rows
    'from 90 to 100 = 11 rows
    J = 1
   
    For I = 2 To 34
   
        If J < 12 Then
            Range("I" & I) = J
            J = J + 1
        ElseIf J < 23 Then
            Range("I" & I) = J + 8
            J = J + 1
        ElseIf J <= 33 Then
            Range("I" & I) = J + 67
            J = J + 1
        End If
           
    Next I
   
Set RangeData = ShPrime.Range("A1").CurrentRegion
Set RangeCriteria = ActiveSheet.Range("A1").CurrentRegion
Set RangeOutput = ActiveSheet.Range("A37")

RangeData.AdvancedFilter xlFilterCopy, RangeCriteria, RangeOutput

Range("I37:I69").Clear
Range("A37").CurrentRegion.Copy

   
   
End Sub
ID posta: 402024 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 3133 razy
Posty: 10378
Wysłany: 13-03-2021, 18:50   

piotro9x napisał/a:
Podany przez was sposób ze skopiowaniem do pustego arkusza faktycznie działa.
Czasem wiemy co mówimy, a nie tylko mówimy co wiemy. :-)
xfish napisał/a:
Całość zajmie jakieś 4 sekundy. 6 jak jesteś powolny.
Możemy zejść do dwóch? Dla powolnych, jak ja, to 4.
piotro9x napisał/a:
operacje te będę wykonywał po kilkanaście razy dziennie i to jeszcze w jednym pliku mam 6 arkuszy a więc jakieś rozwiązania pośrednie (typu kopiowanie do innych arkuszy itp) odpadają.
Ech, człowieku małej wiary. ;-)
Przykład w załączniku.

Artik

Kopiowanie zakresów nieciągłych.xlsm
Pobierz Plik ściągnięto 11 raz(y) 31.46 KB

_________________
Persistence is a virtue in the world of programming.
ID posta: 402026 Skopiuj do schowka
 
 
piotro9x
Forumowicz


Wersja: Win Office 2016
Posty: 12
Wysłany: 13-03-2021, 22:04   

Wielkie dzięki Panowie za pomoc. Jako, że kopiowane zakresy są zmienne tzn raz może być od wierszy 1-10 a innym razem 2-5 więc w moim wypadku makro kolegi "Artik" bardziej się sprawdzi. Jest tylko jeszcze jeden problem, podczas zaznaczanie wierszy, gdzie komórki są scalone wyskakuje błąd, który nie pozwala wykonać polecenia dla scalonych komórek. czy jest szansa żeby to uwzględnić ??
ID posta: 402046 Skopiuj do schowka
 
 
ąćęłńóś
Excel Expert


Pomógł: 327 razy
Posty: 1607
Wysłany: 14-03-2021, 00:26   

Sporządź plik z przykładowymi danymi - wyobraźnia różnych ludzi ma to do siebie, że różnie działa - nie każ innym domyślać się jak wyglądają te scalenia, o których piszesz.
ID posta: 402049 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 3133 razy
Posty: 10378
Wysłany: 14-03-2021, 01:22   

piotro9x napisał/a:
Jest tylko jeszcze jeden problem, (...) scalonych komórek.
Excel bezpośrednio nie potrafi. Ale powiedz, tylko szczerze :-) Google Sheets potrafi takie rzeczy?

Jeżeli komórki są scalone tylko w obrębie jednego wiersza, to makro po małej zmianie poradzi sobie. Natomiast jeśli komórki są scalone w kolumnach, to wymagane będzie zaznaczenie wierszy w ten sposób, by obejmowało wszystkie wiersze scalonej komórki. Inaczej sypnie błędem.

Zmiany należy dokonać zamieniając fragment:
Kod:
  Set rngToCopy = Selection
  rngToCopy.Copy
na:
Kod:
  Set rngToCopy = Selection
  rngToCopy.Cells.UnMerge
  rngToCopy.Copy

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 402052 Skopiuj do schowka
 
 
piotro9x
Forumowicz


Wersja: Win Office 2016
Posty: 12
Wysłany: 14-03-2021, 10:17   

Artik napisał/a:
piotro9x napisał/a:
Jest tylko jeszcze jeden problem, (...) scalonych komórek.
Excel bezpośrednio nie potrafi. Ale powiedz, tylko szczerze :-) Google Sheets potrafi takie rzeczy?

No i tu tez moje ogromne zdziwienie ale w arkuszach działa to bezproblemowo tzn. kopiowanie tych wierszy nieciągłych i scalonych komórek.

Artik napisał/a:
Jeżeli komórki są scalone tylko w obrębie jednego wiersza, to makro po małej zmianie poradzi sobie. Natomiast jeśli komórki są scalone w kolumnach, to wymagane będzie zaznaczenie wierszy w ten sposób, by obejmowało wszystkie wiersze scalonej komórki. Inaczej sypnie błędem.

No chodziło właśnie o scalone komórki w obrębie jednego wiersza. Teraz działa to super.
Jeszcze raz wielkie dzięki.
ID posta: 402067 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe