Podsumowanie
W programie Microsoft Excel można za pomocą makra połączyć dane w dwóch sąsiadujących kolumnach i wyświetlić wynik w kolumnie po prawej stronie kolumn zawierających dane. Ten artykuł zawiera przykładowe makro firmy Microsoft Visual Basic for Applications (VBA) (procedura podrzędna), aby to osiągnąć.
Więcej informacji
Firma Microsoft udostępnia przykłady programowania tylko na ilustracje, bez gwarancji wyrażonej lub dorozumianej. Dotyczy to między innymi dorozumianych gwarancji przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że znasz język programowania, który jest prezentowany, oraz narzędzia służące do tworzenia i debugowania procedur. Inżynierowie pomocy technicznej firmy Microsoft mogą pomóc w objaśnieniu funkcjonalności określonej procedury. Nie będą jednak modyfikować tych przykładów w celu zapewnienia dodatkowych funkcji lub konstruowania procedur w celu spełnienia określonych wymagań.
Przykładowe makro Visual Basic for Applications (VBA)
Sub ConcatColumns()
Do While ActiveCell <> "" 'Loops until the active cell is blank.
'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.
ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
UWAGA: Instrukcja ActiveCell.Offset(0, 1). FormułęR1C1 można zastąpić instrukcją ActiveCell.Offset(0, 1). Formuła. Można ich używać z równym sukcesem, jeśli używasz tylko tekstu i liczb (nie formuł). Kolumna R1C1 użyta na końcu pierwszej instrukcji odnosi się do pierwszego wiersza, kolumny pierwszej i jest formularzem używanym w przykładach w Pomocy.
Jak używać makra w programie Microsoft Office Excel 2007
-
Otwórz skoroszyt zawierający dane.
-
Naciśnij klawisze ALT+F11, aby uruchomić Edytor Visual Basic.
-
W menu Wstaw kliknij pozycję Moduł , aby wstawić moduł. Wpisz makro w oknie kodu modułu.
-
W menu Plik kliknij polecenie Zamknij i wróć do programu Microsoft Excel.
-
Zaznacz arkusz zawierający dane, które chcesz połączyć.
-
Kliknij górną komórkę w prawej kolumnie danych, które chcesz połączyć. Jeśli na przykład komórki A1:A100 i B1:B100 zawierają dane, kliknij komórkę B1.
-
Kliknij kartę Deweloper . Jeśli karta Deweloper nie jest wyświetlana, wykonaj następujące czynności:
-
Kliknij przycisk pakietu Office, a następnie kliknij przycisk Opcje programu Excel.
-
Kliknij pozycję Popularne.
-
Kliknij, aby zaznaczyć pole wyboru Pokaż kartę Deweloper na Wstążce .
-
Kliknij przycisk OK , aby zamknąć okno dialogowe Opcje programu Excel .
-
-
Kliknij pozycję Makra w grupie Kod .
-
Wybierz makro ConcatColumns, a następnie kliknij przycisk Uruchom.
Jak używać makra w programie Microsoft Office Excel 2003 i we wcześniejszych wersjach programu Excel
-
Otwórz skoroszyt zawierający dane.
-
Naciśnij klawisze ALT+F11, aby uruchomić Edytor Visual Basic.
-
W menu Wstaw kliknij pozycję Moduł , aby wstawić moduł. Wpisz makro w oknie kodu modułu.
-
W menu Plik kliknij polecenie Zamknij i wróć do programu Microsoft Excel.
-
Zaznacz arkusz zawierający dane, które chcesz połączyć.
-
Kliknij górną komórkę w prawej kolumnie danych, które chcesz połączyć. Jeśli na przykład komórki A1:A100 i B1:B100 zawierają dane, kliknij komórkę B1.
-
W menu Narzędzia wskaż polecenie Makra, a następnie kliknij pozycję Makro. Wybierz makro ConcatColumns, a następnie kliknij przycisk Uruchom.
