Диапазона на основе значения ячейки

Question

мне нужна коды, чтобы изменить диапазон на основе значения ячейки:

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

For Nassets = 1 To ws_data.Range("d2") 
ws_data.Range("B" & Nassets).Value = 3 
Next Nassets 

Если "d2" имеет значения 4, диапазон B1:B4 = 3, однако я хочу диапазон B4:E4 = 3

заранее спасибо!

Answer 1

Основываясь на комментарии ниже, это выглядит, как вам нужно, чтобы изменить код так, чтобы значение в D2 представляет столбца в пределах вашего цикла, а не ряда - В этом случае:

For Nassets = 1 To ws_data.Range("d2") 
    ws_data.Cells(4, Nassets).Value = 3 '// Where 4 is the row number 
Next Nassets 

Это может быть переписан в Exlude петли вообще как так:

ws_data.Range(Cells(4, 2), Cells(4, ws_data.Range("D2").Value)).Value = 3