Диапазон должен использовать выбранную ячейку

Я пытаюсь запустить макрос, который должен использовать выбранную ячейку в качестве диапазона.

Вместо Range("B1") должно быть что-то вроде Range("selectedCell")

Мой код такой, и я хотел бы, чтобы макрос разделил данные в выбранной ячейке.

Sub tst()
Dim X As Variant
X = Split(Range("B11").Value, ",")
Range("B11").Resize(UBound(X) - LBound(X) + 1).Value = Application.Transpose(X)
End Sub

excel range vba selection cells
person André    schedule 23.10.2013    source источник

Ответы (2)


arrow_upward
1
arrow_downward

Вместо Range("B11").Value можно использовать Selection.Value.

Selection может состоять из более чем 1 ячейки, поэтому вам, вероятно, следует сначала проверить это.

person bobopalmtree    schedule 23.10.2013
comment
Вы должны сделать некоторые предварительные проверки... если выбрано более одной ячейки, Selection.Value вызовет ошибку. - person varocarbas; 23.10.2013
comment
@varocarbas Ты прав. Я уже редактировал свой ответ. :-) - person bobopalmtree; 23.10.2013
comment
ХОРОШО. Проверка условия, которая довольно проста (например, через Selection.Columns.Count или Selection.Row.Count больше 1) - person varocarbas; 23.10.2013

arrow_upward
0
arrow_downward 

  range(selection.address)

будь проще :)

person Patrick Lepelletier    schedule 24.10.2013