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?

microsoft-excel microsoft-excel-2003

— 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

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