Vba: jak wkleić same wartości bez formatowania

Możesz użyć następującej składni w VBA, aby skopiować określony zakres komórek i wkleić wartości tylko w nowe miejsce bez formatowania:

 Sub PasteNoFormatting()

Range(" A1:D9 ").Copy
Range(" A12 ").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

To konkretne makro skopiuje komórki z zakresu A1:D9 i wklei wartości komórek bez żadnego formatowania do zakresu zaczynającego się od komórki A12 .

Uwaga : Linia Application.CutCopyMode = False określa, że tryb wycinania i kopiowania powinien być wyłączony po wykonaniu makra.

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Wklej tylko wartości bez formatowania za pomocą VBA

Załóżmy, że mamy w programie Excel następujący zbiór danych zawierający informacje o różnych koszykarzach:

Załóżmy, że chcemy skopiować i wkleić wszystkie wartości z zakresu A1:D9 do nowej lokalizacji bez formatowania.

W tym celu możemy utworzyć następujące makro:

 Sub PasteNoFormatting()

Range(" A1:D9 ").Copy
Range(" A12 ").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Pamiętaj, że oryginalne wartości komórek zostały wklejone w nowe miejsce bez żadnego formatowania.

Uwaga : Pełną dokumentację metody VBA PasteSpecial można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak znaleźć ostatnio używaną linię
VBA: Jak policzyć liczbę wierszy w zakresie
VBA: Jak policzyć liczbę użytych kolumn