Excel VBA Iba kopírovanie vkladania hodnôt( xlPasteValues )

Snažím sa skopírovať celý stĺpec v hárkuA do hárku B. Stĺpec hárkuA má hodnoty vytvorené pomocou vzorcov. Hodnoty stĺpca listuA kopírujem len pomocou xlPasteValues. Ale hodnoty sa nevložia do iného listuB. Stĺpec v hárkuB je prázdny. Môj kód VBA

    Public Sub CopyrangeA()

    Dim firstrowDB As Long, lastrow As Long
    Dim arr1, arr2, i As Integer

    firstrowDB = 1
    arr1 = Array("BJ", "BK")
    arr2 = Array("A", "B")

         For i = LBound(arr1) To UBound(arr1)
        With Sheets("SheetA")
           lastrow = Application.Max(3, .Cells(.Rows.Count, arr1(i)).End(xlUp).Row)
           .Range(.Cells(1, arr1(i)), .Cells(lastrow, arr1(i))).Copy
           Sheets("SheetB").Range(arr2(i) & firstrowDB).PasteSpecial xlPasteValues
        End With
    Next
    Application.CutCopyMode = False

End Sub
sam
Edited question 29 máj 2014 в 3:50
Programovanie
vba excel copy-paste excel-vba
29 máj 2014 в 3:41
37 zobrazenia
Riešenie

Ak chcete len skopírovať celý stĺpec, môžete kód veľmi zjednodušiť takto:

Sub CopyCol()

    Sheets("Sheet1").Columns(1).Copy

    Sheets("Sheet2").Columns(2).PasteSpecial xlPasteValues

End Sub

Alebo

Sub CopyCol()

    Sheets("Sheet1").Columns("A").Copy

    Sheets("Sheet2").Columns("B").PasteSpecial xlPasteValues

End Sub

Alebo ak chcete zachovať slučku

Public Sub CopyrangeA()

    Dim firstrowDB As Long, lastrow As Long
    Dim arr1, arr2, i As Integer

    firstrowDB = 1
    arr1 = Array("BJ", "BK")
    arr2 = Array("A", "B")

    For i = LBound(arr1) To UBound(arr1)

        Sheets("Sheet1").Columns(arr1(i)).Copy

        Sheets("Sheet2").Columns(arr2(i)).PasteSpecial xlPasteValues

    Next
    Application.CutCopyMode = False

End Sub
Komentáre (1)

Išiel by som bez copy/paste

      Sheets("SheetB").Range(arr2(i) & firstrowDB).Resize(lastrow, 1).Value = .Range(.Cells(1, arr1(i)), .Cells(lastrow, arr1(i))).Value
Komentáre (0)

Osobne by som ho tiež trochu skrátil, ak potrebujete len stĺpce:

For i = LBound(arr1) To UBound(arr1)
    Sheets("SheetA").Columns(arr1(i)).Copy
    Sheets("SheetB").Columns(arr2(i)).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
Next

keďže z tohto úryvku kódu nemá veľký zmysel lastrow alebo firstrowDB

Komentáre (0)