Как в выделенном диапазоне из двух столбцов поменять соседние значения местами.

@bik2454 · Регистрация: 11.12.2013

помогите пожалуйста

@~~Апострофф~~ · 16.01.2014, 13:02

Visual Basic

Sub Swap()
Dim rn As Range, r As Long, t
Set rn = Selection
For r = 1 To rn.Rows.Count
  t = rn(r, 1)
  rn(r, 1) = rn(r, 2)
  rn(r, 2) = t
Next r
End Sub

@Hugo121 · 16.01.2014, 13:31

Так вот что нужно было

Visual Basic

Sub Swap2()
    Dim a()
    With Selection: a = .Columns(1).Value
        .Columns(1).Value = .Columns(2).Value
        .Columns(2).Value = a: End With
End Sub

@bik2454 · 16.01.2014, 13:46 **[ТС]**

спасибо

@bik2454 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 8
		1
	Как в выделенном диапазоне из двух столбцов поменять соседние значения местами. 16.01.2014, 11:55. Показов 764. Ответов 3 Метки нет (Все метки) помогите пожалуйста 0

@bik2454 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 8
	16.01.2014, 13:46 [ТС]	4
	спасибо 0

Опции темы