Как разбить выбранные столбцы на листе Excel в один большой столбец, только выбранный

Этот вопрос соответствует следующему вопросу:

Visual Basic перемещает все остальные столбцы для создания один длинный столбец B

Я использовал лучший ответ:

sub ss()
    Dim col As Range

    For Each col In Worksheets("Sheet1").Columns
        If (col.Column > 1 And col.Column < 171) Then
            Range(col.Rows(1), col.Rows(15)).Select
            Selection.Cut
            'Select cell at bottom of A
            ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select
            ActiveSheet.Paste   'Paste
        End If
    Next col
End Sub

Теперь это работает, но все столбцы на листе Excel объединяются в один столбец. Я хочу сделать это только для выбранных столбцов при запуске макроса не для всего листа.

Это возможно? Как?


excel vba excel-2010 visual-studio-macros
person salomari87    schedule 16.02.2012    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Как это?

Sub Sample()
    Dim col As Range
    For Each col In Selection.Columns
        If col.Column > 1 And col.Column < 171 Then
            Range(col.Rows(1), col.Rows(15)).Select
            Selection.Cut
            ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select
            ActiveSheet.Paste
        End If
    Next col
End Sub
person Siddharth Rout    schedule 16.02.2012