Удаление и отсортировка столбцов

@Tumatayev · Регистрация: 27.07.2015

Author24 — интернет-сервис помощи студентам

Добрый день, уважаемые! Нужна помощь!

Нуждаюсь в макросе! Есть таблица со столбцами от "A" до "Z", нужно поменять местами "Q" с "A", "P" с "B", "E" с "C" и удалить с 5-ого столбца дальше.

С уважением, Tumatayev!

@chumich · 31.07.2015, 22:05

Visual Basic

Sub hana_table()
    Columns("Q:Q").Select
    Selection.Copy
    Columns("A:A").Select
    ActiveSheet.Paste
    Columns("P:P").Select
    Selection.Copy
    Columns("B:B").Select
    ActiveSheet.Paste
    Columns("E:E").Select
    Selection.Copy
    Columns("C:C").Select
    ActiveSheet.Paste
    Columns("E:Z").Select
    Selection.Delete Shift:=xlToLeft
End Sub

@Tumatayev · 04.08.2015, 17:11 **[ТС]**

Спасибо огромное! Кажится только вы в форуме)))

@Tumatayev 0 / 0 / 0 Регистрация: 27.07.2015 Сообщений: 27
		1
	Удаление и отсортировка столбцов 30.07.2015, 11:03. Показов 561. Ответов 2 Метки нет (Все метки) Добрый день, уважаемые! Нужна помощь! Нуждаюсь в макросе! Есть таблица со столбцами от "A" до "Z", нужно поменять местами "Q" с "A", "P" с "B", "E" с "C" и удалить с 5-ого столбца дальше. С уважением, Tumatayev! 0

@Tumatayev 0 / 0 / 0 Регистрация: 27.07.2015 Сообщений: 27
	04.08.2015, 17:11 [ТС]	3
	Спасибо огромное! Кажится только вы в форуме))) 0