Jak skopiować pojedynczą komórkę do wielu arkuszy w programie Excel?

5

Mam około 30 arkuszy i muszę umieścić moje imię w lewym górnym rogu (komórka A1). Czy można to zrobić w prosty sposób bez konieczności wpisywania go lub wklejania do każdego arkusza?

user30094
źródło
Nie zamierzam pisać tego jako odpowiedzi - ale jeśli nie będziesz musiał robić tego więcej niż kilka razy, zacznę teraz, ponieważ byłoby to szybsze, aby zrobić to sam w porównaniu z szukaniem rozwiązania.
William Hilsum
haha dzięki za napiwek, ale to jest powtarzające się zadanie. Musiałem to robić ręcznie wiele razy i naprawdę chciałbym skrót.
user30094

Odpowiedzi:

7

Wybierz wszystkie arkusze (wybierz pierwszy arkusz, przytrzymaj klawisz Shift, wybierz ostatni arkusz)

Wpisz swoje imię w A1

Wciśnij Enter.

To zrobi to dla osób niebędących kodami.

Jordan 1GT
źródło
Ah. Czuję się teraz całkiem głupio. To było naprawdę łatwe. Dzięki.
user30094
+1 Ładna odpowiedź, lepiej pasuje do sytuacji OP niż moja.
Lunatik
1
Nie ma za co i dziękuję wam obojgu. Aby to uprościć, zapomniałem, że jeśli klikniesz kartę arkusza, pojawi się opcja „wybierz wszystkie arkusze”.
Jordan 1GT
5

Powinno to zrobić:

Sub PutMyNameInA1()
    Dim w As Worksheet

    For Each w In ThisWorkbook.Worksheets
        w.Range("A1") = "My Name"
    Next w
End Sub

Kod należy umieścić w standardowym module kodu. (Alt + F11, Wstaw & gt; Moduł, wklej to, zmień nazwę w cudzysłowach, Uruchom / F5, aby wykonać)

Lunatik
źródło