2015-07-09 2 views
0

В настоящее время я пытаюсь присвоить несколько столбцов диапазону. Мне нужно ссылаться на столбцы, используя имя листа и номера столбцов.Excel VBA задан как несколько столбцов

dim MyRange as Range 
dim StartCol as Integer 
set MyRange = [from column StartCol until Startcol+5] 

Любой вход будет высоко ценится ...

ответ

1
Option Explicit 
Sub col() 
    Dim rngCols As Range, ws As Worksheet, wb As Workbook 
    Dim startCol As Integer 

    set wb = ThisWorkbook 
    set ws = wb.Sheets("MySheet") 
    startCol = 1 
    With ws 
     Set rngCols = .Range(.Cells(1, startCol), .Cells(.Rows.Count, startCol + 5)) 
    End With 
    rngCols.Select 
End Sub 

Это должно делать то, что вы после этого. Вам просто нужно изменить переменную startCol, переменную рабочего листа и целое число, добавляемое в startCol.

Смежные вопросы