Excel VBA Wklej wartości
Kopiowanie i wklejanie nie jest najlepszą pracą na świecie !!! Ale kopiowanie i wklejanie ze specjalnymi opcjami wymaga pewnej wiedzy w VBA. To nie jest prosty proces, jak zwykłe kopiowanie i wklejanie. Jedną z ważnych metod specjalnych wklejania jest „Wklej wartości” w języku VBA.
Jak wkleić wartości w programie Excel za pomocą VBA?
Przykład 1 - użycie funkcji Wklej specjalnie
Na przykład spójrz na poniższy obraz arkusza.
W komórce B6 zastosowaliśmy formułę, aby obliczyć łączne wartości sprzedaży z komórek B2 do B5. Teraz, jeśli skopiuję i wkleję komórkę B6 do C6, nie uzyskam wartości 22761, ale otrzymam odpowiednią formułę.
Aby wykonać to samo w VBA, potrzebujemy wiedzy o kodowaniu. Pokażemy Ci, jak wkleić wartości za pomocą VBA. Wykonaj poniższe kroki.
Krok 1: Skopiuj komórkę B6.
Aby skopiować komórkę B6, użyj kodu jako Zakres („B6”)
Krok 2: Wybierz komórkę docelową. W tym przypadku komórka C6.
Jak widać po kopii, pojawia się pytanie „Miejsce docelowe”. To nic innego jak miejsce, w którym chcesz wkleić, więc wybierz „Miejsce docelowe” jako Zakres („C6”)
Kod:
Sub Paste_Values () Range ("B6"). Copy Range ("C6") End Sub
Krok 3: Uruchom kod
Uruchom ten kod, a otrzymamy kopię B6 w C6.
Mamy tutaj tylko wzór.
Krok 4: Wykonaj specjalną metodę wklejania.
Aby wykonać specjalną metodę wklejania, spójrzmy na poniższą składnię specjalnej metody wklejania.
W specjalnej metodzie wklejania mamy kilka metod. Na podstawie wykonywanej operacji musimy odpowiednio dobrać typ.
Aby to zrozumieć, podzielmy kod na dwie linie.
Pierwsza to kopiowanie komórki B6.
Teraz w następnym wierszu zapisz komórkę docelową jako zakres („C6”)
Teraz, aby uzyskać dostęp do metody wklejania specjalnego, wstaw kropkę i zacznij wpisywać literę „P.”.
W powyższej różnorodności opcji wybierz metodę „Wklej specjalnie”.
Po wybraniu metody naciśnij klawisz spacji, aby zobaczyć różne metody specjalne wklejania.
W tej różnorodności opcji wybierz „xlPasteValues”.
Po wybraniu opcji naciśnij klawisz Tab, aby wybrać automatycznie.
Kod:
Sub Paste_Values () Range („B6”). Copy Range („C6”). PasteSpecial xlPasteValues End Sub
Krok 5: Uruchom kod
Teraz uruchom kod, powinniśmy pobrać tylko wartość komórki B6 do komórki C6.
Jeśli zauważysz arkusz roboczy po uruchomieniu kodu, nadal znajduje się on tylko w trybie kopiowania.
Spowoduje to wyłączenie trybu kopiowania wycinanego po wykonaniu specjalnej metody wklejania.
Przykład # 2 - Wklej specjalnie za pomocą pętli
Wklejanie specjalne jest łatwe, ale użycie tego jako części dużego kodu wymaga zaawansowanego poziomu umiejętności kodowania.
Na przykład spójrz na poniższy obrazek.
Na powyższym obrazku arkusza roboczego w kolumnie „F” mamy kolumnę całkowitą, tj. W komórkach F2, F5, F8, F11 i F14.
Teraz moim wymaganiem jest skopiowanie każdej całkowitej komórki z odpowiedniej komórki i wklejenie w kolumnie „H” z odpowiednimi komórkami.
Używając poniższego kodu, z pętlami VBA, możemy to zrobić.
Kod:
Sub Paste_Values1 () Dim k As Integer Dim j As Integer j = 2 For k = 1 to 5 Cells (j, 6) .Copy Cells (j, 8) .PasteSpecial xlPasteValues j = j + 3 Next k End Sub
Ten kod ze specjalną opcją wklejania wykona zadanie skopiowania każdej całkowitej komórki i wklejenia w kolumnie „H” z odpowiednimi komórkami.
Przykład # 3 - Kopiuj z arkusza do innego
Aby wkleić wartości z jednego arkusza do drugiego, musimy wspomnieć obie nazwy arkuszy. Poniżej znajduje się przykład.
Sub Paste_Values2 () Worksheets ("Sheet1"). Range ("A1"). Copy Worksheets ("Sheet2"). Range ("A15"). PasteSpecial xlPasteValues End Sub
