Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Excel-makro kopiowanie kolumny

raflikks 04 Kwi 2012 20:52 1837 1
  • #1 04 Kwi 2012 20:52
    raflikks
    Poziom 8  

    Witam.
    Mam coś takiego:

    Code:

    Sub kopiowanie()
    Dim LastRow As Long

    Range("A6:B7").Select
    Selection.Copy
    Sheets("Arkusz2").Select
           

    If WorksheetFunction.CountA(Cells) > 0 Then
    LastRow = Cells.Find(What:="*", _
    After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Ostatni_wiersz = LastRow
    Else
    Ostatni_wiersz = 0
    End If


    ActiveSheet.Cells(Ostatni_wiersz + 1, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Arkusz1").Select
     
    End Sub


    Z arkusza 1 zakres A6:B7 jest kopiowany do arkusza 2 w zakres A1:B2.Kolejne wywołanie makra powoduje kopiowanie zawartości z arkusza 1 zakres A6:B7 w arkusz 2 w pozycje A3:B4.
    Co zmienić, by drugie wywołanie makra zapisywało w C1:D2 i za kolejnym razem wywołaniem makra E1:F2?

    0 1
  • #2 04 Kwi 2012 23:14
    walek33
    Poziom 28  

    Umieść kod w pętli i wykorzystaj jej zmienną do ustawienia kolumny do której chcesz kopiować.

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    A tak na marginesie to aż się prosi żeby ten kod uprościć. Na pewno przyspieszy to jego działanie.

    0