excel - solo - pegar valores y formato vba

Excel VBA Copiar solo pegar valores(xlPasteValues)

Question

Estoy tratando de copiar la columna completa de la hoja A a la hoja B. La columna de la hoja A tiene valores formados con fórmulas. Estoy copiando los valores de la columna de SheetA solo usando xlPasteValues . Pero no es pegar los valores a otra hojaB. La columna en sheetB está vacía. Mi código 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

Answer 1

Iría sin copiar / pegar

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

Answer 2

Personalmente, también lo acortaría un poco si lo único que necesita son las columnas:

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

a partir de este fragmento de código, no hay mucho punto en lastrow o firstrowDB

Answer 3

Puedes usar esto también

Sub CopyPaste()
Sheet1.Range("A:A").Copy
Sheet2.Activate
col = 1
Do Until Sheet2.Cells(1, col) = ""
col = col + 1
Loop
Sheet2.Cells(1, col).PasteSpecial xlPasteValues
End Sub

Answer 4

Si solo desea copiar toda la columna, puede simplificar mucho el código haciendo algo como esto:

Sub CopyCol()
Sheets("Sheet1").Columns(1).Copy
Sheets("Sheet2").Columns(2).PasteSpecial xlPasteValues
End Sub

O

Sub CopyCol()
Sheets("Sheet1").Columns("A").Copy
Sheets("Sheet2").Columns("B").PasteSpecial xlPasteValues
End Sub

O si quieres mantener el bucle

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

Answer 5

También he tenido este problema antes y creo que encontré la respuesta.

Si está utilizando un botón para ejecutar la macro, es probable que esté vinculado a una macro diferente, tal vez como una versión guardada de lo que está trabajando actualmente y es posible que ni siquiera se dé cuenta. Intente ejecutar la macro directamente desde VBA (F5) en lugar de ejecutarla con el botón. Mi conjetura es que funcionará. Solo tiene que reasignar la macro en el botón a la que realmente desea ejecutar.

Answer 6

puedes usar esto

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Answer 7

selection = selection.values

Esto hace las cosas de una manera muy rápida.